delphi 编程技巧

				如何设置系统的DNS服务器？ (2001年5月22日) 
				
				本站更新  分类:Internet   作者:  推荐:   阅读次数:98  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				如何设置系统的DNS服务器？
				//修改注册表中的设置
				//参数：
				// sVal：DNS Server名称！
				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;
				
				//设置DNS服务器
				//参数：
				// sIPs：DNS Server名称
				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;