SetLocalIP
来源：互联网 发布：php时间函数date() 编辑：程序博客网 时间：2024/06/04 19:03
var aIP, aSubMask, aDns, aGateWay, ipcmd, dnscmd: string; ini: TIniFile;begin try ini := TIniFile.Create(ExtractFilePath(Paramstr(0)) + 'Ipconfig.cfg'); aIP := ini.ReadString('Main', 'ip', ''); aSubMask := ini.ReadString('Main', 'SubMask', ''); aDns := Ini.ReadString('Main', 'Dns', ''); aGateWay := ini.ReadString('Main', 'gateway', ''); ipcmd := 'netsh interface ip set address name="本地连接" source=static addr="' + aIP + '" mask="' + aSubMask + '" gateway="' + aGateWay + '" gwmetric=1'; winexec(PAnsiChar(AnsiString(ipcmd)), sw_hide); //调用cmd命令设ＩＰ } Sleep(1000); dnscmd := 'netsh interface ip set dns name="本地连接" source=static addr="' + aDns + '" register=PRIMARY'; winexec(PAnsiChar(AnsiString(dnscmd)), sw_hide); Sleep(1000); WinExec(PChar(Paramstr(1)), sw_show); finally FreeAndNil(ini); end;end;IPconfig.cfg
[Main]
ip=192.168.66.166
subMask=255.255.255.0
gateway=192.168.66.1
Dns=202.96.128.86
[TaiZi]
ip=192.168.10.221
subMask=255.255.255.0
gateway=192.168.10.1
Dns=202.96.128.86
