让任意外部程序窗口具有贴边隐藏效果

_判断是否接触到窗体所在区域 ()
y1 ＝ 矩形.上
x1 ＝ 矩形.左
宽 ＝ 矩形.右 － 矩形.左
高 ＝ 矩形.下 － 矩形.上
.如果 (y1 ≤ 0 且 y1 ≥ －高 且 坐标.x ＜ 矩形.左 或 坐标.x ＞ 矩形.右 或 坐标.y ＜ 矩形.上 或 坐标.y ＞ 矩形.下 且 是否接触到 ＝ 假)
y1 ＝ y1 － 25
MoveWindow (句柄, x1, y1, 宽, 高, 1)
.否则
MoveWindow (句柄, x1, 0, 宽, 高, 1)