动态改变/添加网络设置中的TCP/IP的DNS 地址

时间:2010-02-01 13:19:05  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:es('192.0.0.1 192.1.1.0');// 各地址之间用一个空格隔开1. SetTCPIPDNSAddresses 定义如下:procedure SetTCPIPDNSAddresses( sIPs : string );...
  正文:例如,把 DNS Server的地址添加为192.0.0.1和192.1.1.0,可调用:

SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0');
// 各地址之间用一个空格隔开


1. SetTCPIPDNSAddresses 定义如下:

procedure SetTCPIPDNSAddresses( sIphotoshop/ target=_blank class=infotextkey>ps : string );
begin
  //
// if using Windows NT
//
SaveStringToRegistry_LOCAL_MACHINE(
  'SYSTEMCurrentControlSet' +
  'ServicesTcpipParameters',
  'NameServer',
  sIPs );
  
  //
// if using Windows 95
//
SaveStringToRegistry_LOCAL_MACHINE(
  'SYSTEMCurrentControlSet' +
  'ServicesVxDMSTCP',
  '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;

动态改变/添加网络设置中的TCP/IP的DNS 地址》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12724.html


关键字:

关于《动态改变/添加网络设置中的TCP/IP的DNS 地址》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td