Рестарт Инета

[Pa6x]

Решил выложить функцию которая запускает любое приложение

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: Пасибку кинул Большое СПАСИБО!