Pingen ohne das Programm einfriert!

[Jelly]

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