怎么处理WM_HOTKEY消息?

Question

处理消息并能控制窗口上的控件就最好.

Answer 1

private
    HotKeyID:integer;  
protected
    procedure HotKey(var msg:TMessage); message WM_HOTKEY;
procedure TForm1.HotKey(var msg:TMessage);
begin
  if (msg.LParamLo = MOD_CONTROL) and (msg.LParamHi = 13) then
  begin
    Button1.Click;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
HotKeyID := GlobalAddAtom('HotKey');
RegisterHotKey(Handle,HotKeyID,MOD_CONTROL,13);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(Handle,HotKeyID);
end;