用设置热键的原理：
１、声明一个全局变量：
HotKeyId: Integer;
２、在窗口的create事件中，加入以下代码
HotKeyId := GlobalAddAtom(‘MyHotKey’) - $C000;
RegisterHotKey(Handle, hotkeyid, MOD_ALT, VK_F8);
３、在程序头部分的private段中加入声明：
procedure HotKeyDown(var Msg: Tmessage);
message WM_HOTKEY;
具体实现：
procedure Tfmain.HotKeyDown(var Msg: Tmessage);
begin
// 假设热键为ALT+F8
if (Msg.LparamLo = MOD_ALT) AND (Msg.LParamHi = VK_F8)
then
begin
......
end;
end;
４、在窗口的close事件中加入
UnRegisterHotKey(handle, HotKeyId);
//注销HotKey, 释放资源。
大概就是这几步！具体的ＡＰＩ怎样用自己查书吧！
