Bin ich drin ? Ist der eigene Rechner online ?

[CHackbart]

Die einfachste Variante wäre:

Delphi-Quellcode:

function IsInternet: boolean;
var LHTTP: TidHttp;
begin
 LHTTP := TidHttp.create(nil);
 try
  LHTTP.Get('https://www.google.de');
  result := true;
 except
  result := false;
 end;
LHTTP.free;
end;

Christian