如何制作热键挂钩？ “背景热键”

Posted 2023-03-17

【中文标题】如何制作热键挂钩？ “背景热键”

【英文标题】：How to make hotkey hooks? "Background hotkeys "

【发布时间】：2014-08-23 23:17:40

【问题描述】：

如何为我的应用程序制作热键挂钩，例如，如果 我按 CTRL + F2 它显示消息“hello world”，即使应用程序已最小化或正在其他应用程序上运行等？请告诉我例子或来源。

【参考方案1】：

一种选择是使用RegisterHotKey()。

此方法将向 Windows 注册热键或热键组合。当您的应用程序正在运行时，如果按下此热键组合，系统将通知它。要对此通知采取行动，您需要在附加到您注册热键的句柄的窗口过程中捕获WM_HOTKEY 消息。

实现这一点的最简单且最不容易出错的方法是使用AllocateHWND 创建一个专用句柄。我在这里使用了一个表单作为示例，但这也可以应用于非窗口类：

  TForm1 = class(TForm)
  private
    FHotkeyWnd : HWND;
    procedure HandleHotkey(var msg : TMessage);
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;     
  end;

您可以将其实现为：

const
  HOTKEY1_ID = 1;

constructor TForm1.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  FHotkeyWnd := AllocateHWND(HandleHotkey);
  RegisterHotKey(FHotkeyWnd, HOTKEY1_ID, MOD_CONTROL, VK_F2);
end;

destructor TForm1.Destroy;
begin
  UnregisterHotKey(FHotkeyWnd, HOTKEY1_ID);
  DeallocateHWND(FHotkeyWnd);
  inherited;
end;

procedure TForm1.HandleHotkey(var msg: TMessage);
begin
  if msg.Msg = WM_HOTKEY then begin
    ShowMessage('hello world')
  else
    Msg.Result := DefWindowProc(FHotkeyWnd, msg.Msg, msg.wParam, msg.lParam);
end;

---

注意事项

请记住，在 UIPI 生效的现代 Windows 版本（Vista、7、8...）中，当提升的应用程序（相对于您的应用程序）处于活动状态时，注册的热键不会触发。例如，如果您的应用程序作为用户级应用程序运行，并且登录用户当前正在提升（即：管理员权限）应用程序中工作，那么您将不会收到热键通知。这是一项重要的安全措施，可防止较高权限的应用程序将信息泄露给较低权限的应用程序。 Example.

如果这对您来说是一个重要的考虑因素，那么有一些方法可以绕过这个限制。最简单的方法是简单地强制您的应用程序具有管理员权限。这显然并不总是最好的答案。替代方案涉及更多，需要验证码对您的应用程序进行签名，并且超出了此答案的范围。

【讨论】：

由于RegisterHotKey() 绑定到特定的HWND，但Form 的HWND 不是持久的，当您想使用Form 的HWND 时，Form 的OnCreate 事件不是最佳选择。您应该改写表单的虚拟CreateWnd() 方法以调用RegisterHotKey()，并重写虚拟DestroyWnd() 方法以调用UnregisterHotKey()。这样，每次重新创建表单的 HWND 时都会注册热键。否则，请改为创建专用 HWND，例如使用 AllocateHWnd()。

@RemyLebeau 我已经回去重写了这个例子。我以前只使用专用句柄（使用AllocateHWND）完成此操作，并且没有意识到使用组件的句柄管理它是多么棘手。不知何故，我认为使用表单的句柄对于 OP 来说会更直接，但事实证明并非如此！

@J...: TForm 已经有一个 FHandle 成员，所以你应该给你的 HWND 一个更独特的名字。此外，AllocateHWnd () 窗口过程必须将未处理的消息（尤其是系统消息）传递给 DefWindowProc()，否则可能会发生坏事。

如何在 FireMonkey 中做到这一点？