注冊全局熱鍵(實例熱鍵顯示和隱藏窗體) ctrl+alt+aunit Unit1;

interface

uses
? Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
? Dialogs;

type
? TForm1 = class(TForm)
? ? procedure FormCreate(Sender: TObject);
? ? procedure FormClose(Sender: TObject; var Action: TCloseAction);
? private
? ? procedure HotKeyDown(var Msg: TMessage); message WM_HOTKEY;
? public
? ? { Public declarations }????HotKeyId: Integer;
? end;

var
? Form1: TForm1;

implementation

{$R *.dfm}
?


procedure TForm1.HotKeyDown(var Msg: TMessage);
begin
? {
? ? Alt鍵 MOD_ALT
? ? Ctrl鍵 MOD_CONTROL
? ? Shift鍵 MOD_SHIFT
? ? 其他更多鍵在輸入時代碼會有提示
? ? }
? if (Msg.LparamLo = MOD_ALT + MOD_CONTROL)and(Msg.LParamHi = VkKeyScan('a')) then
? ? ? ? Visible := not Visible;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
? HotKeyId := GlobalAddAtom('MyHotKey');
? RegisterHotKey(Handle, HotKeyId,?MOD_ALT?+?MOD_CONTROL, VkKeyScan('a')); { Ctrl+Alt+a }
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
? UnRegisterHotKey(Handle, HotKeyId); // 注銷HotKey, 釋放資源。
? DeleteAtom(HotKeyId);
end;

end.


來自為知筆記(Wiz)

附件列表

?

轉載于:https://www.cnblogs.com/xe2011/p/3428269.html

總結

以上是生活随笔為你收集整理的注册全局热键的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。