Internetverbindung Prüfen

[shmia]

Versuch mal:

Delphi-Quellcode:

uses WinInet;
....
function InternetAvailable(forceConnection:Boolean):Boolean;
begin
   {*
    * auskommentiert, da Wert für FLAG_ICC_FORCE_CONNECTION nicht bekannt
   if forceConnection then
      Result := InternetCheckConnection(nil, FLAG_ICC_FORCE_CONNECTION, 0)
   else
   }
      Result := InternetCheckConnection(nil, 0, 0);
end;


begin
   if InternetAvailable(False) then
      ShowMessage('Bin ich denn schon DRIN ??'#13#10'Das ging ja einfach !');
end;

Es könnte allerdings sein, dass dies deinen Router schon weckt und dieser
eine Verbindung herstellt.