易语言win7效果窗口提示源码

系统结构:取状态栏高度,透明,系统状态栏信息_,设置透明,取窗口风格,置窗口风格,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_鼠标左键被按下
           |  |
           |  |------ _销毁_被单击
           |  |
           |  |------ 取状态栏高度
           |  |
           |  |------ _关闭_被单击
           |  |
           |  |------ _查看_被单击
           |  |
           |  |------ 透明
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   系统状态栏信息_
           |  |
           |  |---[dll]------   设置透明
           |  |
           |  |---[dll]------   取窗口风格
           |  |
           |  |---[dll]------   置窗口风格

调用的DLL命令:

.DLL命令 系统状态栏信息_, 整数型, "shell32.dll", "SHAppBarMessage", , SHAppBarMessage
    .参数 信息值, 整数型, , dwMessage
    .参数 数据结构, 状态栏信息, , pData

.DLL命令 设置透明, 整数型, , "SetLayeredWindowAttributes"
    .参数 hwnd, 整数型
    .参数 crkey, 整数型
    .参数 alpha, 字节型
    .参数 dwflags, 整数型

.DLL命令 取窗口风格, 整数型, , "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 置窗口风格, 整数型, , "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nindex, 整数型
    .参数 hnew, 整数型