delphi修改服务器3389端口

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Edit1: TEdit;    Label1: TLabel;    Label2: TLabel;    procedure Button1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure Edit1KeyPress(Sender: TObject; var Key: Char);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}usesRegistry;procedure TForm1.Button1Click(Sender: TObject);VarREG:TRegistry;beginif (Strtoint(edit1.Text) < 1) or (Strtoint(edit1.Text) > 65534) then begin showmessage('端口号错误！'); exit; end;REG:= TRegistry.Create;  try  with REG do begin  REG.RootKey:=HKEY_LOCAL_MACHINE;  if OPenkey('SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp', True) then begin     REG.WriteInteger('PortNumber',Strtoint(edit1.Text));    end;    closekey;    if OPenkey('SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp', True) then begin     REG.WriteInteger('PortNumber',Strtoint(edit1.Text));    end;    closekey;    end;  finally  REG.Destroy;  end;Application.MessageBox('3389端口修改成功！','恭喜');end;procedure TForm1.FormCreate(Sender: TObject);VarREG:TRegistry;beginlabel2.Caption:='传世技术论坛专用3389修改器，经典无毒，放心！';REG:= TRegistry.Create;  try  with REG do begin  REG.RootKey:=HKEY_LOCAL_MACHINE;  if OPenkey('SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp', False) then begin    edit1.Text:= INTTOSTR(REG.ReadInteger('PortNumber'));    end;    closekey;    end;  finally  REG.Destroy;  end;end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9', '.', #08]) then  begin    Key := #0;  end;end;end.