.版本 2
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 ifSub, 整数型
.程序集变量 preWinProc, 整数型
.程序集变量 ptSubroutine, 子程序指针
.程序集变量 run, 子程序指针
.子程序 __启动窗口_创建完毕
设置左键单击钩子 (按钮1.取窗口句柄 (), &子程序1)
.子程序 子程序1
信息框 (“测试”, 0, )
.子程序 _新窗口消息处理, 整数型
.参数 窗口句柄, 整数型
.参数 消息, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.判断开始 (消息 ＝ 513) ' 被单击
执行子程序 (run, )
返回 (0)
.默认
返回 (API_CallWindowProc (preWinProc, 窗口句柄, 消息, 参数一, 参数二))
.判断结束
.子程序 设置左键单击钩子
.参数 窗口句柄, 整数型
.参数 回调程序, 子程序指针, 可空
.如果真 (preWinProc ≠ 0)
返回 ()
.如果真结束
preWinProc ＝ API_SetWin dowLong (窗口句柄, -4, 到数值 (&_新窗口消息处理))
run ＝ 回调程序
ifSub ＝ 0
.版本 2
.DLL命令 API_CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
.参数 lpPrevWndFunc, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.DLL命令 API_SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息 指定数据的前一个值
.参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
.参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
.参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;
