试试这个;
Var
Reg : TRegistry;
TDns : String;
Begin
Reg:=TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
If Reg.OpenKey('/SOFTWARE/Microsoft/Windows NT/CurrentVersion/NetworkCards/1', true) then
TDns := Reg.ReadString('ServiceName');
If Reg.OpenKey('/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/' + TDns, true) then
reg.WriteString('NameServer','202.97.230.4,192.168.0.40');
Reg.CloseKey;
Reg.Free;
End;
修改DNS的,不过有的机器不好使,不知道为什么;
修改IP等的原理都一样,你到注册表里查找一下相应的位置然后修改。