Delphi全局热键注册

最新推荐文章于 2026-05-11 09:08:53 发布

原创最新推荐文章于 2026-05-11 09:08:53 发布 · 1.5k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于


  private
    { Private declarations }
    Aatom: ATOM;
    procedure hotkey(var msg: TMessage); message WM_HOTKEY;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FindAtom('ZWXhotKey') = 0 then
  begin
    Aatom := GlobalAddAtom('ZWXhotKey');
  end;
  if RegisterHotKey(Handle, Aatom, MOD_ALT, $41) then
  begin
    MessageBox(Handle, '按alt+a', '提示', MB_OK);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnregisterHotKey(Handle, Aatom);
  GlobalDeleteAtom(Aatom);
end;

procedure TForm1.hotkey(var msg: TMessage);
begin
  if (msg.LParamHi = $41) and (msg.LParamLo = MOD_ALT) then
  begin
    showmessage('Ctrl+A');
  end;
end;