注册全局快捷键

// Ctrl+F5
// 设置一个唯一ID
HotKeyID := GlobalAddAtom('HotKeyID');
// 辅助快捷键 MOD_ALT, MOD_CONTROL, MOD_SHIFT, MOD_WIN, 0
ControlKeyInt := MOD_CONTROL;
FnKeyInt := VK_F5;
RegisterHotKey(self.Handle, HotKeyID, ControlKeyInt, FnKeyInt);

监听全局快捷键事件

// 定义函数原型
procedure WMHotykey(var msg: TMessage); message WM_HOTKEY;

// 实现方法
procedure TMainForm.WMHotykey(var msg: TMessage);
begin
 if (msg.LParamLo = ControlKeyInt) and (msg.LParamHi = FnKeyInt) then
 begin
    // do something
 end;
end;

取消注册全局快捷键

UnregisterHotKey(self.Handle, HotKeyID);