窗口类

牛X的孩子

看见精易模块里没有就写了个出来，判断窗口或组件是否置顶、可视和禁止的，希望采纳

.版本 2

.子程序 窗口_是否置顶, 逻辑型
.参数 句柄, 整数型
.局部变量 信息, 整数型

信息 ＝ GetWindowLong (句柄, -20)
.如果真 (位或 (信息, 8) ＝ 信息)
    返回 (真)
.如果真结束
返回 (假)

.子程序 窗口_是否可视, 逻辑型
.参数 句柄, 整数型
.局部变量 信息, 整数型

信息 ＝ GetWindowLong (句柄, -16)
.如果真 (位或 (信息, 268435456) ＝ 信息)
    返回 (真)
.如果真结束
返回 (假)

.子程序 窗口_是否禁止, 逻辑型
.参数 句柄, 整数型
.局部变量 信息, 整数型

信息 ＝ GetWindowLong (句柄, -16)
.如果真 (位或 (信息, 134217728) ＝ 信息)
    返回 (真)
.如果真结束
返回 (假)

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

还有判断窗口是否最大化和最小化的，虽然精易模块里已经有了，但是1个API解决5个命令节省了空间吧，希望一起采纳

.版本 2

.子程序 窗口_是否最大化, 逻辑型
.参数 句柄, 整数型
.局部变量 信息, 整数型

信息 ＝ GetWindowLong (句柄, -16)
.如果真 (位或 (信息, 16777216) ＝ 信息)
    返回 (真)
.如果真结束
返回 (假)

.子程序 窗口_是否最小化, 逻辑型
.参数 句柄, 整数型
.局部变量 信息, 整数型

信息 ＝ GetWindowLong (句柄, -16)
.如果真 (位或 (信息, 536870912) ＝ 信息)
    返回 (真)
.如果真结束
返回 (假)

冰点

窗口_是否可见 ("窗口句柄[整数型]")
窗口_是否最小化 ("窗口句柄[整数型]")
窗口_是否最大化 ("窗口句柄[整数型]")
窗口_是否在最顶端 ("进程名[文本型]", "窗口类名[文本型]", "窗口标题[文本型]")

收录 窗口_是否在最顶端_句柄（） 这个， 是否禁止直接调用api方式的，感谢提醒

冰点

没分类的都不会丢失的

牛X的孩子

冰点 发表于 2014-3-13 11:38
先关注了

什么时候可以给予采纳啊，目测都沉了

冰点

先关注了

kemi888

板凳到手，打遍全球

牛X的孩子

自己沙发