编译出来的程序 win7可以运行 win10就不行 报错

huazhengfeng000

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_媒体时间	整数型
集_当前时间	整数型

子程序名	返回值类型	公开	备 注
_添加文件_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
文件名	文本型
文件数组	文本型		0

文件名 ＝ 对话框_文件多选框 (取窗口句柄 (), “打开常用文件类型”, “支持的音频文件|*.mp3;*.wma;*.ape;*.ogg;*.flac;*.wav;*.m4a;*.mid;*.mpc;*.wave;*.cd;*.rm;*.tta;*.aiff;*.au;*.cue;*.dts|”, , )
如果真 (文件名 ≠ “”)
文件数组 ＝ 分割文本 (文件名, #换行符, )
添加文件子程序 (文件数组)

子程序名	返回值类型	公开	备 注
添加文件子程序
参数名	类 型	参考	可空	数组	备 注
获取的文件	文本型

变量名	类 型	静态	数组	备 注
行数	整数型
i	整数型
标签信息	音乐文件信息
时间	文本型
名称	文本型
名称1	文本型

记录集_歌曲列表.删除 (3)
计次循环首 (取数组成员数 (获取的文件), i)
标签信息 ＝ 取文件信息_M (获取的文件 [i])
时间 ＝ 标签信息.时间
名称 ＝ 标签信息.艺术家
名称1 ＝ 标签信息.歌曲标题
窗口.记录集_歌曲列表.到首记录 ()
窗口.记录集_歌曲列表.添加 ()
窗口.记录集_歌曲列表.写文本 (“歌曲”, 名称1)
窗口.记录集_歌曲列表.写文本 (“歌手”, 名称)
窗口.记录集_歌曲列表.写文本 (“时间”, 时间)
窗口.记录集_歌曲列表.写文本 (“歌曲路径”, 获取的文件 [i])
窗口.记录集_歌曲列表.到下一条 ()
计次循环尾 ()
窗口.记录集_歌曲列表.更新 ()
超级列表框_添加歌曲 ()

子程序名	返回值类型	公开	备 注
_时钟_歌曲进度_周期事件

变量名	类 型	静态	数组	备 注
分_整数	整数型
秒_整数	整数型
秒_文本	文本型
分_文本	文本型

集_当前时间 ＝ 取整 (bass.位置到时间 (文件句柄, bass.取播放位置 (文件句柄)))
分_整数 ＝ 集_当前时间 ＼ 60
秒_整数 ＝ 集_当前时间 ％ 60
如果 (分_整数 ＜ 10)
分_文本 ＝ “0” ＋ 到文本 (分_整数)
分_文本 ＝ 到文本 (分_整数)

如果 (秒_整数 ＜ 10)
秒_文本 ＝ “0” ＋ 到文本 (秒_整数)
秒_文本 ＝ 到文本 (秒_整数)

标签_歌曲进度.标题 ＝ 分_文本 ＋ “:” ＋ 秒_文本
进度条_歌曲进度.位置 ＝ 到整数 (bass.取播放位置 (文件句柄) ÷ bass.取媒体长度 (文件句柄) × 100)
如果真 (bass.取播放状态 (文件句柄) ＝ 0)
进度条_歌曲进度.位置 ＝ 0
时钟_歌曲进度.时钟周期 ＝ 0
启动线程 (&播放模式, , 播放句柄)

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
欲删除歌名	文本型

如果真 (超级列表框1.现行选中项 ＝ -1)
返回 ()
停止_歌曲 ()
全局_歌曲列表_选中项 ＝ 超级列表框1.现行选中项
播放超级列表框现行选中 ()

子程序名	返回值类型	公开	备 注
_滑块条_音量_位置被改变

如果 (滑块条_音量.位置 ＜ 10)
标签_音量.标题 ＝ “0” ＋ 到文本 (滑块条_音量.位置)
标签_音量.标题 ＝ 到文本 (滑块条_音量.位置)

音量_设置当前程序音量 (滑块条_音量.位置)

子程序名	返回值类型	公开	备 注
_窗口_将被销毁

bass.释放Bass ()
bass.关闭文件 (文件句柄)
强制结束线程 (频谱句柄)
强制结束线程 (播放句柄)
关闭accsse数据库 ()
删除进入许可证 (线程管理)

子程序名	返回值类型	公开	备 注
_窗口_创建完毕

资源皮肤 ( #皮肤_优雅 )
线程管理 ＝ 创建进入许可证 ()
打开accsse数据库 ()
超级列表框_添加歌曲 ()
读窗口界面 ()
启动线程 (&系统初始化, , )

子程序名	返回值类型	公开	备 注
系统初始化

全局_配置项路径 ＝ 取运行目录 () ＋ “\lib\music.ini”
全局_频谱类型 ＝ 真
程序_延时 (1000, )
配置项初始化 ()
启动初始化 ()
bass初始化 ()

子程序名	返回值类型	公开	备 注
_频谱时钟_周期事件

如果真 (全局_频谱类型 ＝ 真)
bass.画频谱2 (窗口.画板1, 文件句柄, , , #黑色, 5, 2)

子程序名	返回值类型	公开	备 注
_图形按钮_下一首_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果 (全局_歌曲列表_选中项 ＜ 超级列表框1.取表项数 () － 1)
全局_歌曲列表_选中项 ＝ 全局_歌曲列表_选中项 ＋ 1
如果 (全局_歌曲列表_选中项 ＝ 超级列表框1.取表项数 () － 1)
全局_歌曲列表_选中项 ＝ 0



超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项
超级列表框1.保证显示 (全局_歌曲列表_选中项)
停止_歌曲 ()
播放超级列表框现行选中 ()

子程序名	返回值类型	公开	备 注
_图片框_上一首_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

停止_歌曲 ()
添加提示 (图片框_上一首.取窗口句柄 (), “上一首”, 假, 假)
如果 (全局_歌曲列表_选中项 ＞ 0)
全局_歌曲列表_选中项 ＝ 全局_歌曲列表_选中项 － 1
如果 (全局_歌曲列表_选中项 ＝ 0)
全局_歌曲列表_选中项 ＝ 超级列表框1.取表项数 () － 1



超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项
超级列表框1.保证显示 (全局_歌曲列表_选中项)
播放超级列表框现行选中 ()

子程序名	返回值类型	公开	备 注
_图片框_播放_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

判断 (图片框_播放.图片 ＝ #播放 )
判断 (bass.取播放状态 (文件句柄) ＝ 3)
继续_歌曲 ()
线程_恢复 (频谱句柄)

判断 (bass.取播放状态 (文件句柄) ＝ 1)
停止_歌曲 ()
窗口.超级列表框1.获取焦点 ()
窗口.超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项
窗口.超级列表框1.保证显示 (全局_歌曲列表_选中项)
播放超级列表框现行选中 ()
窗口.超级列表框1.获取焦点 ()
窗口.超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项
窗口.超级列表框1.保证显示 (全局_歌曲列表_选中项)
播放超级列表框现行选中 ()
图片框_播放.图片 ＝ #暂停
判断 (图片框_播放.图片 ＝ #暂停 )
暂停_歌曲 ()
图片框_播放.图片 ＝ #播放

子程序名	返回值类型	公开	备 注
_图片框_停止_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

停止_歌曲 ()

子程序名	返回值类型	公开	备 注
_进度条_歌曲进度_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
坐标	精易_坐标
位置系数	小数型
n	整数型

坐标 ＝ 鼠标_取窗口坐标 (进度条_歌曲进度.取窗口句柄 ())
位置系数 ＝ 四舍五入 (坐标.横 ÷ 进度条_歌曲进度.宽度, 2)
如果真 (bass.取播放状态 (文件句柄) ＝ 1 或 bass.取播放状态 (文件句柄) ＝ 3)
进度条_歌曲进度.位置 ＝ 位置系数 × 100
暂停_歌曲 ()
线程_挂起 (频谱句柄)
时钟_歌曲进度.时钟周期 ＝ 0
bass.置播放位置 (文件句柄, 取整 (bass.取媒体长度 (文件句柄) × 位置系数))
继续_歌曲 ()
时钟_歌曲进度.时钟周期 ＝ 1000
线程_恢复 (频谱句柄)

子程序名	返回值类型	公开	备 注
_图片框_播放模式_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果 (分组框_播放模式.可视 ＝ 假)
分组框_播放模式.可视 ＝ 真
分组框_播放模式.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_单选框_单曲循环_被单击

全局_播放模式 ＝ “单曲循环”
播放模式写入配置项 (全局_播放模式)
分组框_播放模式.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_单选框_列表循环_被单击

全局_播放模式 ＝ “列表循环”
播放模式写入配置项 (全局_播放模式)
分组框_播放模式.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_单选框_随机播放_被单击

全局_播放模式 ＝ “随机播放”
播放模式写入配置项 (全局_播放模式)
分组框_播放模式.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (菜单, , )

子程序名	返回值类型	公开	备 注
_打开目录_被选择

文件_定位 (超级列表框1.取标题 (全局_歌曲列表_选中项, 5), )

子程序名	返回值类型	公开	备 注
_播放歌曲_被选择

' 播放超级列表框现行选中 ()

子程序名	返回值类型	公开	备 注
读窗口界面

添加提示 (图片框_上一首.取窗口句柄 (), “上一首”, 假, 假)
添加提示 (图片框_停止.取窗口句柄 (), “停止”, 假, 假)
添加提示 (图形按钮_下一首.取窗口句柄 (), “下一首”, 假, 假)
添加提示 (滑块条_音量.取窗口句柄 (), “单击调节音量”, 假, 假)
添加提示 (进度条_歌曲进度.取窗口句柄 (), “单击调节进度”, 假, 假)
添加提示 (标签_歌曲进度.取窗口句柄 (), “播放时间”, 假, 假)
添加提示 (标签_歌曲长度.取窗口句柄 (), “总时间”, 假, 假)
添加提示 (标签_音量.取窗口句柄 (), “当前音量”, 假, 假)
添加提示 (添加文件.取窗口句柄 (), “添加文件”, 假, 假)
添加提示 (图片框_播放模式.取窗口句柄 (), “播放模式”, 假, 假)

子程序名	返回值类型	公开	备 注
_图片框_播放_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

判断 (图片框_播放.图片 ＝ #播放 )
添加提示 (图片框_播放.取窗口句柄 (), “播放”, 假, 假)
添加提示 (图片框_播放.取窗口句柄 (), “暂停”, 假, 假)

i支持库列表	支持库注释
eDB	数据库操作支持库
EThread	多线程支持库
iext	扩展界面支持库一
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 shellEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_媒体时间, 整数型<br /> .程序集变量 集_当前时间, 整数型<br /> <br /> .子程序 _添加文件_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件数组, 文本型, , "0"<br /> <br /> 文件名 ＝ 对话框_文件多选框 (取窗口句柄 (), “打开常用文件类型”, “支持的音频文件|*.mp3;*.wma;*.ape;*.ogg;*.flac;*.wav;*.m4a;*.mid;*.mpc;*.wave;*.cd;*.rm;*.tta;*.aiff;*.au;*.cue;*.dts|”, , )<br /> .如果真 (文件名 ≠ “”)<br />     文件数组 ＝ 分割文本 (文件名, #换行符, )<br />     添加文件子程序 (文件数组)<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 添加文件子程序<br /> .参数 获取的文件, 文本型, 数组<br /> .局部变量 行数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 标签信息, 音乐文件信息<br /> .局部变量 时间, 文本型<br /> .局部变量 名称, 文本型<br /> .局部变量 名称1, 文本型<br /> <br /> 记录集_歌曲列表.删除 (3)<br /> .计次循环首 (取数组成员数 (获取的文件), i)<br />     标签信息 ＝ 取文件信息_M (获取的文件 <i>)<br />     时间 ＝ 标签信息.时间<br />     名称 ＝ 标签信息.艺术家<br />     名称1 ＝ 标签信息.歌曲标题<br />     窗口.记录集_歌曲列表.到首记录 ()<br />     窗口.记录集_歌曲列表.添加 ()<br />     窗口.记录集_歌曲列表.写文本 (“歌曲”, 名称1)<br />     窗口.记录集_歌曲列表.写文本 (“歌手”, 名称)<br />     窗口.记录集_歌曲列表.写文本 (“时间”, 时间)<br />     窗口.记录集_歌曲列表.写文本 (“歌曲路径”, 获取的文件 <i>)<br />     窗口.记录集_歌曲列表.到下一条 ()<br /> .计次循环尾 ()<br /> 窗口.记录集_歌曲列表.更新 ()<br /> 超级列表框_添加歌曲 ()<br /> <br /> <br /> .子程序 _时钟_歌曲进度_周期事件<br /> .局部变量 分_整数, 整数型<br /> .局部变量 秒_整数, 整数型<br /> .局部变量 秒_文本, 文本型<br /> .局部变量 分_文本, 文本型<br /> <br /> 集_当前时间 ＝ 取整 (bass.位置到时间 (文件句柄, bass.取播放位置 (文件句柄)))<br /> <br /> 分_整数 ＝ 集_当前时间 ＼ 60<br /> 秒_整数 ＝ 集_当前时间 ％ 60<br /> .如果 (分_整数 ＜ 10)<br />     分_文本 ＝ “0” ＋ 到文本 (分_整数)<br /> .否则<br />     分_文本 ＝ 到文本 (分_整数)<br /> .如果结束<br /> <br /> .如果 (秒_整数 ＜ 10)<br />     秒_文本 ＝ “0” ＋ 到文本 (秒_整数)<br /> .否则<br />     秒_文本 ＝ 到文本 (秒_整数)<br /> .如果结束<br /> <br /> 标签_歌曲进度.标题 ＝ 分_文本 ＋ “:” ＋ 秒_文本<br /> 进度条_歌曲进度.位置 ＝ 到整数 (bass.取播放位置 (文件句柄) ÷ bass.取媒体长度 (文件句柄) × 100)<br /> .如果真 (bass.取播放状态 (文件句柄) ＝ 0)<br />     进度条_歌曲进度.位置 ＝ 0<br />     时钟_歌曲进度.时钟周期 ＝ 0<br />     启动线程 (&播放模式, , 播放句柄)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 欲删除歌名, 文本型<br /> <br /> .如果真 (超级列表框1.现行选中项 ＝ -1)<br />     返回 ()<br /> .如果真结束<br /> 停止_歌曲 ()<br /> 全局_歌曲列表_选中项 ＝ 超级列表框1.现行选中项<br /> 播放超级列表框现行选中 ()<br /> <br /> .子程序 _滑块条_音量_位置被改变<br /> <br /> .如果 (滑块条_音量.位置 ＜ 10)<br />     标签_音量.标题 ＝ “0” ＋ 到文本 (滑块条_音量.位置)<br /> .否则<br />     标签_音量.标题 ＝ 到文本 (滑块条_音量.位置)<br /> .如果结束<br /> <br /> 音量_设置当前程序音量 (滑块条_音量.位置)<br /> <br /> .子程序 _窗口_将被销毁<br /> <br /> bass.释放Bass ()<br /> bass.关闭文件 (文件句柄)<br /> 强制结束线程 (频谱句柄)<br /> 强制结束线程 (播放句柄)<br /> 关闭accsse数据库 ()<br /> 删除进入许可证 (线程管理)<br /> <br /> <br /> .子程序 _窗口_创建完毕<br /> <br /> 资源皮肤 (#皮肤_优雅)<br /> 线程管理 ＝ 创建进入许可证 ()<br /> 打开accsse数据库 ()<br /> 超级列表框_添加歌曲 ()<br /> 读窗口界面 ()<br /> 启动线程 (&系统初始化, , )<br /> <br /> .子程序 系统初始化<br /> <br /> 全局_配置项路径 ＝ 取运行目录 () ＋ “\lib\music.ini”<br /> 全局_频谱类型 ＝ 真<br /> 程序_延时 (1000, )<br /> 配置项初始化 ()<br /> 启动初始化 ()<br /> bass初始化 ()<br /> <br /> .子程序 _频谱时钟_周期事件<br /> <br /> .如果真 (全局_频谱类型 ＝ 真)<br />     bass.画频谱2 (窗口.画板1, 文件句柄, , , #黑色, 5, 2)<br /> .如果真结束<br /> <br /> <br /> .子程序 _图形按钮_下一首_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (全局_歌曲列表_选中项 ＜ 超级列表框1.取表项数 () － 1)<br />     全局_歌曲列表_选中项 ＝ 全局_歌曲列表_选中项 ＋ 1<br /> .否则<br />     .如果 (全局_歌曲列表_选中项 ＝ 超级列表框1.取表项数 () － 1)<br />         全局_歌曲列表_选中项 ＝ 0<br />     .否则<br /> <br />     .如果结束<br /> <br /> <br /> .如果结束<br /> 超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项<br /> 超级列表框1.保证显示 (全局_歌曲列表_选中项)<br /> 停止_歌曲 ()<br /> 播放超级列表框现行选中 ()<br /> <br /> .子程序 _图片框_上一首_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 停止_歌曲 ()<br /> 添加提示 (图片框_上一首.取窗口句柄 (), “上一首”, 假, 假)<br /> .如果 (全局_歌曲列表_选中项 ＞ 0)<br />     全局_歌曲列表_选中项 ＝ 全局_歌曲列表_选中项 － 1<br /> .否则<br />     .如果 (全局_歌曲列表_选中项 ＝ 0)<br />         全局_歌曲列表_选中项 ＝ 超级列表框1.取表项数 () － 1<br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> 超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项<br /> 超级列表框1.保证显示 (全局_歌曲列表_选中项)<br /> 播放超级列表框现行选中 ()<br /> <br /> .子程序 _图片框_播放_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .判断开始 (图片框_播放.图片 ＝ #播放)<br />     .判断开始 (bass.取播放状态 (文件句柄) ＝ 3)<br />         继续_歌曲 ()<br />         线程_恢复 (频谱句柄)<br /> <br />     .判断 (bass.取播放状态 (文件句柄) ＝ 1)<br />         停止_歌曲 ()<br />         窗口.超级列表框1.获取焦点 ()<br />         窗口.超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项<br />         窗口.超级列表框1.保证显示 (全局_歌曲列表_选中项)<br />         播放超级列表框现行选中 ()<br />     .默认<br />         窗口.超级列表框1.获取焦点 ()<br />         窗口.超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项<br />         窗口.超级列表框1.保证显示 (全局_歌曲列表_选中项)<br />         播放超级列表框现行选中 ()<br /> <br />     .判断结束<br />     图片框_播放.图片 ＝ #暂停<br /> .判断 (图片框_播放.图片 ＝ #暂停)<br />     暂停_歌曲 ()<br />     图片框_播放.图片 ＝ #播放<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _图片框_停止_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 停止_歌曲 ()<br /> <br /> .子程序 _进度条_歌曲进度_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 坐标, 精易_坐标<br /> .局部变量 位置系数, 小数型<br /> .局部变量 n, 整数型<br /> <br /> 坐标 ＝ 鼠标_取窗口坐标 (进度条_歌曲进度.取窗口句柄 ())<br /> 位置系数 ＝ 四舍五入 (坐标.横 ÷ 进度条_歌曲进度.宽度, 2)<br /> .如果真 (bass.取播放状态 (文件句柄) ＝ 1 或 bass.取播放状态 (文件句柄) ＝ 3)<br />     进度条_歌曲进度.位置 ＝ 位置系数 × 100<br />     暂停_歌曲 ()<br />     线程_挂起 (频谱句柄)<br />     时钟_歌曲进度.时钟周期 ＝ 0<br />     bass.置播放位置 (文件句柄, 取整 (bass.取媒体长度 (文件句柄) × 位置系数))<br />     继续_歌曲 ()<br />     时钟_歌曲进度.时钟周期 ＝ 1000<br />     线程_恢复 (频谱句柄)<br /> .如果真结束<br /> <br /> <br /> .子程序 _图片框_播放模式_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (分组框_播放模式.可视 ＝ 假)<br />     分组框_播放模式.可视 ＝ 真<br /> .否则<br />     分组框_播放模式.可视 ＝ 假<br /> .如果结束<br /> <br /> <br /> .子程序 _单选框_单曲循环_被单击<br /> <br /> 全局_播放模式 ＝ “单曲循环”<br /> 播放模式写入配置项 (全局_播放模式)<br /> 分组框_播放模式.可视 ＝ 假<br /> <br /> .子程序 _单选框_列表循环_被单击<br /> <br /> 全局_播放模式 ＝ “列表循环”<br /> 播放模式写入配置项 (全局_播放模式)<br /> 分组框_播放模式.可视 ＝ 假<br /> <br /> .子程序 _单选框_随机播放_被单击<br /> <br /> 全局_播放模式 ＝ “随机播放”<br /> 播放模式写入配置项 (全局_播放模式)<br /> 分组框_播放模式.可视 ＝ 假<br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (菜单, , )<br /> <br /> .子程序 _打开目录_被选择<br /> <br /> 文件_定位 (超级列表框1.取标题 (全局_歌曲列表_选中项, 5), )<br /> <br /> .子程序 _播放歌曲_被选择<br /> <br /> ' 播放超级列表框现行选中 ()<br /> <br /> .子程序 读窗口界面<br /> <br /> 添加提示 (图片框_上一首.取窗口句柄 (), “上一首”, 假, 假)<br /> <br /> 添加提示 (图片框_停止.取窗口句柄 (), “停止”, 假, 假)<br /> 添加提示 (图形按钮_下一首.取窗口句柄 (), “下一首”, 假, 假)<br /> 添加提示 (滑块条_音量.取窗口句柄 (), “单击调节音量”, 假, 假)<br /> 添加提示 (进度条_歌曲进度.取窗口句柄 (), “单击调节进度”, 假, 假)<br /> 添加提示 (标签_歌曲进度.取窗口句柄 (), “播放时间”, 假, 假)<br /> 添加提示 (标签_歌曲长度.取窗口句柄 (), “总时间”, 假, 假)<br /> 添加提示 (标签_音量.取窗口句柄 (), “当前音量”, 假, 假)<br /> 添加提示 (添加文件.取窗口句柄 (), “添加文件”, 假, 假)<br /> 添加提示 (图片框_播放模式.取窗口句柄 (), “播放模式”, 假, 假)<br /> <br /> .子程序 _图片框_播放_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .判断开始 (图片框_播放.图片 ＝ #播放)<br />     添加提示 (图片框_播放.取窗口句柄 (), “播放”, 假, 假)<br /> .默认<br />     添加提示 (图片框_播放.取窗口句柄 (), “暂停”, 假, 假)<br /> .判断结束

  

窗口程序集名	保 留	保 留	备 注
数据库操作

子程序名	返回值类型	公开	备 注
打开accsse数据库

窗口.数据库连接1.连接Access (取运行目录 () ＋ “\lib\gequ.mdb”, “”)
窗口.记录集_歌曲列表.置连接 (窗口.数据库连接1)
窗口.记录集_歌曲列表.打开 (“gequ”, #数据表名, )
如果 (窗口.数据库连接1.是否已连接 ＝ 真 且 窗口.记录集_歌曲列表.是否已打开 ＝ 真)
窗口.标题 ＝ “音乐播放器 - 数据加载正常”
窗口.标题 ＝ “音乐播放器 - 数据库连接失败”

子程序名	返回值类型	公开	备 注
关闭accsse数据库			易语言学习资源、源码下载站：www.eyuyan.la

窗口.记录集_歌曲列表.关闭 ()
窗口.数据库连接1.关闭 ()

子程序名	返回值类型	公开	备 注
删除歌曲列表指定歌曲
参数名	类 型	参考	可空	数组	备 注
歌名	文本型

变量名	类 型	静态	数组	备 注
记录_计次	整数型

计次循环首 (窗口.记录集_歌曲列表.记录数量, 记录_计次)
窗口.记录集_歌曲列表.到首记录 ()
如果真 (窗口.记录集_歌曲列表.查找 (“歌名='” ＋ 歌名 ＋ “'”, 1))
窗口.记录集_歌曲列表.删除 (1)
跳出循环 ()
窗口.记录集_歌曲列表.到下一条 ()
计次循环尾 ()
窗口.记录集_歌曲列表.更新 ()

子程序名	返回值类型	公开	备 注
删除歌曲列表全部歌曲

窗口.记录集_歌曲列表.到首记录 ()
窗口.记录集_歌曲列表.删除 (3)
窗口.记录集_歌曲列表.更新 ()

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> .程序集 数据库操作<br /> <br /> .子程序 打开accsse数据库<br /> <br /> 窗口.数据库连接1.连接Access (取运行目录 () ＋ “\lib\gequ.mdb”, “”)<br /> 窗口.记录集_歌曲列表.置连接 (窗口.数据库连接1)<br /> 窗口.记录集_歌曲列表.打开 (“gequ”, #数据表名, )<br /> .如果 (窗口.数据库连接1.是否已连接 ＝ 真 且 窗口.记录集_歌曲列表.是否已打开 ＝ 真)<br />     窗口.标题 ＝ “音乐播放器 - 数据加载正常”<br /> .否则<br />     窗口.标题 ＝ “音乐播放器 - 数据库连接失败”<br /> .如果结束<br /> <br /> <br /> .子程序 关闭accsse数据库, , , 易语言学习资源、源码下载站：<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> <br /> 窗口.记录集_歌曲列表.关闭 ()<br /> 窗口.数据库连接1.关闭 ()<br /> <br /> .子程序 删除歌曲列表指定歌曲<br /> .参数 歌名, 文本型<br /> .局部变量 记录_计次, 整数型<br /> <br /> .计次循环首 (窗口.记录集_歌曲列表.记录数量, 记录_计次)<br />     窗口.记录集_歌曲列表.到首记录 ()<br />     .如果真 (窗口.记录集_歌曲列表.查找 (“歌名='” ＋ 歌名 ＋ “'”, 1))<br />         窗口.记录集_歌曲列表.删除 (1)<br />         跳出循环 ()<br />     .如果真结束<br />     窗口.记录集_歌曲列表.到下一条 ()<br /> .计次循环尾 ()<br /> 窗口.记录集_歌曲列表.更新 ()<br /> <br /> <br /> .子程序 删除歌曲列表全部歌曲<br /> <br /> 窗口.记录集_歌曲列表.到首记录 ()<br /> 窗口.记录集_歌曲列表.删除 (3)<br /> 窗口.记录集_歌曲列表.更新 ()

  

窗口程序集名	保 留	保 留	备 注
超级列表框控制

子程序名	返回值类型	公开	备 注
超级列表框_添加歌曲

变量名	类 型	静态	数组	备 注
记录_计次	整数型
歌名	文本型
歌手	文本型
歌曲路径	文本型
歌词路径	文本型
图片路径	文本型
表项索引	整数型
序号	文本型
时间	文本型

窗口.超级列表框1.全部删除 ()
窗口.记录集_歌曲列表.到首记录 ()
如果真 (窗口.记录集_歌曲列表.记录数量 ＞ 0)
窗口.记录集_歌曲列表.到首记录 ()
计次循环首 (窗口.记录集_歌曲列表.记录数量, 记录_计次)
窗口.记录集_歌曲列表.读文本 (“歌曲”, 歌名)
窗口.记录集_歌曲列表.读文本 (“歌手”, 歌手)
窗口.记录集_歌曲列表.读文本 (“时间”, 时间)
窗口.记录集_歌曲列表.读文本 (“歌曲路径”, 歌曲路径)
表项索引 ＝ 窗口.超级列表框1.插入表项 (, , , , , )
判断 (记录_计次 ＜ 10)
序号 ＝ “00” ＋ 到文本 (记录_计次)
判断 (记录_计次 ＜ 100)
序号 ＝ “0” ＋ 到文本 (记录_计次)


窗口.超级列表框1.置标题 (表项索引, 1, 序号)
窗口.超级列表框1.置标题 (表项索引, 2, 歌名)
窗口.超级列表框1.置标题 (表项索引, 3, 歌手)
窗口.超级列表框1.置标题 (表项索引, 4, 时间)
窗口.超级列表框1.置标题 (表项索引, 5, 歌曲路径)
窗口.记录集_歌曲列表.到下一条 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
播放模式

判断 (全局_播放模式 ＝ “单曲循环”)
窗口.超级列表框1.获取焦点 ()
窗口.超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项
窗口.超级列表框1.保证显示 (全局_歌曲列表_选中项)
播放超级列表框现行选中 ()

判断 (全局_播放模式 ＝ “列表循环”)
播放下一首 ()
判断 (全局_播放模式 ＝ “随机播放”)
置随机数种子 ()
全局_歌曲列表_选中项 ＝ 取随机数 (0, 窗口.超级列表框1.取表项数 () － 1)
播放超级列表框现行选中 ()

子程序名	返回值类型	公开	备 注
播放下一首

程序_延时 (1000, )
判断 (全局_歌曲列表_选中项 ＜ 窗口.超级列表框1.取表项数 () － 1)
全局_歌曲列表_选中项 ＝ 全局_歌曲列表_选中项 ＋ 1
判断 (全局_歌曲列表_选中项 ＝ 窗口.超级列表框1.取表项数 () － 1)
全局_歌曲列表_选中项 ＝ 0



停止_歌曲 ()
播放超级列表框现行选中 ()

子程序名	返回值类型	公开	备 注
停止_歌曲

强制结束线程 (频谱句柄)
窗口.画板1.清除 (, , , )
窗口.标签_歌曲进度.标题 ＝ “00:00”
窗口.标签_歌曲长度.标题 ＝ “00:00”
窗口.图片框_播放.图片 ＝ #播放
窗口.时钟_歌曲进度.时钟周期 ＝ 0
窗口.进度条_歌曲进度.位置 ＝ 0
bass.停止 (文件句柄)
bass.关闭文件 (文件句柄)

子程序名	返回值类型	公开	备 注
暂停_歌曲

bass.暂停 (文件句柄)

子程序名	返回值类型	公开	备 注
继续_歌曲

bass.播放 (文件句柄, 假)

子程序名	返回值类型	公开	备 注
播放超级列表框现行选中

如果真 (窗口.图片框_播放.图片 ＝ #播放 )
窗口.图片框_播放.图片 ＝ #暂停
' 播放_歌曲 ()
启动线程 (&播放_歌曲, , 播放句柄)

子程序名	返回值类型	公开	备 注
播放_歌曲

变量名	类 型	静态	数组	备 注
分_整数	整数型
秒_整数	整数型
分_文本	文本型
秒_文本	文本型

文件句柄 ＝ bass.打开文件 (窗口.超级列表框1.取标题 (全局_歌曲列表_选中项, 5), , , )
窗口.集_媒体时间 ＝ 取整 (bass.位置到时间 (文件句柄, bass.取媒体长度 (文件句柄)))
分_整数 ＝ 窗口.集_媒体时间 ＼ 60
秒_整数 ＝ 窗口.集_媒体时间 ％ 60
如果 (分_整数 ＜ 10)
分_文本 ＝ “0” ＋ 到文本 (分_整数)
分_文本 ＝ 到文本 (分_整数)
如果 (秒_整数 ＜ 10)
秒_文本 ＝ “0” ＋ 到文本 (秒_整数)
秒_文本 ＝ 到文本 (秒_整数)
窗口.标签_歌曲长度.标题 ＝ 分_文本 ＋ “:” ＋ 秒_文本全局_播放歌曲名 ＝ “  正在播放 <” ＋ 窗口.超级列表框1.取标题 (全局_歌曲列表_选中项, 2) ＋ “>”
全局_歌曲名 ＝ 窗口.超级列表框1.取标题 (全局_歌曲列表_选中项, 2)
窗口.时钟_歌曲进度.时钟周期 ＝ 1000
窗口.标题 ＝ 全局_播放歌曲名
窗口.超级列表框1.获取焦点 ()
窗口.超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项
窗口.超级列表框1.保证显示 (全局_歌曲列表_选中项)
bass.播放 (文件句柄, )
音量_设置当前程序音量 (窗口.滑块条_音量.位置)
窗口.频谱时钟.时钟周期 ＝ 50

i支持库列表	支持库注释
iext	扩展界面支持库一
eDB	数据库操作支持库
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eDB<br /> .支持库 EThread<br /> <br /> .程序集 超级列表框控制<br /> <br /> .子程序 超级列表框_添加歌曲<br /> .局部变量 记录_计次, 整数型<br /> .局部变量 歌名, 文本型<br /> .局部变量 歌手, 文本型<br /> .局部变量 歌曲路径, 文本型<br /> .局部变量 歌词路径, 文本型<br /> .局部变量 图片路径, 文本型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 序号, 文本型<br /> .局部变量 时间, 文本型<br /> <br /> 窗口.超级列表框1.全部删除 ()<br /> 窗口.记录集_歌曲列表.到首记录 ()<br /> .如果真 (窗口.记录集_歌曲列表.记录数量 ＞ 0)<br />     窗口.记录集_歌曲列表.到首记录 ()<br />     .计次循环首 (窗口.记录集_歌曲列表.记录数量, 记录_计次)<br />         窗口.记录集_歌曲列表.读文本 (“歌曲”, 歌名)<br />         窗口.记录集_歌曲列表.读文本 (“歌手”, 歌手)<br />         窗口.记录集_歌曲列表.读文本 (“时间”, 时间)<br />         窗口.记录集_歌曲列表.读文本 (“歌曲路径”, 歌曲路径)<br />         表项索引 ＝ 窗口.超级列表框1.插入表项 (, , , , , )<br />         .判断开始 (记录_计次 ＜ 10)<br />             序号 ＝ “00” ＋ 到文本 (记录_计次)<br />         .判断 (记录_计次 ＜ 100)<br />             序号 ＝ “0” ＋ 到文本 (记录_计次)<br />         .默认<br /> <br />         .判断结束<br />         窗口.超级列表框1.置标题 (表项索引, 1, 序号)<br />         窗口.超级列表框1.置标题 (表项索引, 2, 歌名)<br />         窗口.超级列表框1.置标题 (表项索引, 3, 歌手)<br />         窗口.超级列表框1.置标题 (表项索引, 4, 时间)<br />         窗口.超级列表框1.置标题 (表项索引, 5, 歌曲路径)<br />         窗口.记录集_歌曲列表.到下一条 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 播放模式<br /> <br /> .判断开始 (全局_播放模式 ＝ “单曲循环”)<br />     窗口.超级列表框1.获取焦点 ()<br />     窗口.超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项<br />     窗口.超级列表框1.保证显示 (全局_歌曲列表_选中项)<br />     播放超级列表框现行选中 ()<br /> <br /> .判断 (全局_播放模式 ＝ “列表循环”)<br />     播放下一首 ()<br /> .判断 (全局_播放模式 ＝ “随机播放”)<br />     置随机数种子 ()<br />     全局_歌曲列表_选中项 ＝ 取随机数 (0, 窗口.超级列表框1.取表项数 () － 1)<br />     播放超级列表框现行选中 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 播放下一首<br /> <br /> 程序_延时 (1000, )<br /> .判断开始 (全局_歌曲列表_选中项 ＜ 窗口.超级列表框1.取表项数 () － 1)<br />     全局_歌曲列表_选中项 ＝ 全局_歌曲列表_选中项 ＋ 1<br /> .判断 (全局_歌曲列表_选中项 ＝ 窗口.超级列表框1.取表项数 () － 1)<br />     全局_歌曲列表_选中项 ＝ 0<br /> .默认<br /> <br /> .判断结束<br /> <br /> 停止_歌曲 ()<br /> 播放超级列表框现行选中 ()<br /> <br /> .子程序 停止_歌曲<br /> <br /> 强制结束线程 (频谱句柄)<br /> 窗口.画板1.清除 (, , , )<br /> 窗口.标签_歌曲进度.标题 ＝ “00:00”<br /> 窗口.标签_歌曲长度.标题 ＝ “00:00”<br /> 窗口.图片框_播放.图片 ＝ #播放<br /> 窗口.时钟_歌曲进度.时钟周期 ＝ 0<br /> 窗口.进度条_歌曲进度.位置 ＝ 0<br /> bass.停止 (文件句柄)<br /> bass.关闭文件 (文件句柄)<br /> <br /> .子程序 暂停_歌曲<br /> <br /> bass.暂停 (文件句柄)<br /> <br /> .子程序 继续_歌曲<br /> <br /> bass.播放 (文件句柄, 假)<br /> <br /> <br /> .子程序 播放超级列表框现行选中<br /> <br /> .如果真 (窗口.图片框_播放.图片 ＝ #播放)<br />     窗口.图片框_播放.图片 ＝ #暂停<br /> .如果真结束<br /> ' 播放_歌曲 ()<br /> 启动线程 (&播放_歌曲, , 播放句柄)<br /> <br /> .子程序 播放_歌曲<br /> .局部变量 分_整数, 整数型<br /> .局部变量 秒_整数, 整数型<br /> .局部变量 分_文本, 文本型<br /> .局部变量 秒_文本, 文本型<br /> <br /> 文件句柄 ＝ bass.打开文件 (窗口.超级列表框1.取标题 (全局_歌曲列表_选中项, 5), , , )<br /> 窗口.集_媒体时间 ＝ 取整 (bass.位置到时间 (文件句柄, bass.取媒体长度 (文件句柄)))<br /> 分_整数 ＝ 窗口.集_媒体时间 ＼ 60<br /> 秒_整数 ＝ 窗口.集_媒体时间 ％ 60<br /> .如果 (分_整数 ＜ 10)<br />     分_文本 ＝ “0” ＋ 到文本 (分_整数)<br /> .否则<br />     分_文本 ＝ 到文本 (分_整数)<br /> .如果结束<br /> .如果 (秒_整数 ＜ 10)<br />     秒_文本 ＝ “0” ＋ 到文本 (秒_整数)<br /> .否则<br />     秒_文本 ＝ 到文本 (秒_整数)<br /> .如果结束<br /> 窗口.标签_歌曲长度.标题 ＝ 分_文本 ＋ “:” ＋ 秒_文本<br /> 全局_播放歌曲名 ＝ “  正在播放 <” ＋ 窗口.超级列表框1.取标题 (全局_歌曲列表_选中项, 2) ＋ “>”<br /> 全局_歌曲名 ＝ 窗口.超级列表框1.取标题 (全局_歌曲列表_选中项, 2)<br /> 窗口.时钟_歌曲进度.时钟周期 ＝ 1000<br /> 窗口.标题 ＝ 全局_播放歌曲名<br /> 窗口.超级列表框1.获取焦点 ()<br /> 窗口.超级列表框1.现行选中项 ＝ 全局_歌曲列表_选中项<br /> 窗口.超级列表框1.保证显示 (全局_歌曲列表_选中项)<br /> bass.播放 (文件句柄, )<br /> 音量_设置当前程序音量 (窗口.滑块条_音量.位置)<br /> 窗口.频谱时钟.时钟周期 ＝ 50

  

窗口程序集名	保 留	保 留	备 注
功能程序集

子程序名	返回值类型	公开	备 注
取文件信息_M	音乐文件信息		使用 MediaInfo 获取信息
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
时间_	文本型
秒	双精度小数型
豪秒	双精度小数型
文件	类_MediaInfo
内容	音乐文件信息
文件大小	文本型
艺术家	文本型
歌曲标题	文本型

文件.打开 (ANSI转UNICODE (文件路径))
内容.摘要 ＝ Unicode转Ansi2 (文件.取摘要 (), )
艺术家 ＝ 文件.取信息_文本 (“Performer”, #Stream_General, 0)  ' 取艺术家
歌曲标题 ＝ 文件.取信息_文本 (“Track”, #Stream_General, 0)  ' 取曲目名称
内容.专辑名称 ＝ 文件.取信息_文本 (“Album”, #Stream_General, 0)  ' 取专辑
内容.码率 ＝ 到文本 (到整数 (文件.取信息_文本 (“BitRate”, #Stream_Audio, 0)) ÷ 1000) ＋ “ Kbps”  ' 取码率
内容.编码 ＝ 文件.取信息_文本 (“Format/Info”, #Stream_General, 0)  ' 取格式/信息
' 文件.取信息_文本 (“Format”, #Stream_General, 0)  ' 取格式
' 文件.取信息_文本 (“Audio_Codec_List”, #Stream_General, 0)  ' 取编码信息
' 文件.取信息_文本 (“Format_Profile”, #Stream_Audio, 0)  ' 取格式版本
内容.编码方式 ＝ 文件.取信息_文本 (“Audio_Codec_List”, #Stream_General, 0)  ' 取编码信息
内容.频率 ＝ 文件.取信息_文本 (“SamplingRate”, #Stream_Audio, 0) ＋ “ Hz”  ' 取音频采样率
内容.歌词 ＝ 文件.取信息_文本 (“Lyrics”, #Stream_General, 0)  ' 取内置歌词
文件大小 ＝ 文件.取信息_文本 (“FileSize”, #Stream_General, 0)  ' 文件大小
内容.声道 ＝ 文件.取信息_文本 (“Channel(s)”, #Stream_Audio, 0) ＋ “ 声道”  ' 取声道数
豪秒 ＝ 到整数 (文件.取信息_文本 (“Duration”, #Stream_General, 0))  ' 取时长  豪秒
文件.关闭 ()
秒 ＝ 豪秒 ＼ 1000
内容.时间 ＝ 时间_秒到时间2 (秒)
内容.文件大小 ＝ 四舍五入_指定小数位数 (到文本 (到整数 (文件大小) ÷ 1024 ÷ 1024), 2) ＋ “ MB”
内容.艺术家 ＝ 选择 (艺术家 ＝ “”, “未知艺术家”, 艺术家)
内容.歌曲标题 ＝ 选择 (歌曲标题 ＝ “”, “未知标题”, 歌曲标题)
返回 (内容)

子程序名	返回值类型	公开	备 注
Unicode转Ansi2	文本型		编码_utf8到gb2312过程，与W2A功能一样
参数名	类 型	参考	可空	数组	备 注
Unicode	字节集
目标编码	整数型

变量名	类 型	静态	数组	备 注
Ansi	文本型
长度	整数型

如果真 (是否为空 (目标编码))
目标编码 ＝ 0
长度 ＝ _Unicode转Ansi (0, 0, Unicode, -1, “”, 0, 0, 0)
Ansi ＝ 取空白文本 (长度 × 2)
_Unicode转Ansi (目标编码, 0, Unicode, -1, Ansi, 长度 × 2, 0, 0)
返回 (Ansi)

.版本 2<br /> <br /> .程序集 功能程序集<br /> <br /> .子程序 取文件信息_M, 音乐文件信息, , 使用 MediaInfo 获取信息<br /> .参数 文件路径, 文本型<br /> .局部变量 时间_, 文本型<br /> .局部变量 秒, 双精度小数型<br /> .局部变量 豪秒, 双精度小数型<br /> .局部变量 文件, 类_MediaInfo<br /> .局部变量 内容, 音乐文件信息<br /> .局部变量 文件大小, 文本型<br /> .局部变量 艺术家, 文本型<br /> .局部变量 歌曲标题, 文本型<br /> <br /> 文件.打开 (ANSI转UNICODE (文件路径))<br /> 内容.摘要 ＝ Unicode转Ansi2 (文件.取摘要 (), )<br /> 艺术家 ＝ 文件.取信息_文本 (“Performer”, #Stream_General, 0)  ' 取艺术家<br /> 歌曲标题 ＝ 文件.取信息_文本 (“Track”, #Stream_General, 0)  ' 取曲目名称<br /> 内容.专辑名称 ＝ 文件.取信息_文本 (“Album”, #Stream_General, 0)  ' 取专辑<br /> 内容.码率 ＝ 到文本 (到整数 (文件.取信息_文本 (“BitRate”, #Stream_Audio, 0)) ÷ 1000) ＋ “ Kbps”  ' 取码率<br /> 内容.编码 ＝ 文件.取信息_文本 (“Format/Info”, #Stream_General, 0)  ' 取格式/信息<br /> ' 文件.取信息_文本 (“Format”, #Stream_General, 0)  ' 取格式<br /> ' 文件.取信息_文本 (“Audio_Codec_List”, #Stream_General, 0)  ' 取编码信息<br /> ' 文件.取信息_文本 (“Format_Profile”, #Stream_Audio, 0)  ' 取格式版本<br /> 内容.编码方式 ＝ 文件.取信息_文本 (“Audio_Codec_List”, #Stream_General, 0)  ' 取编码信息<br /> 内容.频率 ＝ 文件.取信息_文本 (“SamplingRate”, #Stream_Audio, 0) ＋ “ Hz”  ' 取音频采样率<br /> 内容.歌词 ＝ 文件.取信息_文本 (“Lyrics”, #Stream_General, 0)  ' 取内置歌词<br /> 文件大小 ＝ 文件.取信息_文本 (“FileSize”, #Stream_General, 0)  ' 文件大小<br /> 内容.声道 ＝ 文件.取信息_文本 (“Channel(s)”, #Stream_Audio, 0) ＋ “ 声道”  ' 取声道数<br /> 豪秒 ＝ 到整数 (文件.取信息_文本 (“Duration”, #Stream_General, 0))  ' 取时长  豪秒<br /> 文件.关闭 ()<br /> 秒 ＝ 豪秒 ＼ 1000<br /> 内容.时间 ＝ 时间_秒到时间2 (秒)<br /> 内容.文件大小 ＝ 四舍五入_指定小数位数 (到文本 (到整数 (文件大小) ÷ 1024 ÷ 1024), 2) ＋ “ MB”<br /> 内容.艺术家 ＝ 选择 (艺术家 ＝ “”, “未知艺术家”, 艺术家)<br /> 内容.歌曲标题 ＝ 选择 (歌曲标题 ＝ “”, “未知标题”, 歌曲标题)<br /> 返回 (内容)<br /> <br /> <br /> .子程序 Unicode转Ansi2, 文本型, , 编码_utf8到gb2312过程，与W2A功能一样<br /> .参数 Unicode, 字节集<br /> .参数 目标编码, 整数型, 可空<br /> .局部变量 Ansi, 文本型<br /> .局部变量 长度, 整数型<br /> <br /> .如果真 (是否为空 (目标编码))<br />     目标编码 ＝ 0<br /> .如果真结束<br /> 长度 ＝ _Unicode转Ansi (0, 0, Unicode, -1, “”, 0, 0, 0)<br /> Ansi ＝ 取空白文本 (长度 × 2)<br /> _Unicode转Ansi (目标编码, 0, Unicode, -1, Ansi, 长度 × 2, 0, 0)<br /> 返回 (Ansi)

  

窗口程序集名	保 留	保 留	备 注
初始化

子程序名	返回值类型	公开	备 注
启动初始化

全局_播放模式 ＝ 读配置项 (全局_配置项路径, “模式”, “播放模式”, )
窗口.滑块条_音量.位置 ＝ 到整数 (读配置项 (全局_配置项路径, “音量”, “歌曲音量”, ))
如果 (窗口.滑块条_音量.位置 ＜ 10)
窗口.标签_音量.标题 ＝ “0” ＋ 到文本 (窗口.滑块条_音量.位置)
窗口.标签_音量.标题 ＝ 到文本 (窗口.滑块条_音量.位置)
bass.置音量 (窗口.滑块条_音量.位置 ÷ 3.2)

子程序名	返回值类型	公开	备 注
bass初始化

bass.初始化 (, , , )

子程序名	返回值类型	公开	备 注
配置项初始化

删除文件 (“C:\Users\Administrator\Desktop\asdf\lib\music.ini”)
如果真 (文件是否存在 (全局_配置项路径) ＝ 假)
写配置项 (全局_配置项路径, “路径”, “歌曲下载目录”, 取运行目录 ())
写配置项 (全局_配置项路径, “模式”, “播放模式”, “列表循环”)
写配置项 (全局_配置项路径, “音量”, “歌曲音量”, “8”)

子程序名	返回值类型	公开	备 注
播放模式写入配置项
参数名	类 型	参考	可空	数组	备 注
参数_模式	文本型

写配置项 (取运行目录 () ＋ “\lib\music.ini”, “模式”, “播放模式”, 参数_模式)

全局变量名	类 型	数组	公开	备 注
是否执行空闲事件	逻辑型
bass	BASS类
文件句柄	整数型
全局_歌曲列表_选中项	整数型
全局_播放歌曲名	文本型
全局_歌曲名	文本型
频谱句柄	整数型			画频谱
全局_频谱类型	逻辑型
全局_播放模式	文本型
全局_配置项路径	文本型
播放句柄	整数型
线程管理	整数型

.版本 2<br /> <br /> .程序集 初始化<br /> <br /> .子程序 启动初始化<br /> <br /> 全局_播放模式 ＝ 读配置项 (全局_配置项路径, “模式”, “播放模式”, )<br /> 窗口.滑块条_音量.位置 ＝ 到整数 (读配置项 (全局_配置项路径, “音量”, “歌曲音量”, ))<br /> .如果 (窗口.滑块条_音量.位置 ＜ 10)<br />     窗口.标签_音量.标题 ＝ “0” ＋ 到文本 (窗口.滑块条_音量.位置)<br /> .否则<br />     窗口.标签_音量.标题 ＝ 到文本 (窗口.滑块条_音量.位置)<br /> .如果结束<br /> bass.置音量 (窗口.滑块条_音量.位置 ÷ 3.2)<br /> <br /> <br /> .子程序 bass初始化<br /> <br /> bass.初始化 (, , , )<br /> <br /> .子程序 配置项初始化<br /> <br /> 删除文件 (“C:\Users\Administrator\Desktop\asdf\lib\music.ini”)<br /> .如果真 (文件是否存在 (全局_配置项路径) ＝ 假)<br /> <br /> <br />     写配置项 (全局_配置项路径, “路径”, “歌曲下载目录”, 取运行目录 ())<br /> <br /> <br />     写配置项 (全局_配置项路径, “模式”, “播放模式”, “列表循环”)<br /> <br />     写配置项 (全局_配置项路径, “音量”, “歌曲音量”, “8”)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 播放模式写入配置项<br /> .参数 参数_模式, 文本型<br /> <br /> 写配置项 (取运行目录 () ＋ “\lib\music.ini”, “模式”, “播放模式”, 参数_模式)<br /> .版本 2<br /> <br /> .全局变量 是否执行空闲事件, 逻辑型<br /> .全局变量 bass, BASS类<br /> .全局变量 文件句柄, 整数型<br /> .全局变量 全局_歌曲列表_选中项, 整数型<br /> .全局变量 全局_播放歌曲名, 文本型<br /> .全局变量 全局_歌曲名, 文本型<br /> .全局变量 频谱句柄, 整数型, , , 画频谱<br /> .全局变量 全局_频谱类型, 逻辑型<br /> .全局变量 全局_播放模式, 文本型<br /> .全局变量 全局_配置项路径, 文本型<br /> .全局变量 播放句柄, 整数型<br /> .全局变量 线程管理, 整数型

qq963720

数据执行保护关闭下

是可可吖

win7可以win10报错，难道不是系统的问题？

逆向正解

兼容模式运行试试看

huazhengfeng000

qq963720 发表于 2024-12-4 17:54
数据执行保护关闭下

谢谢    可以了     顺便问下   这是什么原因