声明
...
private
KeyID: ATOM;
Seted : Boolean;
public
procedure WMHotKey(var Message: TWMHOTKEY)
message WM_HOTKEY;
...
注册热键:
procedure ...
begin
if not Seted then
begin
KeyID := GlobalAddAtom('My HotKey Id');
RegisterHotKey(Handle, KeyID, MOD_CONTROL + MOD_ALT, 0);
end;
end;
响应消息
procedure TForm1.WMHotKey(var Message: TWMHOTKEY);
begin
...
调用对话框
end;
注销热键
procedure ...
begin
if Seted then UnregisterHotKey(Handle, KeyID);
end;