delphi - 如何在 Windows 中 Hook 全局快捷方式？

Question

我记得几年前使用过一个程序，它允许我通过自定义 Gamma 斜坡和其他调整来微调显示器的设置。它能够为不同的用途创建不同的屏幕设置配置文件，并设置全局热键快捷键来激活它们，而无需退出您所在的程序。

我的问题是，你如何为此设置 Hook ？当我只想在一个屏幕上访问桌面而想继续在另一个屏幕上工作时，我厌倦了 WINDOWS-D 最小化所有内容。 (我有 2 个显示器是有原因的!)所以我认为编写一个 Delphi 小应用程序应该不会那么困难，它将最小化一台显示器上的所有内容。唯一的问题是将其连接到热键。有谁知道这个 API 是什么？

Answer 1

http://www.swissdelphicenter.ch/torry/showcode.php?id=147

基本上分为三个步骤:

注册

// Register Hotkey Win + A
id1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(Handle, id1, MOD_WIN, VK_A);

句柄

procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

{ .... }

// Trap Hotkey Messages
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = id1 then
    ShowMessage('Win + A pressed !');

注销

UnRegisterHotKey(Handle, id1);
GlobalDeleteAtom(id1);