调整控件大小2

系统结构:移动标签,钩子处理,处理,拆分整数,CallNextHookEx,UnhookWindowsHookEx,SetWindowsHookExA,GetModuleHandleA,WindowFromPoint,GetWindowRect,执行窗口程序,置窗口特征,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 移动标签
           |  |
           |  |------ 钩子处理
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 处理
           |  |
           |  |------ 拆分整数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   SetWindowsHookExA
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   执行窗口程序
           |  |
           |  |---[dll]------   置窗口特征

调用的DLL命令:

.DLL命令 CallNextHookEx, 整数型, , "CallNextHookEx"
    .参数 hook, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 UnhookWindowsHookEx, 整数型, "user32.dll", "UnhookWindowsHookEx", , 卸载一个钩字
    .参数 hook, 整数型

.DLL命令 SetWindowsHookExA, 整数型, "user32.dll", "SetWindowsHookExA", , 安装一个钩子
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 hmod, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 GetModuleHandleA, 整数型, , "GetModuleHandleA"
    .参数 a, 整数型, , 0

.DLL命令 WindowFromPoint, 整数型, "user32.dll", "WindowFromPoint"
    .参数 x
    .参数 y

.DLL命令 GetWindowRect, , , "GetWindowRect"
    .参数 hwnd
    .参数 rect, rect, 传址

.DLL命令 执行窗口程序, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 置窗口特征, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针, , 仅易语言3.0支持