Просмотр полной версии : Рестарт Инета
Ктонить может объяснить как сделать так чтобы дельфя отключила/включила соединение с интернетом.
Искал на разных сайтах. пока не один способ не подошел.
ЗЫ. я начинающий ДельфиЁП поэтому прошу подробно обиснять :)
соединения с интернетом бывают разные...
хотя наверно есть и универсальный способ но я не искал
а не проше чтоб комп просто в оф уходил) в инете таких программ куча)
У меня есть соединение типа Бридж моде... у меня есть Бат файлик который отключает инет через команду
RASDIAL Наименование соединения /DISCONNECT
и есть батник с подключением
RASDIAL Наименование подключения Логин Пароль
Каким образом я могу воспользоваться этими командами в Дельфи...
Програмки есть не спорю... но мне нужно привинтить этот Реконект к програмке в дельфях
У меня есть соединение типа Бридж моде... у меня есть Бат файлик который отключает инет через команду
RASDIAL Наименование соединения /DISCONNECT
и есть батник с подключением
RASDIAL Наименование подключения Логин Пароль
Каким образом я могу воспользоваться этими командами в Дельфи...
Програмки есть не спорю... но мне нужно привинтить этот Реконект к програмке в дельфях
функция shellapi - shellexecute
rasdial.exe лежит в %windir%\system32\
(вроде)
Решил выложить функцию которая запускает любое приложение
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: Пасибку кинул :) Большое СПАСИБО!
vBulletin® v3.6.11, Copyright ©2000-2024, Jelsoft Enterprises Ltd. Перевод: zCarot