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

如何动态改变/添加网络设置中的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;