如何用delphi实现修改ip地址,子网掩码及网关??(100分)

如何用delphi实现修改ip地址,子网掩码及网关?? 请教!!!!

修改注册表中的内容。

如何实现,有例子吗 ?

修改IP地址和子网掩码、默认网关都可以修改注册表实现，但是必须重新启动机器才有效。

你需要知道在注册表的什么地方吗？我給你说了也许你会忘记，我告诉你怎么找吧：
　　打开控制面板，修改你的IP地址为一个奇怪的数，比如‘11.22.33.44’，然后运行
RegEdit，查找你刚才输入的IP地址，明白了吗？

运行如下代码记得先要相用 Registry单元
function WriteRegistString(aRootkey: HkEY; const aRoot, aItem, aValue: String; canCreate: Boolean): Boolean;
begin
with TRegistry.Create do
try
Rootkey := aRootKey;
Result := OpenKey(aRoot,canCreate);
if Result then
WriteString(aItem,aValue);
finally
CloseKey;
Free;
end;
end;

//设置DNS的IP地址
procedure SetTCPIPDNSAddresses(aIP: String);
begin
WriteRegistString(HKEY_LOCAL_MACHINE,'SYSTEM/CurrentControlSet/Services/VxD/MSTCP'
,'NameServer',aIP,False);
end;

使用SetTCPIPDNSAddresses过程设置你的IP地址

看看自己的注册表

跟一句，2000中改不需要重新启动，但是用程序的方法改过后不会生效

多人接受答案了。

调用dos命令应该也可以
http://ms.blogger.cn/kavamorph/posts/2330.aspx
看一下此参考