易语言玻璃透明界面源码

系统结构:取窗口风格,设置窗口,设置透明,SkinH_Attach,SkinH_SetAero,SkinH_AdjustAero,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口风格
           |  |
           |  |---[dll]------   设置窗口
           |  |
           |  |---[dll]------   设置透明
           |  |
           |  |---[dll]------   SkinH_Attach
           |  |
           |  |---[dll]------   SkinH_SetAero
           |  |
           |  |---[dll]------   SkinH_AdjustAero

调用的DLL命令:

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

.DLL命令 设置窗口, 整数型, , "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nindex, 整数型
    .参数 dwnewlong, 整数型

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

.DLL命令 SkinH_Attach, , "SkinH_EL.dll", "SkinH_Attach"

.DLL命令 SkinH_SetAero, , "SkinH_EL.dll", "SkinH_SetAero"
    .参数 hWnd, 整数型

.DLL命令 SkinH_AdjustAero, , "SkinH_EL.dll", "SkinH_AdjustAero"
    .参数 透明度, 整数型
    .参数 亮度, 整数型
    .参数 锐度, 整数型
    .参数 阴影大小, 整数型
    .参数 水平偏移, 整数型
    .参数 垂直偏移, 整数型
    .参数 红色分量, 整数型
    .参数 绿色分量, 整数型
    .参数 蓝色分量, 整数型