如何設(shè)置系統(tǒng)的DNS服務(wù)器？ (2001年5月22日) 

本站更新  分類:Internet   作者:  推薦:   閱讀次數(shù):98  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
如何設(shè)置系統(tǒng)的DNS服務(wù)器？
//修改注冊(cè)表中的設(shè)置
//參數(shù)：
// 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;

//設(shè)置DNS服務(wù)器
//參數(shù)：
// 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;