.版本 2 .支持库 eMMedia .支持库 edroptarget .支持库 iext .子程序 __启动窗口_创建完毕 .局部变量 歌曲列表 .局部变量 a .局部变量 歌名, 文本型 系统音量1.打开 (4) 音乐音量 ＝ 系统音量1.取最大音量 () 拖放对象1.注册拖放控件 (取窗口句柄 ()) .如果真 (打开 (取运行目录 () ＋ “\data\MP3.edb”, , , , , , ) ＝ 真) 歌曲列表 ＝ 取记录数 () .计次循环首 (歌曲列表, a) 歌名 ＝ 读 (1) 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (a － 1, 0, 歌名) 跳过 () .计次循环尾 () .如果真结束 关闭 (“MP3”) _按钮3_被单击 () 循环 ＝ 2