delphi全局键盘钩子

一只长不大的小菜鸟

于 2024-04-03 14:23:01 发布

阅读量167

点赞数 1

分类专栏： delphi 文章标签：低代码

本文链接：https://blog.csdn.net/qq_24719313/article/details/135679607

版权

delphi 专栏收录该内容

18 篇文章 2 订阅

订阅专栏

该篇文章介绍了如何在Delphi中创建一个简单的应用，通过注册热键Ctrl+F12来触发`WMHotKey`事件，当用户按下这个组合键时，会显示一条消息。

摘要由CSDN通过智能技术生成

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 100, MOD_CONTROL, VK_F12);
//如果是ctrl+F12组合键，那么就执行事件
//RegisterHotKey(Handle, 100, 0, VK_F12);如果是0，代表只按F12
end;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = 100 then
  begin
    ShowMessage('Ctrl + F12 was pressed.');
  end;

  inherited;
end;

end.

亲测有效

感谢chatgpt的支持