400分求　修改本机IP的　程序　(100分)

rt

使用netsh命令好像可以的

能不能说详细点，告诉小弟在哪本书中可以找到也行

好像太简单了,调用外部命令很容易做到,我找到了些例子,可能有重复
例子如下:

netsh interface ip address 本地连接 static 172.23.1.217 255.255.255.0 172.23.1.10

netsh interface ip set address 本地连接 static 192.168.0.199　255.255.255.0

cmd.exe /c netsh interface ip set address "本地连接" static 172.16.100.100 255.255.0.0 172.16.200.2 1

2000的DNS可以用
netsh interface ip set dns "本地连接" static 192.9.201.1

98系统有没有好办法？？？（修改注册表除外）？？？？？

用命令吧：netsh interface ip set address 本地连接 static 192.168.0.199 255.255.255.0

2000
winexec(pchar('netsh interface ip set address "本地连接" static 172.16.100.100 255.255.0.0 172.16.200.2 1'),sw_hide);
98
修改注册表
如://注意得重启计算机才能真正生效
var
MyReg: TRegistry;
i : integer;
begin
MyReg := TRegistry.Create;
try
MyReg.RootKey := HKEY_LOCAL_MACHINE;
if MyReg.OpenKey('/Enum/Network/MSTCP',false) then
begin
for i := 1 to 9 do
begin
if MyReg.OpenKey('/Enum/Network/MSTCP/000' + inttostr(i),false) then
begin
MyReg.WriteString('IPAddress','192.9.201.9');
MyReg.WriteString('IPMask','255.255.255.0');
MyReg.WriteString('DefaultGateway','192.9.201.1');
MyReg.CloseKey;
Break;
end;
end;
end;
finally
MyReg.Free;
end;
end;

1.使用 netsh -c interface dump > config.txt
2.然后将生成的 config.txt 复制多份，并修改其内容使之符合你的要求
3.netsh -f config.txt
4.ok

2000 //ip 子网掩吗 网关
winexec(pchar('netsh interface ip set address "本地连接" static 172.16.100.100 255.255.0.0 172.16.200.2 1 '),sw_hide)

2000的DNS可以用
winexec(pchar('netsh interface ip set dns "本地连接" static 192.9.201.1'),sw_hide);

寰堢粡鍏革紝涓嶈繃鎴戞槸涓?彍楦燂紝鎴戝叧蹇冪殑鏄?8 涓嬶紝浣犲啓浜嗕簺浠ｇ爜涔嬪悗锛?1.浣跨敤 netsh -c interface dump > config.txt
2.鐒跺悗灏嗙敓鎴愮殑 config.txt 澶嶅埗澶氫唤锛屽苟淇?敼鍏跺唴瀹逛娇涔嬬?鍚堜綘鐨勮?姹?3.netsh -f config.txt
4.ok
鏄?粈涔堟剰鎬濓紝 鍏夎繍琛屼綘鐨勭▼搴忎笉琛屽悧锛? 鍙﹀? netsh 鏄?粈涔堝懡浠わ紝鏄疍OS鍛戒护鍚楋紵

1.先执行 netsh -c interface dump > aa.txt

2.aa.txt内容如下
#========================
# 接口配置
#========================
pushd interface

reset all


popd
# 接口配置结束



# ----------------------------------
# 接口 IP 配置
# ----------------------------------
pushd interface ip


# "本地连接" 的接口 IP 配置

set address name = "本地连接" source = static addr = 192.168.0.82 mask = 255.255.255.0
add address name = "本地连接" addr = 168.168.0.82 mask = 255.255.255.0
set address name = "本地连接" gateway = 192.168.0.1 gwmetric = 1
set dns name = "本地连接" source = static addr = 168.168.0.2
set wins name = "本地连接" source = static addr = none


popd
# 接口 IP 配置结束



修改为:
#========================
# 接口配置
#========================
pushd interface

reset all


popd
# 接口配置结束



# ----------------------------------
# 接口 IP 配置
# ----------------------------------
pushd interface ip


# "本地连接" 的接口 IP 配置

set address name = "本地连接" source = static addr = 192.168.0.182 mask = 255.255.255.0
set address name = "本地连接" gateway = 192.168.0.1 gwmetric = 1
set dns name = "本地连接" source = static addr = 168.168.0.2
set wins name = "本地连接" source = static addr = none


popd
# 接口 IP 配置结束

3.执行 netsh -f aa.txt

此时IP地址已经被修改

window 98 涓嬩笉绠＄敤鍟婏紝鑰佸厔

98 下没有 netsh 命令 呀

那就改注册表,然后重启

我的问题解决了，在你的提示下我在注册表中找到了相应的位置，不过不要你写的那样。谢谢