delphi中怎么获取局域网ip ( 积分: 100 )

怎么[?]才能用delphi实现windows自动获取IP的功能，
现在我有个程序想获取局域网中的IP，子网掩码，网关IP，DNS。。[]
知道的请详细说明下，本人是菜鸟一个，先谢谢大家了！@！[8D]！
谢谢！～

可以根據電腦名去獲取IP，

idipwatch控件

代码很多，你搜索很多。。。

function GetLocalIP:string;
var
WSAData:TWSAData;
HostName:array[0..MAX_COMPUTERNAME_LENGTH] of Char;
HostEntHostEnt;
LastIPInAddr;
IPList:^PInAddr;
begin
Result:='';
if 0=WSAStartup(MAKEWORD(1,1),WSAData) then
try
if 0=gethostname(HostName,MAX_COMPUTERNAME_LENGTH+1) then
begin
HostEnt:=gethostbyname(HostName);
if HostEnt<>nil then
begin
IPList:=Pointer(HostEnt^.h_addr_list);
repeat
LastIP:=IPList^;
INC(IPList);
until IPList^=nil;
if LastIP<>nil then
Result:=inet_ntoa(LastIP^);
end;
end;
finally
WSACleanup;
end;
end;