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

Тема в разделе "Delphi - Сети", создана пользователем shilovec5377, 27 апр 2012.

  1. shilovec5377

    shilovec5377 Member

    Регистрация:
    13 апр 2012
    Сообщения:
    12
    Симпатии:
    0
    приве всем. Есть вопросик, как можно принудительно разорвать интернет соединение?
     
  2. shilovec5377

    shilovec5377 Member

    Регистрация:
    13 апр 2012
    Сообщения:
    12
    Симпатии:
    0
    есть процедура:
    Код (Delphi):
    // Процедура для разрыва связи с интернетом ------------------------------------
    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.
    но она почему то всегда выводит
    Код (Delphi):
    ShowMessage('Не могу разорвать связь с интернетом!');

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

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    19
    так а кто аборт кидает?
     
  4. shilovec5377

    shilovec5377 Member

    Регистрация:
    13 апр 2012
    Сообщения:
    12
    Симпатии:
    0
    а что можно сделать? подскажите пж.
     

Поделиться этой страницей