易语言操作窗口应用源码

系统结构:LimitWndSize,ReadWndInfo,WriteWndInfo,WndAutoFlex,WndAnimate,MessageDispose,ClockCycle,CallWindowProcA,SetWindowLongA,CopyMemoryToMinMaxInfo,CopyMemoryFromMinMaxInfo,SetProp,GetProp,GetWindowRect,MoveWindow,GetCursorPos,PtInRect,SetWindowPos,SetTimer,KillTimer,CreateRectRgn,DeleteObject,SetWindowRgn,CombineRgn,Sleep,SendMessageA,

======程序集_外部公开
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ LimitWndSize
           |  |
           |  |------ ReadWndInfo
           |  |
           |  |------ WriteWndInfo
           |  |
           |  |------ WndAutoFlex
           |  |
           |  |------ WndAnimate
           |  |
           |  |
======程序集_公共
           |  |
           |  |------ MessageDispose
           |  |
           |  |------ ClockCycle
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CopyMemoryToMinMaxInfo
           |  |
           |  |---[dll]------   CopyMemoryFromMinMaxInfo
           |  |
           |  |---[dll]------   SetProp
           |  |
           |  |---[dll]------   GetProp
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   PtInRect
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   KillTimer
           |  |
           |  |---[dll]------   CreateRectRgn
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   CombineRgn
           |  |
           |  |---[dll]------   Sleep
           |  |
           |  |---[dll]------   SendMessageA

调用的DLL命令:

.DLL命令 CallWindowProcA, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型, , 窗口的句柄
    .参数 msg, 整数型, , 消息常量标识符
    .参数 wParam, 整数型, , 32位消息的特定附加信息,通常是一个与消息有关的常量值，也可能是窗口或控件的句柄。
    .参数 lParam, 整数型, , 32位消息的特定附加信息,通常是一个指向内存中数据的指针。

.DLL命令 SetWindowLongA, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 CopyMemoryToMinMaxInfo, , "KERNEL32", "RtlMoveMemory"
    .参数 目标数据, _MINMAXINFO
    .参数 源数据指针, 整数型
    .参数 尺寸, 整数型

.DLL命令 CopyMemoryFromMinMaxInfo, , "KERNEL32", "RtlMoveMemory"
    .参数 目标数据指针, 整数型
    .参数 源数据, _MINMAXINFO
    .参数 尺寸, 整数型

.DLL命令 SetProp, 整数型, "user32", "SetPropA"
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

.DLL命令 GetProp, 整数型, "user32", "GetPropA"
    .参数 hwnd, 整数型
    .参数 lpString, 文本型

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

.DLL命令 MoveWindow, 整数型, "user32.dll", "MoveWindow"
    .参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
    .参数 左侧位置, 整数型, , x，窗口新的左侧位置
    .参数 顶部位置, 整数型, , y，窗口新的顶部位置
    .参数 新宽度, 整数型, , nWidth，窗口的新宽度
    .参数 高宽度, 整数型, , nHeight，窗口的高宽度
    .参数 是否重画, 整数型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

.DLL命令 GetCursorPos, 整数型, "user32", "GetCursorPos"
    .参数 位置, _POINTAPI

.DLL命令 PtInRect, 整数型, "user32", "PtInRect", , PtInRect这个函数判断指定的点是否位于矩形lpRect内部，非零表示成功，零表示失败。
    .参数 lpRect, _RECT, 传址
    .参数 x坐标, 整数型
    .参数 y坐标, 整数型

.DLL命令 SetWindowPos, 整数型, "user32.dll", "SetWindowPos", , Long，非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , Long，欲定位的窗口
    .参数 定位类型, 整数型, , Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。HWND_BOTTOM将窗口置于窗口列表底部HWND_TOP将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序HWND_TOPMOST将窗口置于列表顶部，并位于任何最顶部窗口的前面HWND_NOTOPMOST将窗口置于列表顶部，并位于任何最顶部窗口的后面
    .参数 窗口新横坐标, 整数型, , Long，窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示
    .参数 窗口新纵坐标, 整数型, , Long，窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示
    .参数 窗口新宽度, 整数型, , Long，指定新的窗口宽度
    .参数 窗口新高度, 整数型, , Long，指定新的窗口高度
    .参数 显示方式, 整数型, , Long，包含了旗标的一个整数SWP_DRAWFRAME围绕窗口画一个框SWP_HIDEWINDOW隐藏窗口等等

.DLL命令 SetTimer, 整数型, "user32.dll", "SetTimer"
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent
    .参数 时钟周期, 整数型, , uElapse
    .参数 回调函数地址, 子程序指针, , lpTimerFunc

.DLL命令 KillTimer, 整数型, "user32.dll", "KillTimer"
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent

.DLL命令 CreateRectRgn, 整数型, "gdi32.dll", "CreateRectRgn"
    .参数 X1, 整数型
    .参数 Y1, 整数型
    .参数 X2, 整数型
    .参数 Y2, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject"
    .参数 hObject, 整数型

.DLL命令 SetWindowRgn, 整数型, "user32", "SetWindowRgn"
    .参数 hwnd, 整数型
    .参数 hrgn, 整数型
    .参数 bRedraw, 逻辑型

.DLL命令 CombineRgn, 整数型, "gdi32.dll", "CombineRgn"
    .参数 hDestRgn, 整数型
    .参数 hSrcRgn1, 整数型
    .参数 hSrcRgn2, 整数型
    .参数 nCombineMode, 整数型

.DLL命令 Sleep, , "kernel32.dll", "Sleep"
    .参数 dwMilliseconds, 整数型

.DLL命令 SendMessageA, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;