要定义一个全局热键，通常有三个步骤：
1、定义Windows的消息WM_HOTKEY的HOOK链，即
procedure MyShortCut(Var Message:TMessage);Message WM_HOTKEY;
2、向Windows加入一个全局原子hotkey:GlobalAddAtom(’hotkey’), 并保留其句柄
3、向Windows登记热键链： RegisterHotKey 函数原形如下
BOOL RegisterHotKey(
HWND hWnd, // 连接热键的窗口句柄
int id, // 全局原子句柄
UINT fsModifiers, // 热键修饰标志
UINT vk // 虚拟键盘码
);
这里，fsModifiers是指虚拟键盘码vk结合何种键一起生成WM_HOTKEY的消息，它是下列三值的组合：
MOD_ALT // ALT 键必须按下
MOD_CONTROL // CTRL 键必须按下
MOD_SHIFT // SHIFT 键必须按下
有了这些准备，你就可以定义自己喜欢的方式了。
下面是一个范例，当CTRL+Q在任何时候被按下时，都会打出“你好，Crtl+Q被按下”的信息。
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
protected
procedure myshortcut(var message: TMessage); message WM_HOTKEY;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
id:Integer;
implementation
{$R *.DFM}
procedure TForm1.myshortcut(var message: TMessage);
begin
ShowMessage(’你好，Crtl + Q 被按下’);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
id:=GlobalAddAtom(’hotkey’);
RegisterHotKey(Handle,id,MOD_CONTROL,88); // 88是Q的ASCII值
end;
退出时候取消热键定义：
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle,id);
end;