1:

ping www.irgendetwas.de					

1:

ping www.entwickler-ecke.de					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

uses
   WinSock;
 
function GetIpAddressByName(const Lines:TStrings; const AHost: String): Boolean;
 type
   PPInAddr= ^PInAddr;
 var
   WSA: TWSAData;
   HostInfo: PHostEnt;
   Addr: PPInAddr;
 begin
   Result:=False;
   if WSAStartUp($101, WSA) = 0 then
   begin
     try
       HostInfo:= getHostByName(PChar(AHost));
       Result:=HostInfo<>nil;
       if Result then
       begin
         Addr:=Pointer(HostInfo^.h_addr_list);
         if (Addr<>nil) AND (Addr^<>nil) then
         begin
           Repeat
             Lines.Add(StrPas(inet_ntoa(Addr^^)) ) ;
             inc(Addr);
           Until Addr^=nil;
         end;
       end;
     finally
      WSACleanup;
     end;
   end;
 end;