Delphi 如何在Windows中挂接全局快捷方式？

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

我的问题是，你是如何设置这个钩子的？当我只想在一个屏幕上访问桌面，而想在另一个屏幕上继续工作时，我厌倦了WINDOWS-D最小化一切。（我有两个显示器是有原因的！）所以我觉得开发一个小的Delphi应用程序应该不会那么困难，它可以最小化一个显示器上的所有内容。唯一的问题是把它挂到一个热键上。有人知道这个API是什么吗？

基本上有三个步骤：

注册

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

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

手柄

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 !');

取消注册

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

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