Delphi全局熱鍵的注冊

1.在窗啟動時創建ATOM;(aatom:ATOM;定義在private中）

  if FindAtom('ZWXhotKey')=0 then
  begin
    aatom:=GlobalAddAtom('ZWXhotKey');
  end;
  if RegisterHotKey(Handle,aatom,MOD_ALT,$41) then
  begin
    MessageBox(Handle,'按alt+a','提示',MB_OK);
  end;

 

2.定義處理熱鍵的消息過程(定義在private中,下面二個處理消息的過程是一樣的)

    procedure hotkey(var msg:TMessage);message WM_HOTKEY;//定義全局熱鍵消息事件
  //procedure hotkey2(var msg:TWMHotKey);message WM_HOTKEY;//同上

3.消息過程的處理（下面二個IF任選一個即可,如果msg在步驟2定義成TWMHotKey，則不用轉換）

procedure TForm2.hotkey(var msg: TMessage);
begin
  if TWMHotKey(msg).HotKey=aatom then
  begin
    //ShowMessage('s');
  end;
  if (msg.LParamHi=$41) and (msg.LParamLo=MOD_ALT) then
  begin
       //處理事情
  end;
end;

4.程序關閉時，刪除熱鍵和原子

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnregisterHotKey(Handle,aatom);
  GlobalDeleteAtom(aatom);
end;