delphi 7 如何写 修改切换win7 系统 的ip4 网关 dns等

richielw 2017-08-04 10:37:31
如图。近日在做一个IP地址切换程序,由于本人技术小白,请各位高人赐教。
...全文
589 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hj8090 2017-08-04
  • 打赏
  • 举报
回复
研究下cmd命令 netsh
lyhoo163 2017-08-04
  • 打赏
  • 举报
回复
    if regRootKey.OpenKey('\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\' + CardList.Strings[cbb1.ItemIndex], True)
    then begin
      if CheckBox1.Checked // 判断是否启用DHCP
      then begin
        regRootKey.WriteInteger('EnableDHCP',1);
        regRootKey.WriteString('NameServer','');
        WriteIp(regRootKey.CurrentKey, 'IPAddress', '0.0.0.0');
        WriteIp(regRootKey.CurrentKey, 'SubNetMask','0.0.0.0');
        WriteIp(regRootKey.CurrentKey, 'DefaultGateway','');
      end
      else begin
        regRootKey.WriteInteger('EnableDHCP',0);
        regRootKey.WriteString('NameServer', Trim(Combobox1.Text));
        WriteIp(regRootKey.CurrentKey,'IPAddress',Trim(Edit2.Text));
        WriteIp(regRootKey.CurrentKey, 'DefaultGateway', Trim(Edit4.Text));
        WriteIp(regRootKey.CurrentKey, 'SubNetMask', Trim(Edit3.Text));
        WriteIp(regRootKey.CurrentKey, 'DefaultGateway', Trim(Edit4.Text));
      end;
    end;
可以通过注册表,设置IP,代码见上。

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧