RegisterHotKey注册全局热键注册全局热键

//RegisterHotKey注册全局热键注册全局热键 

private
    { Private declarations }
    procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;
{
var
  Form1: TForm1; }
 HotKeyId:Integer; //声明变量

procedure TForm1.HotKeyDown(var Msg: Tmessage);
begin
  if (Msg.LparamLo = mod_alt) and (Msg.LParamHi = vk_F3) then
  begin
    if ShowWindow(Self.Handle,SW_SHOW) then ShowWindow(Self.Handle,SW_HIDE) //隐藏自身窗体
    else ShowWindow(Self.Handle,SW_SHOW) ; //显示自身窗体
  end;
end; 

procedure TForm1.FormCreate(Sender: TObject);
begin
    HotKeyId := GlobalAddAtom('MyHotKey') - $C000;
    RegisterHotKey(Self.Handle, HotKeyId, MOD_ALT, VK_F3);//
    {如果想注册其他热键可以在这里继续注册热键}
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    UnRegisterHotKey(Self.Handle, HotKeyId); //注销HotKey, 释放资源。
    DeleteAtom(HotKeyId);
end;

通过 Wiz 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/06/02/2531633.html