如何取得机器上的所有ip

Question

包括各个网卡上的和虚拟网卡上的

Answer 1

兄弟: 你的分值太小啦!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
var
WSAData:TWSAData;
HostEnt:PHostEnt;
cIP:string;
begin
WSAStartup(2,WSAData);
HostEnt:=gethostbyname(PChar(edit1.text));
if HostEnt<>nil then
begin
with HostEnt^do
cIP:=Format('%d.%d.%d.%d',[Byte(h_addr^[0]),Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
Memo1.text:=edit1.text+'的IP是'+cIP;
end;

Answer 2

兄弟你搞错了, 我说的是一个机器上的所有IP,而不是网络中的别的机器名字对应的IP
比如我装了两块网卡我要得到分别两个地址, 还有可能装了MS的虚拟网卡.