delphi2007中怎样得到多个ip地址和本机名称？

Question

delphi2007中怎样得到多个ip地址和本机名称？

Answer 1

1,用控件
var
tp:ttcpclient;
strname,straddr:string;
begin
tp:=ttcpclient.create(self);
tp.close;
tp.open;
strname:=tp.LocalHostName;
straddr:=tp.LocalHostAddr;
label1.caption:=strname+' IP: '+straddr;
tp.close;
end;
2,自已取,
ip在注册表中
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\{A3F8828D-F3D1-4F1F-80DF-2F17836E6190}\Parameters\Tcpip
计算机名:getComputerName

Answer 2

多个ip地址和本机名称？是什么意思？如果是得到IP或计算机名称，那简单。

Answer 3

我说的意思是一个计算机里有几个网卡（几个ip），我想把本机计算机名称和本机计算机里的全部ip地址找出来。

Answer 4

顶一个，我也正想知道。
例如：
  客户端电脑有两个网卡，一个的IP：192.168.0.100，另一个的IP：192.168.1.100 掩码都为：255.255.255.0
  当我连接到服务器为：192.168.1.1时，客户机用的IP应该是：192.168.1.100，如何得到这个呢？？