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;