[exgui] Implementn Rcon procedures

This commit is contained in:
RD42 2023-12-16 23:27:29 +08:00
parent 118153f727
commit 23664f3362
2 changed files with 27 additions and 6 deletions

Binary file not shown.

View File

@ -10,13 +10,16 @@ type
TfmRcon = class(TForm)
edInput: TEdit;
moOutput: TMemo;
procedure edInputKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure edInputKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Host: String;
Password: String;
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
var
@ -26,19 +29,37 @@ implementation
{$R *.dfm}
procedure TfmRcon.edInputKeyPress(Sender: TObject; var Key: Char);
procedure Output(szOutput: PChar); stdcall;
begin
// TODO: TfmRcon.edInputKeyPress
fmRcon.moOutput.Lines.Add(szOutput);
end;
procedure TfmRcon.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:= Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent:= GetDesktopWindow;
end;
procedure TfmRcon.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// TODO: TfmRcon.FormClose
Destroy;
end;
procedure TfmRcon.edInputKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
if edInput.Text <> '' then begin
moOutput.Lines.Add('> ' + edInput.Text);
edInput.Text:= '';
end;
Key:= #0;
end;
end;
procedure TfmRcon.FormShow(Sender: TObject);
begin
// TODO: TfmRcon.FormShow
Caption:= 'Remote Console - ' + Host;
end;
end.