|
发表于 2025-8-29 23:41:28
|
显示全部楼层
河南省南阳市
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 hDesktop, 整数型
.子程序 __启动窗口_创建完毕
hDesktop = FindWindowEx (FindWindow (“Progman”, “Program Manager”), 0, “SysListView32”, “FolderView”)
如果真 (hDesktop = 0)
hDesktop = FindWindow (“Progman”, “Program Manager”) ' 备用方案
' 这里可以安装钩子或定时检查,但更建议用子类化(需要API挂钩)
.子程序 判断是否桌面空白处双击, 逻辑型, 公开, 真表示空白,假表示图标或其他
.参数 x, 整数型
.参数 y, 整数型
.局部变量 pt, POINTAPI
.局部变量 lvHitTest, LVHITTESTINFO
pt.x = x
pt.y = y
' 转换坐标到桌面列表视图客户区
ScreenToClient (hDesktop, pt)
lvHitTest.pt.x = pt.x
lvHitTest.pt.y = pt.y
' 发送命中测试消息
如果真 (SendMessage (hDesktop, #LVM_HITTEST, 0, lvHitTest) ≠ -1)
返回假 ' 命中图标
返回真 |
|