end;
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(
'system\currentcontrolset' +
'\services\tcpip\parameters',
'nameserver',
sips );
// 如果你用的是windows 95用下面的代码
savestringtoregistry_local_machine(
'system\currentcontrolset' +
'\services\vxd\mstcp',
'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;
