仿QQ吸附屏幕改进版

itcfan

功能 仿QQ隐藏边缘_初始化()
    线程开启("界面隐藏","")
    设置托盘("吸附界面",假)
结束

功能 界面隐藏()
    变量 hwnd,hwnds,宽,高,窗口宽,窗口高,x,y,父窗口句柄,孩子窗口句柄
    hwnds=窗口获取自我句柄()
    窗口置顶(hwnds,真)
    循环(真)
        动态库调用(获取资源路径("rc:dlltest.dll"),"int","ShowInTaskbar","int",hwnds,"int",0)
        系统获取分辨率(宽,高)
        窗口获取大小(hwnds,窗口宽,窗口高)
        hwnd=窗口获取鼠标所在句柄()
        孩子窗口句柄=hwnd
        遍历(变量 i = 0; i < 10; i++)
            父窗口句柄=窗口获取父窗口(孩子窗口句柄)
            如果(父窗口句柄>0)
                孩子窗口句柄=父窗口句柄
            否则如果(孩子窗口句柄>0)         
                hwnd=孩子窗口句柄
                跳出
            结束
        结束

        窗口获取位置(hwnds,x,y)        
        如果(hwnd!=hwnds)//各方向隐藏
            如果(y<=0)
                窗口设置位置(hwnds,x,-窗口高+5)
            否则如果(x<=0&&y>0)
                窗口设置位置(hwnds,-窗口宽+5,y)
            否则如果(x>=宽-窗口宽&&y>0)
                窗口设置位置(hwnds,宽-5,y)
            结束
        否则//各方向显示
            如果(y<=0)
                窗口设置位置(hwnds,x,0)
            否则如果(x<=0&&y>0)
                窗口设置位置(hwnds,0,y)
            否则如果(x>=宽-窗口宽&&y>0)
                窗口设置位置(hwnds,宽-窗口宽,y)
            结束
        结束
        等待(300)
    结束
结束

===========================================================

红色是修改的地方，效果是：
1、任务栏不出现标题。
2、窗口置顶方便出现。
3、增加托盘图标显示。
虽然只是增加几行代码，但也死了不少脑细胞！

还需要改进问题：
1、不是吸附屏幕时，窗口置顶会影响其它窗口。（想了半天没想到怎么解决：吸附时置顶，不是时取消置顶的方法，高手完善吧！）
2、双击托盘不会出现窗口。（没托盘源码，高手完善吧！）
3、软件最小化时，如吸附了屏幕，双击托盘闪一下就吸附屏幕了。（没托盘源码，高手完善吧！）


PS：管理员老大，TC5帮助文档的悬浮窗口代码好像有BUG啊！

veeyoo

，TC5帮助文档的悬浮窗口代码好像有BUG啊！
那个89行，i=1错了，提交几次了，也没见更改过