易语言窗口透明切换源码

系统结构:GetWindowLongA,SetLayeredWindowAttributes,ShowWindow,SetWindowLongA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ __启动窗口1_位置被改变
           |  |
           |  |------ __启动窗口1_鼠标位置被移动
           |  |
           |  |------ __启动窗口1_创建完毕
           |  |
           |  |------ __启动窗口1_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLongA
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   SetWindowLongA

调用的DLL命令:

.DLL命令 GetWindowLongA, 整数型, , , , 从指定窗口的结构中取得信息  由nIndex决定。零表示出错。会设置GetLastError
    .参数 hwnd, 整数型
    .参数 属性, 整数型

.DLL命令 SetLayeredWindowAttributes, 整数型
    .参数 hwnd, 整数型
    .参数 crKey, 整数型
    .参数 bAlpha, 整数型
    .参数 dwFlags, 整数型

.DLL命令 ShowWindow, 整数型
    .参数 hwnd, 整数型
    .参数 nCmdShow, 整数型

.DLL命令 SetWindowLongA, 整数型
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型