如何获取和设置本机的dns设置

[journay]

rt

[Kudeet]

http://www.vckbase.com/document/viewdoc/?id=851

[Kudeet]

获取
http://community.csdn.net/Expert/topic/3660/3660446.xml?temp=.7719995

[oyljerry]

GetNetworkParams();函数

[xuzheng318]

动态改变/添加网络设置中的 TCP/IP 的 DNS 地址

例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用：

SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ;

// 各地址之间用一个空格隔开


1. SetTCPIPDNSAddresses 定义如下：


procedure SetTCPIPDNSAddresses( sIPs : string );

begin

//

// if using Windows NT

//

SaveStringToRegistry_LOCAL_MACHINE(

'SYSTEM\CurrentControlSet' +

'\Services\Tcpip\Parameters'


'NameServer'


sIPs );


//

// if using Windows 95

//

SaveStringToRegistry_LOCAL_MACHINE(

'SYSTEM\CurrentControlSet' +

'\Services\VxD\MSTCP'


'NameServer'


sIPs );

end;


2. 其中 SaveStringToRegistry_LOCAL_MACHINE 定义：

uses Registry;


procedure SaveStringToRegistry_LOCAL_MACHINE(

sKey

sItem

sVal : string );

var

reg : TRegIniFile;

begin

reg := TRegIniFile.Create( '' );

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.WriteString( sKey

sItem

sVal + #0 );

reg.Free;

end;

[journay]

获取呢？

[journay]

是vc程序吗？像delphi

[journay]

oyljerry(【勇敢的心】→ ㊣Typesetting A za!㊣)
多谢，获取是没问题了，另外，怎么设置它呢？
还有怎么判断ip地址和dns是自动分配的？

[老夏Max]

http://www.codeproject.com/internet/netcfg.asp