DELPHI如何注册系统热键

dingrj

墨衍会员 · AI 创作全网分发码龄21年

关注

转载最新推荐文章于 2020-03-05 09:13:33 发布 2.3k 阅读 AI 写同款· GEO 优化 ›

AI权益加码！Claude Code、Cursor等20+工具免费用！购周边限时加赠Coding Plan Lite，畅享主流AI工具！学习进阶更高效！阅读详情

用DELPHI如何注册系统热键 (2003年10月21日)

发表日期：2003-3-1 文章作者：未知 已浏览： 357 次 字体大小：[ - +]

本站更新　分类:系统　作者:龙门刀客　推荐:　阅读次数:393　
(http://www.tommstudio.com/newclub30/)　

用到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是一个特殊的变量，它表示当前窗口的句柄。

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

原理：

一旦热键设置成功，在程序应用过程中如果有相应的键被按下，Windows系统都会给你的应
用程序发送一个消息WM_HOTKEY，不管你的应用程序是否为当前活动的。其中WM_HOTKEY消
息的格式为：　

idHotKey = (int) wParam； // 该参数在设置系统级的热键有用，一般不予使用
fuModifiers = (UINT) LOWORD(lParam)；　//热键的辅助按键
uVirtKey = (UINT) HIWORD(lParam)； //热键的键值

第三步：

注册了热键，就该写下响应代码了。

首先，在程序头部分的private段中加入声明（作用是声明这个过程，和声明变量类似。
关于如何声明函数、过程，请请参考各自的帮助文件或其它资料）：

procedure HotKeyDown(var Msg: Tmessage)； message WM_HOTKEY；

然后在程序中加入如下代码:

procedure Tfmain.HotKeyDown(var Msg: Tmessage)；
begin
if (Msg.LparamLo = MOD_ALT) AND Msg.LParamHi = VK_F8 then // 假设热键为ALT+F8
begin
end；
end；

最后一步：

在窗口的close事件中加入

UnRegisterHotKey(handle， HotKeyId)； //注销HotKey，释放资源。