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

[Pa6x]

Ктонить может объяснить как сделать так чтобы дельфя отключила/включила соединение с интернетом.

Искал на разных сайтах. пока не один способ не подошел.

ЗЫ. я начинающий ДельфиЁП поэтому прошу подробно обиснять

[xkor]

соединения с интернетом бывают разные...
хотя наверно есть и универсальный способ но я не искал

[Oleg007]

а не проше чтоб комп просто в оф уходил) в инете таких программ куча)

[Pa6x]

У меня есть соединение типа Бридж моде... у меня есть Бат файлик который отключает инет через команду
RASDIAL Наименование соединения /DISCONNECT
и есть батник с подключением
RASDIAL Наименование подключения Логин Пароль

Каким образом я могу воспользоваться этими командами в Дельфи...

Програмки есть не спорю... но мне нужно привинтить этот Реконект к програмке в дельфях

[raid]

Сообщение от Pa6x

У меня есть соединение типа Бридж моде... у меня есть Бат файлик который отключает инет через команду
RASDIAL Наименование соединения /DISCONNECT
и есть батник с подключением
RASDIAL Наименование подключения Логин Пароль

Каким образом я могу воспользоваться этими командами в Дельфи...

Програмки есть не спорю... но мне нужно привинтить этот Реконект к програмке в дельфях

функция shellapi - shellexecute
rasdial.exe лежит в %windir%\system32\
(вроде)

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