动态改变DNS地址,,CIO之家

动态改变DNS地址

佚名　　http://www.playicq.com　　数据中心　　编辑:dezai　　图片来源:网络

任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用：SetTCPIPDNSAddresses(‘192.0.0.1

任何动态改变/添加网络设置中的 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; 本文作者:佚名来源:http://www.playicq.com
CIO之家 www.ciozj.com 微信公众号:imciow

　　　　>>频道首页　　 >>网站首页　　纠错　　 >>投诉