Delphi 全局热键



  • 主要代码
procedure TForm1.HotKey(var msg: TMessage);
begin
  if msg.WParam =FHotKeyId_Alt_Down then
    Memo1.Lines.Add('Alt Down')
  else if msg.WParam =FHotKeyId_Alt_Up then
    Memo1.Lines.Add('Alt Up')
  else if msg.WParam =FHotKeyId_Ctrl_F12 then
    Memo1.Lines.Add('Ctrl + F12');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FHotKeyId_Alt_Down := GlobalAddAtom('MyHotKey_Alt_Down'); { 全局热键ID }
  RegisterHotKey(Self.Handle, FHotKeyId_Alt_Down, MOD_ALT, VK_MENU); { 注册全局热键 Alt Down }
  FHotKeyId_Alt_Up := GlobalAddAtom('MyHotKey_Alt_Up'); { 全局热键ID }
  RegisterHotKey(Self.Handle, FHotKeyId_Alt_Up, MOD_ALT, 0); { 注册全局热键 Alt Up }
  FHotKeyId_Ctrl_F12 := GlobalAddAtom('MyHotKeyCtrl_F12'); { 全局热键ID }
  RegisterHotKey(Self.Handle, FHotKeyId_Ctrl_F12, MOD_CONTROL, VK_F12); { 注册全局热键 Ctrl + F12 }
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnregisterHotKey(Handle, FHotKeyId_Alt_Down); { 反注册全局热键 }
  GlobalDeleteAtom(FHotKeyId_Alt_Down);
  UnregisterHotKey(Handle, FHotKeyId_Alt_Up); { 反注册全局热键 }
  GlobalDeleteAtom(FHotKeyId_Alt_Up);
  UnregisterHotKey(Handle, FHotKeyId_Ctrl_F12); { 反注册全局热键 }
  GlobalDeleteAtom(FHotKeyId_Ctrl_F12);
end;

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值