Was machen wenn keine Internet-Connection vorhanden

[Larsi]

nehm doch einfach diese funktion:

Delphi-Quellcode:

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
begin
  If  InternetGetConnectedState(nil, 0) then
    Caption := 'Online'
  else
    Caption:='Offline';
end;