Принудительный Разрыв Интернет Соединения

[shilovec5377]

приве всем. Есть вопросик, как можно принудительно разорвать интернет соединение?

 

[shilovec5377]

есть процедура:

// Процедура для разрыва связи с интернетом ------------------------------------
procedure DisconnectNow;
var
Lib: HINST;
RasEnumConnections: TRasEnumConnections;
RasHangUp: TRasHangUp;
RasConn: TRasConn;
SizeC: DWORD;
begin
try
Lib := LoadLibrary('rasapi32.dll');
try
if Lib = 0 then Abort;
RasEnumConnections := GetProcAddress(Lib, 'RasEnumConnectionsA');
if not Assigned(@RasEnumConnections) then Abort;
RasHangUp := GetProcAddress(Lib, 'RasHangUpA');
if not Assigned(@RasHangUp) then Abort;
FillChar(RasConn, SizeOf(RasConn), 0);
RasConn.SizeC := SizeOf(RasConn);
Code := RasEnumConnections(RasConn, SizeC, Connections);
if (Connections <> 1) or (Code <> 0) then Abort;
if RasHangUp(RasConn.Handle) <> 0 then Abort;
Sleep(3000);
finally
FreeLibrary(Lib);
end;
except
on E: EAbort do

ShowMessage('Не могу разорвать связь с интернетом!');
else
raise;
end;
end;
//==============================================================================


procedure TForm1.Button1Click(Sender: TObject);
begin
DisconnectNow;
end;

end.

но она почему то всегда выводит

ShowMessage('Не могу разорвать связь с интернетом!');

в чем пролема? не могу понять

 

[-master-]

так а кто аборт кидает?

 

[shilovec5377]

а что можно сделать? подскажите пж.