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;