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

Question

如图。近日在做一个IP地址切换程序，由于本人技术小白，请各位高人赐教。

Answer 1

研究下cmd命令 netsh

Answer 2

    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，代码见上。