易语言按钮托盘源码

系统结构:置窗口托盘,调整宽度,取窗口位置,寻找子窗口,查找窗口,置窗口位置,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======程序集1
           |  |
           |  |------ 置窗口托盘
           |  |
           |  |------ 调整宽度
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口位置
           |  |
           |  |---[dll]------   _置父窗口
           |  |
           |  |---[dll]------   寻找子窗口
           |  |
           |  |---[dll]------   查找窗口
           |  |
           |  |---[dll]------   置窗口位置

调用的DLL命令:

.DLL命令 取窗口位置, 整数型, "user32", "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_

.DLL命令 _置父窗口, 整数型, "user32", "SetParent"
    .参数 子窗口, 整数型
    .参数 父窗口, 整数型

.DLL命令 寻找子窗口, 整数型, "user32", "FindWindowExA"
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 文本型

.DLL命令 查找窗口, 整数型, , "FindWindowA"
    .参数 lpClassName, 文本型, , 0
    .参数 lpWindowName, 文本型, , 标题

.DLL命令 置窗口位置, 整数型, , "SetWindowPos"
    .参数 句柄, 整数型
    .参数 hWndInsertAfter, 整数型
    .参数 左边, 整数型
    .参数 顶边, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 wFlags, 整数型