易语言调整控件大小2源码

调整控件大小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支持