delphi程序热键

要定义一个全局热键，通常有三个步骤：     
　　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被按下”的信息。     
　　

[delphi] view plaincopyprint?

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;