Internet connection ja/nein ?

[inherited]

Zitat von ghost007:

kann es sein, das ich die nur beim compilierten proggi nicht bekomm? bzw dann halt die ShowMessage anstatt der fehlermeldung?

Ja. Und das hier:

Delphi-Quellcode:

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

Geht noch eleganter

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin
  result:=InternetGetConnectedState(nil, 0)
end;