|
例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用：aRcLinux联盟
aRcLinux联盟
SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0');aRcLinux联盟
// 各地址之间用一个空格隔开 |
aRcLinux联盟
1. SetTCPIPDNSAddresses 定义如下：aRcLinux联盟
aRcLinux联盟
procedure SetTCPIPDNSAddresses( sIPs : string );aRcLinux联盟
beginaRcLinux联盟
//aRcLinux联盟
// if using Windows NTaRcLinux联盟
//aRcLinux联盟
SaveStringToRegistry_LOCAL_MACHINE(aRcLinux联盟
'SYSTEM\CurrentControlSet' +aRcLinux联盟
'\Services\Tcpip\Parameters',aRcLinux联盟
'NameServer',aRcLinux联盟
sIPs );aRcLinux联盟
aRcLinux联盟
//aRcLinux联盟
// if using Windows 95aRcLinux联盟
//aRcLinux联盟
SaveStringToRegistry_LOCAL_MACHINE(aRcLinux联盟
'SYSTEM\CurrentControlSet' +aRcLinux联盟
'\Services\VxD\MSTCP',aRcLinux联盟
'NameServer',aRcLinux联盟
sIPs );aRcLinux联盟
end; |
aRcLinux联盟
2. 其中 SaveStringToRegistry_LOCAL_MACHINE 定义：aRcLinux联盟
aRcLinux联盟
uses Registry;aRcLinux联盟
aRcLinux联盟
procedure SaveStringToRegistry_LOCAL_MACHINE(aRcLinux联盟
sKey, sItem, sVal : string );aRcLinux联盟
varaRcLinux联盟
reg : TRegIniFile;aRcLinux联盟
beginaRcLinux联盟
reg := TRegIniFile.Create( '' );aRcLinux联盟
reg.RootKey := HKEY_LOCAL_MACHINE;aRcLinux联盟
reg.WriteString( sKey, sItem, sVal + #0 );aRcLinux联盟
reg.Free;aRcLinux联盟
end; |
|
|
