Delphi中如何更改Windows 2000注册表中的DNS设置？

HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\SERVICES\TCPIP\PARAMETERS\iNTERFACES下的子项中有{33AB6FE7-9263-4782-A8D4-085BBA932795}   和{5397E4A6-7430-4329-A7D4-4281F4CEF58E}两个项，有时可能有类似的3个这样的子项或更多，该项下有关于DNS的设置，但是我如何确定该在哪一个子项下呢（比如是在{5397E4A6-7430-4329-A7D4-4281F4CEF58E}还是在{33AB6FE7-9263-4782-A8D4-085BBA932795}），在DEIPHI中如何具体实现，请各位高手指教。200   分回报。 问题点数：100、回复次数：8Top

1 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2005-06-02 23:52:10 得分 50

7,动态改变DNS   Server的地址  
  下面的函数可以添加   DNS   Server的地址  
  如想添加202.100.100.65   202.10.10.10  
  SetDNSAddresses('202.100.100.65   202.10.10.10')   ;  
  //注意:   各地址之间用一个空格隔开  
   
  SetTDNSAddresses   定义如下：  
   
  procedure   SetDNSAddresses(   sIPs   :   string   );  
  begin  
  //   如果是   Windows   NT用下面的代码  
  SaveStringToRegistry_LOCAL_MACHINE(  
  'SYSTEMCurrentControlSet'   +  
  'ServicesTcpipParameters',  
  'NameServer',  
  sIPs   );  
   
  //   如果你用的是Windows   95用下面的代码  
   
  SaveStringToRegistry_LOCAL_MACHINE(  
  'SYSTEMCurrentControlSet'   +  
  'ServicesVxDMSTCP',  
  'NameServer',  
  sIPs   );  
  end;  
   
  其中   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;Top

2 楼Larry1030（阿摯(在路上...)）回复于 2005-06-02 23:55:31 得分 0

学习   ~~~Top

3 楼nwliu（nwliu）回复于 2005-06-06 07:42:15 得分 0

 
  不灵啊，大侠。我手工做过实验，不对啊。请仔细看一下我的问题描述，给指教一下好吗？多谢了！！！  
   
  Top

4 楼naughtyboy（重归起跑线）回复于 2005-06-07 18:15:47 得分 0

如果修改注册表  
  先找到适配器(Adapters)  
  根据相应的adapter修改相应的dns就可以了  
  Top

5 楼wangbao20001766（豹子）回复于 2005-06-07 20:24:29 得分 0

qiangTop

6 楼duanhai（段海）回复于 2005-06-07 20:54:00 得分 0

關於修改注冊表  
  1.確保你有權限進行修改操作  
  2.從注冊表中查找你所要修改的東西，得到其具體的位置，如果還不能確定其具體的位置，可以多試幾台機  
  3.利用Registry單元中的TRegistry進行操作注冊表，即可Top

7 楼nwliu（nwliu）回复于 2005-06-07 22:30:05 得分 0

如何找到对应的适配器(Adapters)啊，各位大侠？我的机器装了一个网卡，也只有一个IP地址，怎么  
  HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\SERVICES\TCPIP\PARAMETERS\iNTERFACES下有好几个项目啊，我怎么确定哪一个是啊？急啊，各位大侠，请速速指教，谢了！！！Top

8 楼naughtyboy（重归起跑线）回复于 2005-06-08 00:07:27 得分 50

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Adapters  
  下面有Adapters对应的键值  
  用这个键值在后面的interfaces里面找Top

相关问题

• 修改
• sips
• savestringtoregistry
• 指教
• dns
• machine
• 大侠
• adapters
• 注冊表
• tcpip

• 帖主：nwliu
• aiirii
• naughtyboy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载