1,593
社区成员
发帖
与我相关
我的任务
分享
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,代码见上。