Besteht eine Internet - Verbindung

[Daniel B]

Hallo,

damit kann man überprüfen ob eine Internetverbindung besteht. Ist dies der Fall, so gibt die Funktion ein True zurück, ansonsten ein False.

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin
  if InternetGetConnectedState(nil, 0) then
  begin
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end;

Grüsse, Daniel