如何在没有聚焦的Delphi的情况下从键盘输入

发布时间：2020-12-15 09:18:21 所属栏目：大数据来源：网络整理

导读：我想知道如何在我的delphi应用程序中获取键盘输入,而不是专注. 我正在编程的应用程序将在我在游戏中时截取屏幕截图. 我已经写了屏幕捕获代码,但我错过了最后一篇文章,任何建议将不胜感激. 解决方法您可以注册一个热键(使用 RegisterHotKey和 UnregisterHotK

我想知道如何在我的delphi应用程序中获取键盘输入,而不是专注.
我正在编程的应用程序将在我在游戏中时截取屏幕截图.

我已经写了屏幕捕获代码,但我错过了最后一篇文章,任何建议将不胜感激.

解决方法

您可以注册一个热键(使用 RegisterHotKey和 UnregisterHotKey功能),并在按下该键时使用WM_HOTKEY消息进行拦截.

试试这个样本

type
  TForm3 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
     procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
  end;

var
  Form3: TForm3;

implementation


{$R *.dfm}


{ TForm3 }

const
  SaveScreeenHK=666;

procedure TForm3.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle,SaveScreeenHK,MOD_CONTROL,VK_F10);
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle,SaveScreeenHK);
end;

procedure TForm3.WMHotKey(var Message: TMessage);
begin
 //call your method here
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!