PING als If-Abfrage

[t.roller]

Einfachere Lösung:

Delphi-Quellcode:

//function gethostbyname(name: PAnsiChar): PHostEnt; stdcall ;
//    external 'wsock32.dll' name 'gethostbyname';
// oder uses ...Winapi.Winsock,...
function GHBN(const str: Ansistring): Boolean; // GetHostByName
var PHE : PHostEnt;
begin
PHE:= NIL; Result:= FALSE;
PHE := GetHostByName(PAnsiChar(str)); Application.ProcessMessages;
if PHE<>NIL then Result:= TRUE;
end;
---
//Aufruf:
If GHBN('www.google.com') then...