如何用程序设置本地的IP地址 有没有系统提供的API可以调用呀 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 varReg: TRegistry;beginReg := TRegistry.Create;Reg.RootKey := HKEY_LOCAL_MACHINE;if Reg.OpenKey('\System\CurrentControlSet\Services\Class\NetTrans\0000', True)then Reg.WriteString('IPAddress','192.1.1.1');Reg.CloseKey;Reg.Free;end;end; 就这样!!!! USES 加registry,就不用说了!!! 2000好象在HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\{2DFE3FBC-7F1C-4C72-9C96-36A950D55230}\Parameters自己看了! 仅仅更改注册表是不行的吧,即便的重启机器也没有用啊。我的方法是1、用 winexec 将cmd 打开 一个命令行窗口2、使用sendkey的东东向打开的窗口传递一系列命令,命令大概如下netshinterface ipset address name="网卡的在系统中的名字如本地连接XXX" xxx.xxx.xxx.xxx xxx.xxx.xxx.xx 谢谢大家,我找到了,有一个叫iphelper的函数库,我用了addipaddress() IDHTTP获取网页源码失败!请各位牛哥指点! 请教delphi实现程序自效验 fastreport中这样的分栏分组效果怎么做 第一次用Clientdataset遇到的问题 请问如何在memo中输入分号字符 ' 呢. dbgrideh控件安装问题 如何动态创建一个ODBC系统数据源? 请问在delphi中如何将表中重复记录删除??? 一个基于IOCP服务器 发送的问题 用delphi 5.0 在A客户端写得程序,运行良好。把它拷贝到B上运行,就出现错误。 高手 P4 CPU有序列号吗?以后的INTEL CPU是否一直会有序列号? 老大们,有谁能提供 delphi开发的 防火墙 例子吗?谢谢了
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if
Reg.OpenKey('\System\CurrentControlSet\Services\Class\NetTran
s\0000', True)
then Reg.WriteString('IPAddress','192.1.1.1');
Reg.CloseKey;
Reg.Free;
end;
end; 就这样!!!!
就不用说了!!!
自己看了!
我的方法是
1、用 winexec 将cmd 打开 一个命令行窗口
2、使用sendkey的东东向打开的窗口传递一系列命令,命令大概如下
netsh
interface ip
set address name="网卡的在系统中的名字如本地连接XXX" xxx.xxx.xxx.xxx xxx.xxx.xxx.xx