Sorry... Hätt auch gleich ne alternative Methode posten können, wie man noch pingen kann:
Delphi-Quellcode:
uses
winsock ;
function Ping(InetAddress :
string) : boolean;
var
Handle : THandle;
InAddr : IPAddr;
DW : DWORD;
rep :
array[1..128]
of byte;
begin
try
result := false;
Handle := IcmpCreateFile;
if Handle = INVALID_HANDLE_VALUE
then
Exit;
TranslateStringToTInAddr(InetAddress, InAddr);
DW := IcmpSendEcho(
Handle, InAddr,
nil, 0,
nil, @rep, 128, 0);
Result := (DW <> 0);
IcmpCloseHandle(
Handle);
except
Result := false ;
end ;
end;
Die Quelle, wo ich den Code her hab, ist mir aber verloren gegangen