任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址_电脑教程_在线教程

作者：佚名来源：InterNet 加入时间：2004-11-22

相关文章：

相关书籍:

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

//====================================

[文章录入员:fightter]

相关文章：

相关书籍:

	电脑书籍	网站建设\| 数据库类\| 图形图象\| 程序设计\| 现代办公\| 操作系统\| 考试认证\| 网络技术\| 软件工程\| 电脑相关\| 文学作品
	电脑教程	网站开发\| 网页制作\| 操作系统\| 图象图形\| 考试认证\| 数据库类\| 程序设计\| 硬件技术\| 现代办公\| 网络技术\| 笑话频道