易语言BASS音乐盒源码

系统结构:监听,子程序_设置列表ID,加载XML,取中间,模块_透明窗口背景,模块_置文件关联,GetWindowLong,SetWindowLong,SetLayeredWindowAttributes,SHChangeNotify,判断窗口句柄_,判断窗口最小化_,恢复窗口_,激活窗口,DLL命令1,

======主程序
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 监听
           |  |
           |  |------ 子程序_设置列表ID
           |  |
           |  |------ _透明标签1_鼠标左键被按下
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |------ _图形按钮1_被单击
           |  |
           |  |------ _图形按钮3_被单击
           |  |
           |  |------ _图形按钮4_被单击
           |  |
           |  |------ _图形按钮5_被单击
           |  |
           |  |------ _图形按钮6_被单击
           |  |
           |  |------ _超级列表框1_表项被激活
           |  |
           |  |------ _图形按钮8_鼠标左键被按下
           |  |
           |  |------ _图形按钮8_鼠标左键被放开
           |  |
           |  |------ _图形按钮8_鼠标位置被移动
           |  |
           |  |------ _超级列表框1_按下某键
           |  |
           |  |------ _图形按钮10_鼠标左键被按下
           |  |
           |  |------ _图形按钮10_鼠标左键被放开
           |  |
           |  |------ _图形按钮10_鼠标位置被移动
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ _删除选中_被选择
           |  |
           |  |------ _删除全部_被选择
           |  |
           |  |------ _图形按钮9_被单击
           |  |
           |  |------ _透明标签5_鼠标左键被按下
           |  |
           |  |------ _图形按钮2_被单击
           |  |
           |  |------ _透明标签7_鼠标左键被按下
           |  |
           |  |------ 加载XML
           |  |
           |  |------ 取中间
           |  |
           |  |------ _透明标签8_鼠标左键被按下
           |  |
           |  |------ _多_滚动条1_位置被改变
           |  |
           |  |------ _超级列表框1_滚轮被滚动
           |  |
           |  |
======模块
           |  |
           |  |------ 模块_透明窗口背景
           |  |
           |  |------ 模块_置文件关联
           |  |
           |  |
======窗口1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   SHChangeNotify
           |  |
           |  |---[dll]------   判断窗口句柄_
           |  |
           |  |---[dll]------   判断窗口最小化_
           |  |
           |  |---[dll]------   恢复窗口_
           |  |
           |  |---[dll]------   激活窗口
           |  |
           |  |---[dll]------   DLL命令1

调用的DLL命令:

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

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

.DLL命令 SetLayeredWindowAttributes, 整数型, "user32", "SetLayeredWindowAttributes"
    .参数 hwnd, 整数型
    .参数 crKey, 整数型
    .参数 bAlpha, 字节型
    .参数 dwFlags, 整数型

.DLL命令 SHChangeNotify, , "shell32", "SHChangeNotify"
    .参数 SHCNE_ASSOCCHANGED, 整数型
    .参数 SHCNF_IDLIST, 整数型
    .参数 nil, 整数型
    .参数 nil, 整数型

.DLL命令 判断窗口句柄_, 整数型, "user32.dll", "IsWindow", , 判断一个窗口句柄是否有效
    .参数 窗口句柄, 整数型, , hwnd,待检查窗口的句柄

.DLL命令 判断窗口最小化_, 整数型, "user32.dll", "IsIconic", , 判断窗口是否已最小化
    .参数 窗口句柄, 整数型, , hwnd,待检测窗口的句柄

.DLL命令 恢复窗口_, 整数型, "user32.dll", "OpenIcon"
    .参数 窗口句柄, 整数型, , hwnd，窗口句柄

.DLL命令 激活窗口, , , "SetForegroundWindow"
    .参数 窗口句柄, 整数型, , hwnd，窗口句柄

.DLL命令 DLL命令1