下面是一段已知网上邻居中个计算机的名字,取得它相应IP地址的程序。 Function LocalIPList(Name:String):TStrings; var phe:PHostEnt; begin IPList.Clear; Result:=IPList; Phe:=WsocketGetHostByName(Name); if phe<>nil then GetIPList(phe,IPList); end; procedure GetIPList(phe:PHostEnt;ToList:TString); type TaPInAddr=array[0..255] of PInAddr; PaPInAddr=^ TaPInAddr; var pptr:PaPInAddr; I:Integer; begin pptr:=PaPInAddr(phe^.h_addr_list); I:=0; while pptr^[I]<>nil do begin ToList.Add(StrPas(Wsocket_inet_ntoa(pptr^[I]))); Inc(I); end; end;