在DELPHI中得到局域网中所有计算机名称或IP地址？

Question

{创建 WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{得到计算机名称}
GetHostName(@s,128);
p:=GetHostByName(@s);
benname:=string(p^.h_name);
{得到机器IP地址 }
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
benip:=string(p2);这里只是部分代码，你自已可以去找这些函数的资料

Answer 1

wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;