单元引用: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);