Delphi全局热键的注册

1.在窗启动时创建ATOM;(aatom:ATOM;定义在private中）

   if FindAtom('ZWXhotKey')= then
   begin
     aatom:=GlobalAddAtom('ZWXhotKey');
   end;
   if RegisterHotKey(Handle,aatom,MOD_ALT,$) 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=$) 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;