这几天断网没及时看，谢谢楼上两位大神，一点打赏请查收

使用鼠标钩子 达到了你的目的 看看例子吧


创建按钮.e (758.59 KB, 下载次数: 37)

2019-1-7 20:05 上传

点击文件名下载附件

没设置      事件  点了能有什么反应。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
hWnd_Btn	整数型
winProc	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

hWnd_Btn ＝ CreateWindowExA (0, “Button”, “Click”, 位或 (268435456, 1073741824), 118, 22, 80, 40, _启动窗口.取窗口句柄 (), 0, 0, 0)
调试输出 (hWnd_Btn)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

winProc ＝ SetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_WNDPROC, 到整数 (&WinProc))
调试输出 (winProc)

子程序名	返回值类型	公开	备 注
WinProc	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
wMsg	整数型
wP	整数型
lP	整数型

如果真 (wMsg ＝ #WM_COMMAND )
如果真 (lP ＝ hWnd_Btn)
信息框 (“123456”, 0, , )

返回 (CallWindowProcA (winProc, hWnd, wMsg, wP, lP))

i支持库列表	支持库注释
spec	特殊功能支持库
const	(未知支持库)

.版本 2<br /> .支持库 spec<br /> .支持库 const<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 hWnd_Btn, 整数型<br /> .程序集变量 winProc, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> hWnd_Btn ＝ CreateWindowExA (0, “Button”, “Click”, 位或 (268435456, 1073741824), 118, 22, 80, 40, _启动窗口.取窗口句柄 (), 0, 0, 0)<br /> 调试输出 (hWnd_Btn)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> winProc ＝ SetWindowLongA (_启动窗口.取窗口句柄 (), #GWL_WNDPROC, 到整数 (&WinProc))<br /> 调试输出 (winProc)<br /> <br /> .子程序 WinProc, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 wMsg, 整数型<br /> .参数 wP, 整数型<br /> .参数 lP, 整数型<br /> <br /> .如果真 (wMsg ＝ #WM_COMMAND)<br />     .如果真 (lP ＝ hWnd_Btn)<br />         信息框 (“123456”, 0, , )<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (CallWindowProcA (winProc, hWnd, wMsg, wP, lP))