.版本 2 .支持库 spec .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .子程序 免打扰判定 .局部变量 lpPoint, 坐标_ .局部变量 Hwnd, 整数型 .局部变量 窗口大小, RECT 取鼠标位置_ (lpPoint) Hwnd ＝ 取指定点窗口句柄_ (lpPoint.横向位置, lpPoint.纵向位置) GetWindowRect (Hwnd, 窗口大小) .如果真 (窗口大小.Right － 窗口大小.Left ≥ 取屏幕宽度 ()) .如果真 (窗口大小.Bottom － 窗口大小.Top ≥ 取屏幕高度 ()) 调试输出 (“全屏”) 返回 () .如果真结束 .如果真结束 调试输出 (“非全屏”) .子程序 _时钟1_周期事件 免打扰判定 ()