问一个菜问题----急

Question

怎样得到本机的ip地址、子网掩码、默认网关和首选dns服务器
要有源码，解决给分

Answer 1

摘一个贴上：{=================================================================功 能: 返回本机的局域网Ip地址参 数: 无返回值: 成功: True, 并填充LocalIp 失败: False备 注:版 本:1.0 2002/10/02 21:05:00=================================================================}function GetLocalIP(var LocalIp: string): Boolean;
var
HostEnt: PHostEnt;
Ip: string;
addr: pchar;
Buffer: array [0..63] of char;
GInitData: TWSADATA;
begin
Result := False;
try
WSAStartup(2, GInitData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt := GetHostByName(buffer);
if HostEnt = nil then Exit;
addr := HostEnt^.h_addr_list^;
ip := Format('%d.%d.%d.%d', [byte(addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
LocalIp := Ip;
Result := True;
finally
WSACleanup;
end;
end;

Answer 2

http://www.playicq.com/dispdocnew.php?id=12765