怎么取windows的DNS，设置Ip地址，DNS？？？分不够可以在加

[Merrybip]

怎么取windows的DNS，设置Ip地址，DNS？？？
给出源码！！！

[Merrybip]

自己顶一下！！！

[aiirii]

function GetDNS: string;
{$IFDEF LINUX}
var
l: TStringList;
n: integer;
begin
Result := '';
l := TStringList.Create;
try
l.LoadFromFile('/etc/resolv.conf');
for n := 0 to l.Count - 1 do
if Pos('NAMESERVER', uppercase(l[n])) = 1 then
begin
if Result <> '' then
Result := Result + ',';
Result := Result + SeparateRight(l[n], ' ');
end;
finally
l.Free;
end;
end;
{$ELSE}
const
NTdyn = 'System\CurrentControlSet\Services\Tcpip\Parameter s\Temporary';
NTfix = 'System\CurrentControlSet\Services\Tcpip\Parameter s';
W9xfix = 'System\CurrentControlSet\Services\MSTCP';
begin
Result := GetDNSbyIpHlp;
if Result = '...' then
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
Result := ReadReg(NTdyn, 'NameServer');
if result = '' then
Result := ReadReg(NTfix, 'NameServer');
end
else
Result := ReadReg(W9xfix, 'NameServer');
end;
{$ENDIF}

[Merrybip]

楼上的我怎么编译不过！！
请指点

[gg137zeus]

丁页

[helodd]

搜一下,很多

http://search.csdn.net/Expert/topic/1985/1985953.xml?temp=.5817987
http://search.csdn.net/Expert/topic/677/677230.xml?temp=.7453882

[elvis200_200]

呵呵。接分

[qrlvls]

可以使用 IP Helper API

[Merrybip]

自己up一下