易语言代码背景可黑月编译

.循环判断首 ()
局_旧句柄 ＝ 窗口句柄
窗口句柄 ＝ GetWindow (窗口句柄, #GW_HWNDPREV)
.判断循环首 (窗口句柄 ≠ 0)
.如果真 (IsWindowVisible (窗口句柄))
GetWindowRect (窗口句柄, 局_新矩形)
.如果真 (取反 (局_新矩形.宽度 ＜ 局_旧矩形.左边 或 局_新矩形.左边 ＞ 局_旧矩形.宽度 或 局_新矩形.高度 ＜ 局_旧矩形.顶边 或 局_新矩形.顶边 ＞ 局_旧矩形.高度))'易语言代码背景可黑月编译，用到了模块黑月界面类3.7
返回 (真)
.如果真结束
系统_处理事件 ()
.如果真结束
.如果 (局_是否子)
窗口句柄 ＝ GetParent (局_旧句柄)
局_是否子 ＝ #WS_CHILD ＝ 位与 (GetWindowLongA (窗口句柄, #GWL_STYLE), #WS_CHILD)
.否则
跳出循环 ()
.如果结束
系统_处理事件 ()
.判断循环尾 ()
.循环判断尾 (窗口句柄 ≠ 0)