易语言嵌入式时钟源码

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

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _版权_被选择
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindow
           |  |
           |  |---[dll]------   SetParent
           |  |
           |  |---[dll]------   寻找顶级窗口_
           |  |
           |  |---[dll]------   取得窗口信息_
           |  |
           |  |---[dll]------   设置窗口信息
           |  |
           |  |---[dll]------   设置窗口透明度
           |  |
           |  |---[dll]------   取系统目录

调用的DLL命令:

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

.DLL命令 SetParent, 整数型, "user32.dll"
    .参数 hWndChild, 整数型
    .参数 hWndNewParent, 整数型

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

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

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

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

.DLL命令 取系统目录, 逻辑型, "shell32.dll", "SHGetSpecialFolderPathA"
    .参数 窗口句柄, 整数型
    .参数 路径, 文本型
    .参数 标识, 整数型
    .参数 是否创建, 逻辑型, , 真：不存在就创建，假：不创建