Shadow专用播放器易语言源码

Shadow专用播放器易语言源码

.版本 2
.支持库 eMMedia
.支持库 edroptarget
.支持库 iext

.子程序 __启动窗口_创建完毕
.局部变量 歌曲列表
.局部变量 a
.局部变量 歌名, 文本型

系统音量1.打开 (4)
音乐音量 ＝ 系统音量1.取最大音量 ()
拖放对象1.注册拖放控件 (取窗口句柄 ())
.如果真 (打开 (取运行目录 () ＋ “data\MP3.edb”, , , , , , ) ＝ 真)
    歌曲列表 ＝ 取记录数 ()
    .计次循环首 (歌曲列表, a)
        歌名 ＝ 读 (1)
        超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (a － 1, 0, 歌名)
        跳过 ()
    .计次循环尾 ()
.如果真结束
关闭 (“MP3”)
_按钮3_被单击 ()
循环 ＝ 2

@易语言代码编写例子