[Delphi] Jak przechwycić w Delphi połaczenie

0

Jak przechwycic w Delphi moment uzyskania i przewania połączenia z Internetem lub Outlokiem

0

<font color="black"></span>
za pomocą WinInet:

uses WinInet;

var
Flags: DWORD;
begin
Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
if InternetGetConnectedState(@Flags, 0)=True then // sprawdz polaczenie
begin
Form1.Panel1.Caption:='Połączony';
end
else
begin
Form1.Panel1.Caption:='Brak połączenia';
end;
end;
[cya] [cya] [cya]

0

Niejsestem pewien, ale chyba w FAQ bylo... ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1