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;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。