Delphi全局热键注册
2016-07-28 17:21
399 查看
private { Private declarations } Aatom: ATOM; procedure hotkey(var msg: TMessage); message WM_HOTKEY; procedure TForm1.FormCreate(Sender: TObject); begin if FindAtom('ZWXhotKey') = 0 then begin Aatom := GlobalAddAtom('ZWXhotKey'); end; if RegisterHotKey(Handle, Aatom, MOD_ALT, $41) then begin MessageBox(Handle, '按alt+a', '提示', MB_OK); end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin UnregisterHotKey(Handle, Aatom); GlobalDeleteAtom(Aatom); end; procedure TForm1.hotkey(var msg: TMessage); begin if (msg.LParamHi = $41) and (msg.LParamLo = MOD_ALT) then begin showmessage('Ctrl+A'); end; end;
相关文章推荐
- XE7下SSL运行环境配置
- Delphi无法正确动态调用C++ dll库的几个原因
- Delphi 拦截/封锁 点击窗体右上角 最小化 最大化 层叠 关闭 按钮
- Delphi 常用API函数 存档
- Delphi Project 之工程选项(Project Options)
- delphi中当某个单元格输入数据时,发生的事件
- DELPHI 指针使用
- Delphi中窗体的方法
- Delphi 停靠技术的应用3(两个窗体停靠成PageControl样式, 分页停靠)
- Delphi中挂接IWebBrowser2的自动化事件
- Delphi 一种简单的二进制校验方法,适用于简单的权限管理或开关控制
- delphi vclskin与MDI子窗体冲突--美化mainmenu与子窗体BorderIcons冲突
- Delphi~通过程序窗体句柄获取程序路径
- Delphi Thread
- 用Delphi+GLScene轻松打造3D场景、动画之GLScene基础
- Delphi 属性多参数使用
- typhon例子:cs,bufDataset(类似delphi的clientDataset),josn解析器
- delphi ini 文件读取
- delphi模态窗口跑到后面的解决办法
- Delphi 使窗体Showmodal后可以操作其他窗体