Решил выложить функцию которая запускает любое приложение
uses ShellAPI
function ExecuteFile(var FileName, Params, DefaultDir: string): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), SW_Hide);
end;
Для перезапуска Инета нужно
FileName := 'RASDIAL.exe'
Params := 'Наименование соединения /DISCONNECT'
после дисконекта
Params := 'Наименование подключения Логин Пароль'
DefaultDir := '%windir%\system32\'
PS: Пасибку кинул
Большое СПАСИБО!