摘了一段程序,够用的了。
procedure WMHotkeyHandle(var Msg:TMessage);message WM_HOTKEY; //响应敏感键按键消息
var
HotkeyId :Integer;
procedure TForm1.WMHotkeyHandle(var Msg:TMessage);
begin //mod_Alt
if (Msg.LParamHi=$13) and (msg.lparamLo=MOD_CONTROL) then
begin
Msg.Result:=1; //该消息已经处理
{做你需要做的事情}
end;
end;
HotkeyId:=GlobalAddAtom(Pchar('UserDefineHotKey'))-$C000; //减去$C000是为了保证取值范围的限制
RegisterHotkey(Handle,Hotkeyid,MOD_CONTROL , $13);//MOD_Alt
UnRegisterhotkey(Handle,HotkeyId);
DeleteAtom(HotKeyID);