delphi修改注册表ip 帅哥美女请进来指导

[lison001]

怎么修改 有原代码吗？谢谢

[sfply]

delphi中很容易就可以操作注册表的，几年没用了忘了以前怎么弄的了~~

[mikespook]

你是不是刚问过这个问题？
我昨天回答了一个，说是改注册表修改IP~~~

呵呵，突然又想到一个更加简单的方法~~
用ShellExecute来执行命令~~
比如
netsh interface ip set address name="本地连接" source=static addr=10.16.19.%1 mask=255.255.255.0 gateway=10.16.19.254 gwmetric=1

netsh命令的用法你可以查一下~~~命令行下修改本机IP的~~~用ShellExeucte调用即可~~

[笨笨兔兔兔兔兔]

你为什么不到delphi版去问的？？

使用 WSH，可以管理系统注册表。下面的脚本将演示一些这样的功能。

// JScript。
Sh = new ActiveXObject("WScript.Shell");
key = "HKEY_CURRENT_USER\\"
Sh.RegWrite( key + "WSHTest\\"，"testkeydefault");
Sh.RegWrite( key + "WSHTest\\string1"，"testkeystring1");
Sh.RegWrite( key + "WSHTest\\string2"，"testkeystring2"，"REG_SZ");
Sh.RegWrite( key + "WSHTest\\string3"，"testkeystring3"，"REG_EXPAND_SZ");
Sh.RegWrite( key + "WSHTest\\int"，123，"REG_DWORD");
WScript.Echo( Sh.RegRead(key + "WSHTest\\"));
WScript.Echo ( Sh.RegRead(key + "WSHTest\\string1"));
WScript.Echo ( Sh.RegRead(key + "WSHTest\\string2"));
WScript.Echo ( Sh.RegRead(key + "WSHTest\\string3"));
WScript.Echo ( Sh.RegRead(key + "WSHTest\\int"));
Sh.RegDelete(key + "WSHTest\\");

' VBScript。
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\"
Sh.RegWrite key & "WSHTest\"，"testkeydefault"
Sh.RegWrite key & "WSHTest\string1"，"testkeystring1"
Sh.RegWrite key & "WSHTest\string2"，"testkeystring2"，"REG_SZ"
Sh.RegWrite key & "WSHTest\string3"，"testkeystring3"，"REG_EXPAND_SZ"
Sh.RegWrite key & "WSHTest\int"，123，"REG_DWORD"
WScript.Echo Sh.RegRead(key & "WSHTest\")
WScript.Echo Sh.RegRead(key & "WSHTest\string1")
WScript.Echo Sh.RegRead(key & "WSHTest\string2")
WScript.Echo Sh.RegRead(key & "WSHTest\string3")
WScript.Echo Sh.RegRead(key & "WSHTest\int")
Sh.RegDelete key & "WSHTest\"