计算器载入透明窗口易语言源码

系统结构:SetParent,取父窗口_,findwindow,SetLayeredWindowAttributes,GetWindowLongA,SetWindowLongA,GetSystemWindowsDirectory,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetParent
           |  |
           |  |---[dll]------   取父窗口_
           |  |
           |  |---[dll]------   findwindow
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   GetWindowLongA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   GetSystemWindowsDirectory

调用的DLL命令:

.DLL命令 SetParent, 长整数型, , "SetParent", , 指定一个窗口的新父,返回前一个父窗口的句柄
    .参数 hWndChild, 整数型, , 子窗口的句柄
    .参数 hWndNewParent, 整数型, , 新父窗口

.DLL命令 取父窗口_, 整数型, "user32", "GetParent", , 判断指定窗口的父窗口  父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;

.DLL命令 findwindow, 整数型, "user32", "FindWindowA"
    .参数 lpClassName, 整数型
    .参数 lpWindowName, 文本型

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

.DLL命令 GetWindowLongA, 整数型, , "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nindex, 整数型

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nindex, 整数型
    .参数 dwnewlong, 整数型

.DLL命令 GetSystemWindowsDirectory, , , "GetSystemWindowsDirectoryA"
    .参数 lpBuffer, 文本型
    .参数 uSize, 整数型