如何更改计算机的IP地址及Wins、DNS、网关等？（当然是要用Delphi实现） (100分)

请问各位高人如何更改计算机的Ip地址及Wins、DNS、网关等？？（当然是要用Delphi实现）<br><br>Win98和Windows XP中是否都可以进行更改，如果可以的话，如何更改。

如果修改自己机器IP：<br>var<br>Reg: TRegistry;<br>begin<br>Reg := TRegistry.Create;<br>Reg.RootKey := HKEY_LOCAL_MACHINE;<br>if <br>Reg.OpenKey('/System/CurrentControlSet/Services/Class/NetTran<br>s/0000', True)<br>then Reg.WriteString('IPAddress','192.1.1.1');<br>Reg.CloseKey;<br>Reg.Free;<br>end;<br>end;<br><br>

有没有什么api直接修改啊？？

gz

任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址 <br><br>例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用：<br>SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ;<br>// 各地址之间用一个空格隔开<br><br>1. SetTCPIPDNSAddresses 定义如下：<br><br>procedure SetTCPIPDNSAddresses( sIPs : string );<br>begin<br>//<br>// if using Windows NT<br>//<br>SaveStringToRegistry_LOCAL_MACHINE(<br>'SYSTEM/CurrentControlSet' +<br>'/Services/Tcpip/Parameters',<br>'NameServer',<br>sIPs );<br><br>//<br>// if using Windows 95<br>//<br>SaveStringToRegistry_LOCAL_MACHINE(<br>'SYSTEM/CurrentControlSet' +<br>'/Services/VxD/MSTCP',<br>'NameServer',<br>sIPs );<br>end;<br><br>2. 其中 SaveStringToRegistry_LOCAL_MACHINE 定义：<br>uses Registry;<br><br>procedure SaveStringToRegistry_LOCAL_MACHINE(<br>sKey, sItem, sVal : string );<br>var<br>reg : TRegIniFile;<br>begin<br>reg := TRegIniFile.Create( '' );<br>reg.RootKey := HKEY_LOCAL_MACHINE;<br>reg.WriteString( sKey, sItem, sVal + #0 );<br>reg.Free;<br>end;<br><br><br>&nbsp;<br>

chenzheng770101,请问有没有办法，也使用一个函数（API）就可以更改IP地址及网关等 ？？