如何用程序来设置本机物理IP地址?送分了!(200分)

  • 主题发起人 主题发起人 Faczxy
  • 开始时间 开始时间
F

Faczxy

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用程序来设置本机物理IP地址?送分了!
用程序来实现,不重起,我用AddIPAddress(..)老是返回55,请大家帮忙。
 
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 );


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;
 
请问,这样修改,机子不重起,能否生效?
 
To:江西的Delphi,您所说的,好像不是设置本机的IP哦,是DNS。
我要的是IP。
高手都不在吗?
 
AddIPAddress在我这里可以。
 
在98下,微软自己的办法都要重启了?在win2000上还好说
 
HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/Class/NetTrans下的0000到9999中只要IPAddress和IPMask存在且不为0.0.0.0即可置换!
 
接受答案了.
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
872
DelphiTeacher的专栏
D
后退
顶部