[Ross]

Как мне разорвать связь с инетом!!!

[Aristarh Dark]

Вырвать кабель

А если серьезно, то для того чтоб ответить на твой вопрос, мне например, не мешало бы знать как ты ее установил, эту самую связь

[Ross]

У меня связь через телефон.
Встречал вариант через процедуру LONG lineDrop, но непонял её хоть и перелистал весь Help.

[Ross]

Вот тут такой гемр: эта процедура требует подключения TAPI. Вписываю я этот TAPI в Uses, но он ругается что не находит его. Кинул в поисковик - такая дллка есть и даже TAPI32. В чём проблема?

[Ross]

Нашёл один способ, который у меня работает:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

type    TRasConn = record     Size: DWORD;     Handle: THandle;     Name: array[0..20] of AnsiChar;     end;    TRasEnumConnections = function(var RasConn: TRasConn; var Size: DWORD;     var Connections: DWORD): DWORD stdcall;   TRasHangUp = function(Handle: THandle): DWORD stdcall;   function DisconnectDialUp: Boolean; var   Lib: HINST;   RasEnumConnections: TRasEnumConnections;   RasHangUp: TRasHangUp;   RasConn: TRasConn;   Code, Size, Connections: DWORD; begin   Result := True;   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.Size := SizeOf(RasConn);       Code := RasEnumConnections(RasConn, Size, 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       Result := False;   else     raise;   end;   end;     procedure TForm1.Button1Click(Sender: TObject); begin if DisconnectDialUp = true then   ShowMessage('Соединение разорвано') else   ShowMessage('Не удалось разорвать соединение'); end;