全API实现鼠标穿透窗体,源码是API函数的应用教程。
.版本 2
.子程序 _按钮1_被单击
.局部变量 ws, 整数型
ws = GetWindowLong (取窗口句柄 (), #GWL_EXSTYLE)
ws = 位或 (ws, #WS_EX_TRANSPARENT)
ws = 位或 (ws, #WS_EX_LAYERED)
SetWindowLong (取窗口句柄 (), #GWL_EXSTYLE, ws)
全API实现鼠标穿透窗体,源码是API函数的应用教程。