[size=18px]id := GlobalAddAtom('hotkey');
Memo1.Lines.Append('注冊首選熱鍵......');
uj5u.com熱心網友回復：
向全域原子表添加一個字串，并回傳這個字串的唯一識別符號，不用管“[size=18px]”，字體大小的意思；
第二句就好理解了，Memo1里加一行文字。
uj5u.com熱心網友回復：
delphi全域熱鍵//訊息處理
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;
//注冊熱鍵==============================
//globalAddAtom 向全域原子表添加一個字串
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);
//釋放熱鍵
UnregisterHotKey( Handle, FShowkeyid );
GlobalDeleteAtom(FShowkeyid);
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/71385.html
標籤：VCL組件開發及應用