Скачать: CL | DM;

Как разорвать текущее соединение с Интернет?   Найти похожие ветки 

← →
Slava V.   (2002-09-23 16:32) [0]

Нужно чтоб моя программа разрывала текущее соединение с Интернет (естественно речь о DialUp соединениях). Может кто знает как это организовать?

---

← →
Song ©   (2002-09-23 17:31) [1]

Модуль wininet.dcu
Описания процедур - смотрите соответственно в wininet.pas
Если есть rasdial.exe можно легче.

---

← →
Slava V.   (2002-09-24 12:57) [2]

Через wininet не работает.

Через RAS отлично:


uses rasunit;
...

procedure HangupAllDialUpConnections;//отключает все диалап соединения которые найдет
var
i:CARDINAL;
ConnArray:array[0..10] of TRASConn;
Connections,BufSize:Longint;
begin
for i:=Low(ConnArray) to High(ConnArray) do
ConnArray[i].dwSize:=SizeOf(ConnArray[i]);
BufSize:=Sizeof(ConnArray);
RasEnumConnections(@ConnArray[Low(ConnArray)], BufSize, Connections);
if Connections = 0 then exit;
for i:=Low(ConnArray) to Connections - 1 do
RasHangup(ConnArray[i].hrasConn);
end;

Rasunit можно выцепить тут:
http://delphi.mtu-net.ru/zip/rasapi.zip

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c