var RegF:TRegistry; begin RegF.OpenKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0001",TRUE); RegF.WriteString("IPAddress",yourip); regf.free; end;yourip就是你要改成的ip地址值
楼上的,少了点东西吧?! var RegF:TRegistry; begin RegF:=TRegistry.create; RegF.OpenKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0001",TRUE); RegF.WriteString("IPAddress",yourip); regf.free; end;yourip就是你要改成的ip地址值
RegF:TRegistry;
begin
RegF.OpenKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0001",TRUE);
RegF.WriteString("IPAddress",yourip);
regf.free;
end;yourip就是你要改成的ip地址值
var
RegF:TRegistry;
begin
RegF:=TRegistry.create;
RegF.OpenKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0001",TRUE);
RegF.WriteString("IPAddress",yourip);
regf.free;
end;yourip就是你要改成的ip地址值