易语言列举窗口信息源码

系统结构:搜索子项目,DLL取子窗口句柄,DLL命令取窗口标题,DLL命令取父窗口句柄,DLL命令窗口是否可视,DLL画图标,DLL取设备场景,DLL取窗口位置,GetWindowLong,SetWindowLong,GetClassLong,SendMessage,DLL信息框,DLL命令取窗口进程,DLL命令窗口句柄是否有效,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _刷新按钮_被单击
           |  |
           |  |------ 搜索子项目
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ _树型框1_项目被选择
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DLL取子窗口句柄
           |  |
           |  |---[dll]------   DLL命令取窗口标题
           |  |
           |  |---[dll]------   DLL命令取父窗口句柄
           |  |
           |  |---[dll]------   DLL命令窗口是否可视
           |  |
           |  |---[dll]------   DLL画图标
           |  |
           |  |---[dll]------   DLL取设备场景
           |  |
           |  |---[dll]------   DLL取窗口位置
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetClassLong
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   DLL信息框
           |  |
           |  |---[dll]------   DLL命令取窗口进程
           |  |
           |  |---[dll]------   DLL命令窗口句柄是否有效

调用的DLL命令:

.支持库 ogrelib

.DLL命令 DLL取子窗口句柄, 整数型, "user32.dll", "FindWindowExA"
    .参数 hWnd1, 整数型, , 父窗口句柄
    .参数 hWnd2, 整数型, , 查找句柄起点
    .参数 lpsz1, 整数型
    .参数 lpsz2, 整数型

.DLL命令 DLL命令取窗口标题, 整数型, "user32.dll", "GetWindowTextA"
    .参数 hwnd, 整数型, , 窗口句柄
    .参数 string, 文本型, 传址, 返回文本
    .参数 cch, 整数型, , 文本长度

.DLL命令 DLL命令取父窗口句柄, 整数型, "user32.dll", "GetParent"
    .参数 hwnd, 整数型, , 子窗口句柄

.DLL命令 DLL命令窗口是否可视, 短整数型, "user32.dll", "IsWindowVisible", , 返回0 表示 不可视
    .参数 hwnd, 整数型

.DLL命令 DLL画图标, 整数型, "user32.dll", "DrawIcon"
    .参数 设备场景, 整数型
    .参数 位置x, 整数型
    .参数 位置y, 整数型
    .参数 图标指针, 整数型

.DLL命令 DLL取设备场景, 整数型, "user32.dll", "GetDC"
    .参数 设备句柄, 整数型

.DLL命令 DLL取窗口位置, 整数型, "user32.dll", "GetWindowRect"
    .参数 hwnd, 整数型
    .参数 位置, 矩形, 传址

.DLL命令 GetWindowLong, 整数型, "user32.dll", "GetWindowLongA"
    .参数 hWnd, 整数型
    .参数 Index, 整数型

.DLL命令 SetWindowLong, 整数型, "user32.dll", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 index, 整数型
    .参数 NewLong, 整数型

.DLL命令 GetClassLong, 整数型, "user32.dll", "GetClassLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 any

.DLL命令 DLL信息框, 整数型, "user32.dll", "MessageBoxA", , 建立消息框窗体　
    .参数 父窗口句柄, 整数型
    .参数 消息内容, 文本型
    .参数 窗口标题, 文本型
    .参数 按钮图标, 整数型

.DLL命令 DLL命令取窗口进程, 整数型, "user32.dll", "GetWindowThreadProcessId"
    .参数 句柄, 整数型
    .参数 PID, 整数型, 传址

.DLL命令 DLL命令窗口句柄是否有效, 逻辑型, "user32.dll", "IsWindow"
    .参数 hwnd, 整数型