Delphi 热键处理hotkey

单元引用：Uses Winapi.Messages;

 函数声明：   procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;

热键注册：窗体create中

HotKeyId := GlobalAddAtom('MyHotKey') - $C000;
  RegisterHotKey(Handle, HotKeyId, 0, 032);

函数实现：

procedure TTFormMain.HotKeyDown(var Msg: Tmessage);
begin
 { if not g_isStart  then   Exit;
  if  (Msg.LParamHi = 032) then
  begin
    if Timer1.Enabled then
    begin
       Timer1.Enabled:=false;
       PlayMusic(m_myAdoquery.GetDrawMusic);
       //定时中g_KeyNumber 自动加1 所以要减1 才是要的结果
       self.SetInfoText(m_myDestUser.Strings[g_KeyNumber-1]+'    '+inttostr(g_KeyNumber-1));
    end
    else begin
       Timer1.Enabled:=true;
       PlayMusic(m_myAdoquery.GetRollMusic);
    end;
  end;
  }
end;

退出时：UnRegisterHotKey(handle, HotKeyId);