怎么样注册使用全局热键呢？

botong · 发表于 2011-10-12 01:17:28

怎么样注册全局热键呢？不要模块噢。如题，另外对于易语言中的默认热键，比如在按钮标题后面加(&F),就是使用ALT+F作为热键，那么没有办法不用alt改用ctrl或shift之类的呢？

怪伱过分羙丽 · 发表于 2011-10-12 01:17:29

[e].版本 2

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用

卸载 ()

.子程序注册, 整数型, 公开, 注册一个全局热键. (成功返回热键ID,失败返回0)
.参数窗口句柄, 整数型, , 通常为取窗口句柄()
.参数功能键, 整数型, 可空, 1 Alt  2 Ctrl  4 Shitf  8 Win 若要两个或以上的状态键按则把它们的值相加.
.参数键代码, 整数型
.参数子程序指针, 子程序指针, , 响应热键事件的子程序指针,四个参数(窗口句柄,消息786,热键ID,参数)
.局部变量临时, dnjutby
.局部变量 n, 整数型

.计次循环首 (取数组成员数 (nmu6jry), n)
.如果真 (nmu6jry [n].一般键＝键代码且 nmu6jry [n].功能键状态＝功能键)
      nmu6jry [n].一般键＝ -1  ' 清除响应条件
      _撤消热键钩子 (nmu6jry [n].窗口句柄, nmu6jry [n].热键ID)
.如果真结束

.计次循环尾 ()

.如果真 (_注册热键 (窗口句柄, gfdhtyh65 ＋ 1, 功能键, 键代码) ≠ 0)  ' RegisterHotKey返回的并不是热键的ID
gfdhtyh65 ＝ gfdhtyh65 ＋ 1  ' 热键的ID也等于热键的数量.
临时.窗口句柄＝窗口句柄
' 这两个成员在这里没有太大用处,可以在自定义数据类型里删除这两成员----------------------
临时.功能键状态＝功能键
临时.一般键＝键代码
' -------------------------------------------------------------------------------------
临时.热键ID ＝ gfdhtyh65
临时.处理热键子程序＝子程序指针
加入成员 (nmu6jry, 临时)
.如果真 (gfdhtyh65 ＝ 1)
      bt5h5h ＝窗口句柄
      v3g53g ＝ _设置窗口特征 (窗口句柄, -4, &sh7trysw)
.如果真结束
返回 (gfdhtyh65)
.如果真结束
返回 (0)

.子程序撤销, 整数型, 公开, 撤销指定热键 (成功返回非0,失败返回0)
.参数窗口句柄, 整数型
.参数 HotKeyID, 整数型
.局部变量 n, 整数型

.计次循环首 (取数组成员数 (nmu6jry), n)
.如果真 (HotKeyID ＝ nmu6jry [n].热键ID)
      nmu6jry [n].一般键＝ -1  ' 清除响应条件
.如果真结束

.计次循环尾 ()
返回 (_撤消热键钩子 (窗口句柄, HotKeyID))

.子程序卸载, , 公开, 撤销所有热键并卸载,该命令会在本类销毁时自动被调用
.局部变量 n, 整数型

.计次循环首 (取数组成员数 (nmu6jry), n)
_撤消热键钩子 (nmu6jry [n].窗口句柄, nmu6jry [n].热键ID)
.计次循环尾 ()
gfdhtyh65 ＝ 0
重定义数组 (nmu6jry, 假, 0)
_设置窗口特征 (bt5h5h, -4, v3g53g)  ' 还原窗口过程函数

[/e]

全局热键源码

另外个问题的源码例子
[e].版本 2
.支持库 shellEx

.程序集窗口程序集1
.程序集变量 s, 整数型

.子程序 _按钮1_被单击

信息框 (“按钮1”, 0, )

.子程序 __启动窗口_创建完毕

s ＝注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #A键)

.子程序 _标签1_反馈事件, 整数型
.参数参数一, 整数型
.参数参数二, 整数型

_按钮1_被单击 ()

.子程序 __启动窗口_将被销毁

撤销热键 (_启动窗口.取窗口句柄 (), s)
[/e]