怎样编程实现动态改IP地址？(100分)

如题。
在网上找到如下方法：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
建立两个脚本，一个名为ipdns.bat，一个名为aa.bat。用来将IP更改为192.168.0.2，DNS更改为192.168.0.1
ipdns.bat内容如下：
@echo off
netsh < aa.bat
aa.bat内容如下：
interface ip
set address name=&quot;本地连接&quot; static 192.168.0.2 255.255.0.0 192.168.0.1 1
set dns name=&quot;本地连接&quot; static 192.168.0.1
执行ipdns.bat，即可。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
总感觉不是解决之道。求另外的方法。

就这个办法，你可以在程序内部建立这个文件，还有个办法是写注册表，然后重启网卡

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3311468
这里可以下源文件，呵呵。我也写好了一个，根这个差不多

接受答案了.