判断是否全屏易语言源码

判断是否全屏易语言源码

@BD高级经理

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕



.子程序 免打扰判定
.局部变量 lpPoint, 坐标_
.局部变量 Hwnd, 整数型
.局部变量 窗口大小, RECT

取鼠标位置_ (lpPoint)
Hwnd ＝ 取指定点窗口句柄_ (lpPoint.横向位置, lpPoint.纵向位置)
GetWindowRect (Hwnd, 窗口大小)
.如果真 (窗口大小.Right － 窗口大小.Left ≥ 取屏幕宽度 ())
    .如果真 (窗口大小.Bottom － 窗口大小.Top ≥ 取屏幕高度 ())
        调试输出 (“全屏”)
        返回 ()
    .如果真结束

.如果真结束
调试输出 (“非全屏”)

.子程序 _时钟1_周期事件

免打扰判定 ()