监视热键模块源码 可传递自定义参数

.子程序 注册_, 整数型, , 成功返回热键标识，失败返回0。
.参数 处理函数, 整数型, , 处理事件,3个整数型参数：1、热键标识。2、自定义数据1。3、自定义数据2。
.参数 键代码, 整数型, , 1-300(表长度)之间，超出范围无效。
.参数 功能键, 整数型, , 可以为：0-无功能键；1-CTRL键状态；2-SHIFT键状态；4-ALT键状态；8-Win键状态或各键状态值之和。
.参数 自定义数据1, 整数型, , 自定义数据，将传递到处理函数。
.参数 自定义数据2, 整数型, , 自定义数据，将传递到处理函数。
.参数 监视放开, 逻辑型, , 真为监视按键放开，假为监视按键按下。默认为假。
.参数 返回数量, 整数型

.如果真 (键代码 ＜ 1 或 键代码 ＞ 程_表长度 或 功能键 ＜ 0 或 功能键 ＞ 15 或 安装 (真) ＝ 假)
返回 (0)
.如果真结束
功能键 ＝ 功能键 ＋ 1
.判断开始 (监视放开)
.如果真 (程_表_热键 [键代码].放开 [功能键] ＝ 0)
程_表_热键 [键代码].放开 [功能键] ＝ 全_子程序.生成 (处理函数, 自定义数据1, 自定义数据2, 键代码, 功能键, 1, 返回数量)
' 程_表_热键 [键代码].放开 [功能键] ＝ 全_子程序.生成 (热键分跳, 标签句柄的2, 自定义数据2, 键代码, 功能键, 1)
.如果真 (程_表_热键 [键代码].放开 [功能键] ≠ 0)
程_热键数量 ＝ 程_热键数量 ＋ 1
全_子程序.置自定义数据 (程_表_热键 [键代码].放开 [功能键], 1, 1)
返回 (程_表_热键 [键代码].放开 [功能键])
.如果真结束

.如果真结束

.默认
.如果真 (程_表_热键 [键代码].按下 [功能键] ＝ 0)
程_表_热键 [键代码].按下 [功能键] ＝ 全_子程序.生成 (处理函数, 自定义数据1, 自定义数据2, 键代码, 功能键, 1, 返回数量)
.如果真 (程_表_热键 [键代码].按下 [功能键] ≠ 0)
程_热键数量 ＝ 程_热键数量 ＋ 1
返回 (程_表_热键 [键代码].按下 [功能键])
.如果真结束

.如果真结束

.判断结束
.如果真 (程_热键数量 ＝ 0)
UnhookWindowsHookEx (程_监视热键句柄)
程_监视热键句柄 ＝ 0
.如果真结束
返回 (0)