принудительный разрыв интернет соединения

[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('Не могу разорвать связь с интернетом!');

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

[p51x]

Проблем может быть кучка...

ОС? Права? Привилегии? ...

[shilovec5377]

а что можно сделать?

[shilovec5377]

чтобы эта функция работала