.版本 2 .子程序 开始吸附, 逻辑型, 公开, 注意：开始吸附后，窗口不能被销毁，也不能加入新窗口 .参数 是否有主窗口, 逻辑型, 可空, 默认真。主窗口为第一个加入的窗口。当其他窗口吸在主窗口上时，会随着主窗口一起移动。若此参数为假，则认为所有窗口都是独立的。 .参数 是否检测屏幕边缘, 逻辑型, 可空, 默认真。此参数决定是否吸住屏幕边缘 .局部变量 X, 整数型 .如果真 (是否为空 (是否有主窗口)) 是否有主窗口 ＝ 真 .如果真结束 .如果真 (是否为空 (是否检测屏幕边缘)) 是否检测屏幕边缘 ＝ 真 .如果真结束 .如果真 (取数组成员数 (窗口句柄) ＝ 0 或 开始了) 返回 (假) .如果真结束 有主窗口 ＝ 是否有主窗口 检测屏幕边缘 ＝ 是否检测屏幕边缘 重定义数组 (吸附的窗口号, 假, 取数组成员数 (窗口句柄)) 重定义数组 (需要整体拖动的窗口, 假, 取数组成员数 (窗口句柄)) 重定义数组 (横向吸附线, 假, 取数组成员数 (窗口句柄) × 2 ＋ 选择 (是否检测屏幕边缘, 2, 0)) 重定义数组 (纵向吸附线, 假, 取数组成员数 (窗口句柄) × 2 ＋ 选择 (是否检测屏幕边缘, 2, 0)) ' 本源码来自三叶资源网(www.sanye.cx) 重新读取吸附线 (0) ' 读出所有窗口的吸附线 .如果真 (是否检测屏幕边缘) 重新读取吸附线_屏幕边缘 () .如果真结束 重定义数组 (旧过程号, 假, 0) 重定义数组 (窗口吸附线有效, 假, 0) .变量循环首 (1, 取数组成员数 (窗口句柄), 1, X) 加入成员 (旧过程号, SetWindowLong (窗口句柄 [X], -4, 到数值 (&消息处理子程序))) ' 截获窗口消息 加入成员 (窗口吸附线有效, 真) .变量循环尾 () 开始了 ＝ 真 返回 (真)