如何设置系统的dns服务器？ (2001年5月22日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 42 行

如何设置系统的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;