Auf Internetverbindung bzw. -trennung reagieren

[wlfmario]

Hallo,

ich habe da ein bischen Code gefunden, mit dem du auf solche Ereignisse reagieren kannst.

Delphi-Quellcode:

function InternetConnectionKind: string;
var
  flags: dword;
  bConnect: Boolean;
begin
  Result := 'Offline';
  bConnect := InternetGetConnectedState(@flags, 0);
  if bConnect = True then
  begin
    if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
      Result := 'Modem';
    if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
      Result := 'LAN';
    if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
      Result := 'Proxy';
    if (flags and INTERNET_CONNECTION_MODEM_BUSY) =
      INTERNET_CONNECTION_MODEM_BUSY then
      Result := 'Modem besetzt';
  end;
end;

Ich hoffe, das es soetwas ist was du suchst.