易语言Vista透明皮肤源码

系统结构:处理皮肤,皮肤初始化,透明去色,搜索文件,窗口_置信息_DLL,窗口_置透明度_DLL,窗口_取信息_DLL,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 处理皮肤
           |  |
           |  |------ 皮肤初始化
           |  |
           |  |------ _调整窗口_鼠标左键被按下
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _关闭按钮_被单击
           |  |
           |  |------ _窗口停靠时钟_周期事件
           |  |
           |  |------ _皮肤_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 透明去色
           |  |
           |  |------ 搜索文件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   窗口_置信息_DLL
           |  |
           |  |---[dll]------   窗口_置透明度_DLL
           |  |
           |  |---[dll]------   窗口_取信息_DLL

调用的DLL命令:

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

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

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