unit Unit1;
interface
uses
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}
uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
Var
REG:TRegistry;
begin
if (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);
Var
REG:TRegistry;
begin
label2.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.
delphi修改服务器3389端口
最新推荐文章于 2024-04-20 20:52:54 发布