動態設置DNS地址 |
|
|
|
ddy
站務副站長   發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
如，把 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; 發表人 - ddy 於 2002/11/24 00:00:31 發表人 - ddy 於 2002/11/24 00:02:07
|
|
pcboy
版主  發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
這種做法不保險
小弟電腦 WinXP PRO 的 DNS Server IP 值出現在 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{8CF8E7A2-3660-450D-82D6-DD2E5CEAA9EC} 名稱 DhcpNameServer 對應的資料中 有更好做法嗎 ?
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
發表時間：2002-11-23 23:54:04
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-11-23 11:31:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |