delphi程序全局热键的自定义方法

全局热键的意思是指，当程序并不是当前窗口的时候，按下热键也可以响应。

以前做这种功能用过一种方法，是编写一个键盘钩子的DLL，过滤系统中所有的键盘消息，当然还要再写一个程序去调用它。这种方法做起来麻烦了一起，不过倒是黑客窃取键盘密码雏形。

这里介绍的方法是利用windows api直接注册热键，分三步走：
1、增加一个全局Atom
2、为Atom注册一个全局热键（这样相应的键盘消息就会分配给本程序了）
3、写相应的HotKey响应处理代码

再进一步，如果需要让用户自定义热键，就需要在界面上放一个标准的THotKey控件，这个控件允许用户自己输入热键，不过它的输出是TShortCut，在Menus单元中有几个函数（ShortCutToKey, ShortCutToText）可以把TShortCut转换成文本和其他类型。

全部代码如下

 程序代码

uses
  ..., Menus;
  
type
  TForm1 = class(TForm)
    ...
  private
    HotKey_Key: Word;
    HotKey_Shift: Word;
    Aatom: Atom;
    procedure HotKey(var Msg: TMessage); message WM_HOTKEY;     //定义全局热键消息事件
    ...
  end;
  
....

procedure TForm1.FormCreate(Sender: TObject);
begin
  Aatom := GlobalAddAtom('MYHOTKEY');               //全局热键ID
  GetHotKey(HotKey1.HotKey);
end;
  
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Handle, Aatom); //反注册全局热键
  GlobalDeleteAtom(Aatom);
end;

procedure TForm1.HotKey(var Msg: TMessage);        //热键响应事件
begin
  if ((Msg.LParamHi = HotKey_Key) and (Msg.LParamLo = HotKey_Shift)) then    //全局热键
  begin
    ShowMessage('Hot Key Pressed!');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);  //注册热键
var
  T: TShiftState;
  function ShiftStateToWord(Shift:TShiftState): Word;
  begin
    if ssShift in Shift then Result :=MOD_SHIFT else Result := 0;
    if ssCtrl in Shift then Result :=Result or MOD_CONTROL;
    if ssAlt in Shift then Result:=Result or MOD_ALT;
  end;
begin
  ShortCutToKey(HotKey1.HotKey, HotKey_Key, T);
  HotKey_Shift := ShiftStateToWord(T);
  
  RegisterHotKey(Handle, Aatom, HotKey_Shift, HotKey_Key); //注册全局热键
end;