定义全局热键

BOOL RegisterHotKey(      
    HWND hWnd,　　　     {窗口句柄}
    int id,　　　　　　　{热键标识}
    UINT fsModifiers,　{热键模式，是否按下MOD_WIN，MOD_SHIFT，MOD_CONTROL，MOD_ALT}
    UINT vk　     　　　 {热键虚拟键}
);

{定义一个全局变量}

    MY_ID: Integer; 　　　　 　　　　　　　　{全局因子}
    procedure  WMHotKey(var Msg :TWMHotKey); message WM_HOTKEY; 　{捕获Windows消息的　WM_HOTKEY的函数}

procedure   TForm1.WMHotKey (var Msg :TWMHotKey);　
begin
if   msg.HotKey  =  MY_ID   then
   form2.Visible := true;　　　　
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if  GlobalFindAtom('MY_IDHotKey') = 0  then   {首先全局因子是否存在}
  begin
    MY_ID:=GlobalAddAtom('MY_IDHotKey');     {生成全局因子}
    RegisterHotKey(handle,MY_ID,MOD_ALT+MOD_CONTROL,82);      {注册全局热键Ctrl+Alt+R,82是R的虚拟键值}
  end
  else
    halt;      {退出}
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(handle,MY_ID);   　　{注销热键}
  GlobalDeleteAtom(MY_ID); 　　　　　　 {删除全局因子}
end;