delphi - 如何制作热键 Hook ？ "Background hotkeys "

Question

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

Answer 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;

---

• 注意事项

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

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