闪电Direct界面库易语言模块源码

系统结构:消息处理,消息处理,取低16位,取高16位,Call,Proc,发送鼠标离开消息,判断控件ID,点是否在矩形内,创建,创建控件,置控件矩形,置控件图片,置窗口宽高,重画,SetWindowLong,TrackMouseEvent,CallWindowProc,SendMessage,窗口_置信息_DLL,窗口_置透明度_DLL,窗口_取信息_DLL,改变窗口_,取窗口矩形_,ShowWindow,取获取焦点窗口_,取前台窗口_,取父窗口_,取屏幕句柄_,设置窗口位置_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 消息处理
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 消息处理
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 取低16位
           |  |
           |  |------ 取高16位
           |  |
           |  |------ Call
           |  |
           |  |------ _Call
           |  |
           |  |
======DirectUI窗口
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ Proc
           |  |
           |  |------ 发送鼠标离开消息
           |  |
           |  |------ 判断控件ID
           |  |
           |  |------ 点是否在矩形内
           |  |
           |  |------ 创建
           |  |
           |  |------ 创建控件
           |  |
           |  |------ 置控件矩形
           |  |
           |  |------ 置控件图片
           |  |
           |  |------ 置窗口宽高
           |  |
           |  |------ 重画
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   TrackMouseEvent
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   窗口_置信息_DLL
           |  |
           |  |---[dll]------   窗口_置透明度_DLL
           |  |
           |  |---[dll]------   窗口_取信息_DLL
           |  |
           |  |---[dll]------   改变窗口_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   取获取焦点窗口_
           |  |
           |  |---[dll]------   取前台窗口_
           |  |
           |  |---[dll]------   取父窗口_
           |  |
           |  |---[dll]------   取屏幕句柄_
           |  |
           |  |---[dll]------   设置窗口位置_

调用的DLL命令:

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
    .参数 窗口句柄
    .参数 类型
    .参数 欲设值

.DLL命令 TrackMouseEvent, 整数型, "user32.dll", "TrackMouseEvent"
    .参数 lpEventTrack, 鼠标动作结构

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 函数地址, 整数型
    .参数 参数一, 整数型
    .参数 参数二, 整数型
    .参数 参数三, 整数型
    .参数 参数四, 整数型

.DLL命令 SendMessage, 整数型, , "SendMessageA"
    .参数 hWnd
    .参数 Msg
    .参数 wParam
    .参数 lParam

.DLL命令 窗口_置信息_DLL, 整数型, , "SetWindowLongA", , 值
    .参数 hwnd
    .参数 nIndex
    .参数 dwNewLong

.DLL命令 窗口_置透明度_DLL, 整数型, , "SetLayeredWindowAttributes"
    .参数 hwnd
    .参数 crkey
    .参数 alpha, 字节型
    .参数 dwflags

.DLL命令 窗口_取信息_DLL, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd
    .参数 nIndex, , ,  

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

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

.DLL命令 ShowWindow, 整数型, "user32", "ShowWindow", , 控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）  如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）
    .参数 hwnd, 整数型, , 窗口句柄，要向这个窗口应用由nCmdShow指定的命令
    .参数 nCmdShow, 整数型, , 为窗口指定可视性方面的一个命令。请用下述任何一个常数;SW_HIDE：隐藏窗口，活动状态给令一个窗口;SW_MINIMIZE：最小化窗口，活动状态给令一个窗口;SW_RESTORE：用原来的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOW：用当前的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOWMAXIMIZED：最大化窗口，并将其激活;SW_SHOWMINIMIZED：最小化窗口，并将其激活;SW_SHOWMINNOACTIVE：最小化一个窗口，同时不改变活动窗口;SW_SHOWNA：用当前的大小和位置显示一个窗口，不改变活动窗口;SW_SHOWNOACTIVATE：用最近的大小和位置显示一个窗口，同时不改变活动窗口;SW_SHOWNORMAL：与SW_RESTORE相同;

.DLL命令 取获取焦点窗口_, 整数型, "user32.dll", "GetFocus", , , GetFocus，获得拥有输入焦点的窗口的句柄

.DLL命令 取前台窗口_, 整数型, "user32", "GetForegroundWindow", , ,

.DLL命令 取父窗口_, 整数型, "user32", "GetParent", , , 判断指定窗口的父窗口  父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;

.DLL命令 取屏幕句柄_, 整数型, "user32", "GetDesktopWindow", , ,

.DLL命令 设置窗口位置_, 整数型, "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隐藏窗口等等