delphi程序中定义热键

delphi程序中定义热键

 

　　用到3个API函数

BOOL RegisterHotKey         (         HWND hWnd,         //响应该热键的窗口句柄         Int id,         //该热键的唯一标识         UINT fsModifiers,         //该热键的辅助按键         UINT vk         //该热键的键值         );

　　为了得到唯一标识，我们还将用到另一个API函数

ATOM GlobalAddAtom         (         LPCTSTR lpString         //自己设定的一个字符串         );

 

　　因为我们还要在程序退出的时候，消除这个热键， 所以需要声明一个全局变量：

　　HotKeyId: Integer;

　　第一步：

　　在窗口的create事件中，加入以下代码

　　HotKeyId := GlobalAddAtom('MyHotKey') - $C000;

　　注： HotKeyId的合法取之范围是0x0000到0xBFFF之间， GlobalAddAtom函数得到的值 在0xC000到0xFFFF之间，所以减掉0xC000来满足调用要求。

　　第二步：

　　在上面的代码下面加入：

　　RegisterHotKey(Handle, hotkeyid, MOD_ALT, VK_F8);

　　热键的辅助按键包括Mod_Ctrl 、Mod_Alt、Mod_Shift,对于Windows兼容键盘还支持Windows 键，即其键面上有Windows标志的那个键，其值为Mod_win。

　　上面 的代码注册了一个热键：ALT+F8。当然如果你希望象TAKEIT那样，只用F8, 就这么写：

　　RegisterHotKey(Handle, hotkeyid, 0, VK_F8);

　　注：handle是一个特殊的变量，它表示当前窗口的句柄。

　　这个函数你应该能句举一反三了吧。

转载于:https://www.cnblogs.com/honeynm/p/4371287.html