如何编程设置本机IP地址？Wait on line..........

[DelphiStudy]

求教如何编程设置本机IP地址?

多谢了。

[cbdiy]

改注册表

[DelphiStudy]

能具体一点吗？
在哪个键值里改？

[ppbaobei123]

知道IP在什么位置，就可以更改了，看看下面这个


在NT上, 先获得网络设备驱动程序的名称:
sNetCardRegKey := '\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\1'; 1 或者其他能在这个地方枚举到的子键
regRootKey.RootKey := HKEY_LOCAL_MACHINE;
regRootKey.OpenKeyReadOnly(SNetCardRegKey);
sNetCardDriverName := regRootKey.ReadString('ServiceName');

然后:
sServiceRegKey := '\SYSTEM\CurrentControlSet\Services\';
sTCPIPRegKey := sServiceRegKey + sNetCardDriverName + '\Parameters\Tcpip';
在'IPAddress'中获得这个设备的所有IP地址
regRootKey.ReadBinaryData('IPAddress', cIPAddressArray, 255);
在'SubNetMask'中获得IP地址对应的子网掩码
regRootKey.ReadBinaryData('SubNetMask', cNetMaskArray, 255);

在Win95/98中:
获得设备名称的办法:
sNetCardRegKey := '\Enum\Network\MSTCP\0001\'; 0001 或者其他能在这个地方枚举到的子键
sServiceRegKey := '\SYSTEM\CurrentControlSet\Services\Class\';

regRootKey.RootKey := HKEY_LOCAL_MACHINE;
regRootKey.OpenKeyReadOnly(SNetCardRegKey);
sNetCardDriverName := regRootKey.ReadString('Driver');

然后:
sTCPIPRegKey := sServiceRegKey + sNetCardDriverName;
regRootKey.OpenKeyReadOnly(sTCPIPRegKey);

最后获得IP地址和子网掩码:
sIPAddress := regRootKey.ReadString('IPAddress');
sNetMask := regRootKey.ReadString('IPMask');
Win95不支持一个设备对应多个地址

[dragonimp]

这样好像不会马上生效吧，要禁用再启用才行吧？！
可以用netsh 命令行可以设置，不知道怎么用程序写出同样效果的

[hhzxf]

程序中执行DOS命令:
winexec(pchar('netsh interface ip set address name="本地连接" source= static addr= '+要设置的IP+' mask='+子码),SW_HIDE);
其中"本地连接"为"控制面板"->"网上邻居"中显示的本地局域网连接名称,可以更改名字