|
发表于 2010-10-1 09:07:24
|
显示全部楼层
山东省烟台市
.版本 2
.子程序 注册热键, 整数型, 公开, 注册一个全局热键(成功返回热键ID,失败返回0)
.参数 窗口句柄, 整数型, 可空, 响应热键事件的标签句柄.在标签反馈事件中响应热键(双击标签).参数一为响应的热键ID
.参数 键代码, 整数型, 可空, 需要注册的热键
.参数 功能键, 整数型, 可空, 1 Alt 2 Ctrl 4 Shitf 8 Win 若要两个或以上的状态键按则把它们的值相加.
.局部变量 热键ID计数, 整数型, 静态
.局部变量 临时, dnjutby
.局部变量 n, 整数型
.计次循环首 (取数组成员数 (brtgh465yh), n)
.如果真 (brtgh465yh [n].一般键 = 键代码 且 brtgh465yh [n].功能键状态 = 功能键)
brtgh465yh [n].一般键 = -1 ' 清除响应条件
_撤消热键钩子 (brtgh465yh [n].窗口句柄, brtgh465yh [n].热键ID)
.如果真结束
.计次循环尾 ()
.如果真 (_注册热键 (窗口句柄, 热键ID计数 + 1, 功能键, 键代码) ≠ 0) ' RegisterHotKey返回的并不是热键的ID
热键ID计数 = 热键ID计数 + 1 ' 热键的ID也等于热键的数量.
临时.热键ID = 热键ID计数
临时.窗口句柄 = 窗口句柄
' 这两个成员在这里没有太大用处,可以在自定义数据类型里删除这两成员----------------------
临时.功能键状态 = 功能键
临时.一般键 = 键代码
' -------------------------------------------------------------------------------------
加入成员 (brtgh465yh, 临时)
.如果真 (取数组成员数 (brtgh465yh) = 1)
trh465h5rg = 窗口句柄
brh65he = _设置窗口特征 (窗口句柄, -4, &sbhyyds5yh5)
.如果真结束
返回 (热键ID计数)
.如果真结束
返回 (0)
|
评分
-
查看全部评分
|