易语言保护眼睛桌面源码

系统结构:设置嵌入,取得窗口信息_,设置窗口信息,设置窗口透明度,寻找顶级窗口_,GetWindow,SetParent,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 设置嵌入
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _滑块条1_位置被改变
           |  |
           |  |------ _颜色选择器1_颜色被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取得窗口信息_
           |  |
           |  |---[dll]------   设置窗口信息
           |  |
           |  |---[dll]------   设置窗口透明度
           |  |
           |  |---[dll]------   寻找顶级窗口_
           |  |
           |  |---[dll]------   GetWindow
           |  |
           |  |---[dll]------   SetParent

调用的DLL命令:

.DLL命令 取得窗口信息_, 整数型, "user32.dll", "GetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 属性, 整数型

.DLL命令 设置窗口信息, 整数型, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 设置项目, 整数型
    .参数 设置值, 整数型

.DLL命令 设置窗口透明度, 整数型, , "SetLayeredWindowAttributes"
    .参数 窗口句柄, 整数型
    .参数 颜色值, 整数型
    .参数 透明度, 整数型
    .参数 dwFlags, 整数型

.DLL命令 寻找顶级窗口_, 整数型, "user32.dll", "FindWindowA", , FindWindow,寻找窗口列表中第一个符合指定条件的顶级窗口
    .参数 窗口类名, 文本型, , lpClassName，参见相关帮助
    .参数 窗口文本, 整数型, , lpWindowName，参见相关帮助

.DLL命令 GetWindow, 整数型, , "GetWindow"
    .参数 hwnd, 整数型
    .参数 cmd, 整数型

.DLL命令 SetParent, 整数型, , "SetParent"
    .参数 hwnd, 整数型
    .参数 hwnd2, 整数型