var Reg: TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey('\System\CurrentControlSet\Services\Class\NetTrans\0000', True) then Reg.WriteString('IPAddress','192.1.1.1'); Reg.CloseKey; Reg.Free; end; end;
posted on
2010-05-18 15:32滴水藏海映太阳
阅读(176)
评论(0)
编辑收藏举报