Delphi开发的IP地址修改工具.docxVIP

Delphi 开发的 IP 地址修改工具 reg:TRegistry;procedure TForm1.setIPAddr;var reg:TRegistry; name:array [0..255] of char; reg:=TRegistry.Create;DNS,ID,CardNum:string;begin reg:=TRegistry.Create; StrLcopy(name,pchar(Edit6.Text),length(Edit6.Text)); reg.RootKey:=HKEY_LOCAL_MACHINE; ID:=RGcardList.Items.Strings[RGCardList.itemindex]; cardNum:=copy(ID,pos(;,ID)+1,length(ID)); reg.CloseKey; if length(CardNum) lt; 2 then CardNum:=00+CardNum; if LengTh(CardNum) lt; 3 then CardNum:=0+CardNum; reg.OpenKey(SYSTEM\ControlSet+CardNum+\Services, false); reg.OpenKey(Tcpip\Parameters\Interfaces,false); ID:=CardIdLt.Strings[CardIDLt.IndexOf(ID)+1]; reg.OpenKey(id,false); RegSetValueEx(reg.CurrentKey,IPAddress,0,REG_MULT I_SZ,@name,13); StrLcopy(name,pchar(Edit7.Text),length(Edit7.Text)); reg.RootKey:=HKEY_LOCAL_MACHINE; ID:=RGcardList.Items.Strings[RGCardList.itemindex]; cardNum:=copy(ID,pos(;,ID)+1,length(ID)); reg.CloseKey; if length(CardNum) lt; 2 then CardNum:=00+CardNum; if LengTh(CardNum) lt; 3 then CardNum:=0+CardNum; reg.OpenKey(SYSTEM\ControlSet+CardNum+\Services, false); reg.OpenKey(Tcpip\Parameters\Interfaces,false); ID:=CardIdLt.Strings[CardIDLt.IndexOf(ID)+1]; reg.OpenKey(id,false); RegSetValueEx(reg.CurrentKey,SubnetMask,0,REG_MU LTI_SZ,@name,13); StrLcopy(name,pchar(Edit8.Text),length(Edit8.Text)); reg.RootKey:=HKEY_LOCAL_MACHINE; ID:=RGcardList.Items.Strings[RGCardList.itemindex]; cardNum:=copy(ID,pos(;,ID)+1,length(ID)); reg.CloseKey; if length(CardNum) lt; 2 then CardNum:=00+CardNum; if LengTh(CardNum) lt; 3 then CardNum:=0+CardNum; reg.OpenKey(SYSTEM\ControlSet+CardNum+\Services, false); reg.OpenKey(Tcpip\Parameters\Interfaces,false); ID:=CardIdLt.Strings[CardIDLt.IndexOf(ID)+1]; reg.OpenKey(id,false); RegSetValueEx(reg.CurrentKey,DefaultGateway,0,REG_ MULTI_SZ,@name,13); IF (Trim(Edit9.Text)=) And (Trim(Edit10.Text)=) Then Exit; IF (Trim(Edit10.Text)=) Then Exit; IF (TRim(Edit9.Text)lt;gt;) And (Trim(Edit10.Text)lt;gt;) end;then begin end; DNS:=Trim(Edit9.Text)+,+TRim(Edit1