delphi - Windowsでグローバルショートカットをフックするにはどうすればよいですか？

Question

数年前に、カスタムガンマランプやその他の調整を使用してモニターの設定を微調整できるプログラムを使用したことを覚えています。さまざまな用途に合わせてさまざまな画面設定プロファイルを作成し、現在のプログラムから切り替えることなくそれらをアクティブ化するためのグローバルホットキーショートカットを設定する機能がありました。

私の質問は、そのためのフックをどのように設定するのですか？1つの画面でデスクトップにアクセスするだけで、もう1つの画面で作業を続けたい場合は、すべてを最小化するWINDOWS-Dにうんざりしています。（理由で2台のモニターがあります！）したがって、1台のモニターのすべてを最小化する小さなDelphiアプリをハックするのはそれほど難しいことではないと思います。唯一の問題は、それをホットキーにフックすることです。誰かがこれのためのAPIが何であるか知っていますか？

Answer 1

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

基本的に3つのステップがあります：

登録

// 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);