易语言窗口上画方框源码

系统结构:使窗口透明,SetWindowLongA,SetLayeredWindowAttributes,GetWindowLongA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_鼠标左键被按下
           |  |
           |  |------ __启动窗口_鼠标位置被移动
           |  |
           |  |------ __启动窗口_鼠标左键被放开
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_尺寸被改变
           |  |
           |  |
======程序集1
           |  |
           |  |------ 使窗口透明
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   GetWindowLongA

调用的DLL命令:

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 hwnd, 整数型, , 句柄
    .参数 nIndex, 整数型, , -16=样式，-20=扩展样式
    .参数 dwNewLong, 整数型, , 新样式

.DLL命令 SetLayeredWindowAttributes, 逻辑型, , "SetLayeredWindowAttributes"
    .参数 hwnd, 整数型
    .参数 crKey, 整数型
    .参数 bAlpha, 字节型
    .参数 dwFlags, 整数型

.DLL命令 GetWindowLongA, 整数型, , "GetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 属性, 整数型