delphi實現全域快速鍵的功能

    沒什麼複雜的，只是最近才用，跟大家分享一下

    全域快速鍵就是焦點不在這個系統時也管用的快速鍵
    1、首先需要註冊快速鍵

    FShowkeyid := GlobalAddAtom('mykey_show');    //F12    RegisterHotKey(handle, FShowkeyid, 0 VK_F12);               //ctrl+F12    RegisterHotKey(handle, FShowkeyid1, mod_control, VK_F12);       //alt+F12    RegisterHotKey(handle, FShowkeyid2, mod_alt, VK_F12);       //ctrl+alt+f12    RegisterHotKey(handle, FShowkeyid3, mod_control + mod_alt, VK_F12);  

    2、然後是收到快速鍵時進行的處理

    函式宣告如下

    procedure hotykey(var msg:TMessage); message WM_HOTKEY;

    實現如下

procedure TFMain.hotykey(var msg: TMessage);     begin      if (msg.LParamLo=MOD_CONTROL) and ( msg.LParamHi = VK_F12) then        //處理邏輯    end;

  3、最後釋放快速鍵   

UnregisterHotKey( Handle, FShowkeyid );