在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
Delphi 全局热键KeyPress 和 热键 API(RegisterHotKey、UnRegisterHotKey、GlobalAddAtom、GlobalDeleteAtom、GlobalFindAtom) 1、热键按作用分为:全局、局部、系统级
BOOL RegisterHotKey(
HWND hWnd, //响应该热键的窗口句柄
Int id, //该热键的唯一标识
UINT fsModifiers, //该热键的辅助按键
UINT vk //该热键的键值
);
fsModifiers 辅助按键的取值:
GlobalAddAtom 原型: ATOM GlobalAddAtom(
LPCTSTR lpString //增加一个字符串到全局原子列表中,并返回一个唯一标识值。
);
GlobalFindAtom 原型: ATOM GlobalFindAtom(
LPCTSTR lpString // 在全局原子列表中查找是否存在指定字符串
);
返回值: 如果在全局原子中存在要查找的字符串,则返回此字符串对应的ID值。没有找到则返回0。
HotKeyId: Integer; //声明一个全局变量
HotKeyId := GlobalAddAtom('MyHotKey') //取得唯一标识ID
RegisterHotKey(Handle, hotkeyid, MOD_ALT, VK_F9); //注册ALT+F9热键
RegisterHotKey(Handle, hotkeyid, 0, VK_F9); //注册F9热键
UnRegisterHotKey(handle, HotKeyId); //注销HotKey, 释放资源。
GlobalDeleteAtom('MyHotKey'); //
procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; //声明
procedure TForm1.HotKeyDown(var Msg: Tmessage);
begin
if (Msg.LparamLo = MOD_ALT) AND (Msg.LParamHi = VK_F9 then) // 假设热键为 ALT+F9
begin
//事件
end;
end;
4、注意事项: 当其他程序先注册了系统级的热键,则再注册热键无效。
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论