Internetverbindung prüfen

[Major1337]

Hey,

mein Programm hat einen Online und Offline Modus. Ich möchte diese Function gerne in mein Programm einbauen, aber was muss ich tun, dass diese Function sozusagen die ganze Zeit läuft und jedes mal schaut ob die Connection da ist, falls nicht soll er dann direkt in den Offline Modus springen.

Delphi-Quellcode:

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