.版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 标签1.标题 ＝ 到文本 (取现行时间 ()) .子程序 _时钟1_周期事件 标签1.标题 ＝ 到文本 (取现行时间 ()) .子程序 _按钮1_被单击 .局部变量 时间, 日期时间型 .局部变量 临时, 整数型 .局部变量 路径, 文本型 .局部变量 短路径, 文本型 .局部变量 状态, 文本型 时间 ＝ 取现行时间 () 临时 ＝ 取时间部分 (时间, #小时) 输出调试文本 (临时) .如果 (临时 ＜ 10) 路径 ＝ 取运行目录 () ＋ “\h\0” ＋ 到文本 (临时) ＋ “.mp3” .否则 路径 ＝ 取运行目录 () ＋ “\h\” ＋ 到文本 (临时) ＋ “.mp3” .如果结束 短路径 ＝ 取空白文本 (255) GetShortPathNameA (路径, 短路径, 255) mciSendStringA (“close ” ＋ 短路径, “”, 0, 0) mciSendStringA (“open ” ＋ 短路径, “”, 0, 0) mciSendStringA (“play ” ＋ 短路径, “”, 0, 0) 状态 ＝ 取空白文本 (255) mciSendStringA (“status ” ＋ 短路径 ＋ “ mode”, 状态, 255, 0) .判断循环首 (到小写 (状态) ＝ “playing”) mciSendStringA (“status ” ＋ 短路径 ＋ “ mode”, 状态, 255, 0) 延时 (1) .如果真 (到小写 (状态) ＝ “stopped”) 跳出循环 () .如果真结束 ' 输出调试文本 (状态) .判断循环尾 () 临时 ＝ 取时间部分 (时间, #分钟) 输出调试文本 (临时) .如果 (临时 ＜ 10) 路径 ＝ 取运行目录 () ＋ “\m\0” ＋ 到文本 (临时) ＋ “.mp3” .否则 路径 ＝ 取运行目录 () ＋ “\m\” ＋ 到文本 (临时) ＋ “.mp3” .如果结束 短路径 ＝ 取空白文本 (255) GetShortPathNameA (路径, 短路径, 255) mciSendStringA (“close ” ＋ 短路径, “”, 0, 0) mciSendStringA (“open ” ＋ 短路径, “”, 0, 0) mciSendStringA (“play ” ＋ 短路径, “”, 0, 0)