用Authorware制作音乐播放器
拜读了《中国电脑教育报》第12期第A29版《音乐播放器DIY》一文，使我深受启发，也萌生了制作一个播放器的想法。通过几天的研究实践，还真让我DIY了一个播放器，自我感觉不错喔！现特地“奉献”出来与朋友们共享！
1、打开Authorware 6.0，新建一个文件并保存名为“我的播放器”；按Ctrl+Shift+F打开Functions函数库，选择Category下的“我的播放器.a6p”，然后单击Load…出现对话框，选择tMsControls.U32后单击出现一个对话框，按住Ctrl键可以连续选中所需要的七个函数：
1）tMsMP3CreatePlayer；
2）tMsMP3IsPlaying；
图1
3）tMsMP3LoadFile；
4）tMsMP3Pause；
5）tMsMP3Play；
6）tMsMP3Stop；
7）tMsOpenImageFile。
单击Load即可完成对外挂函数的加载；利用同样的方法加载Winapi.u32中的 SetWindowText函数。
2、在流程线上放置一个显示计算图标，名为：系统设置，在里面输入以下语句：
ResizeWindow(275, 116)
SetWindowText(WindowHandle, "我的播放器")-设置标题栏名称
tMsMP3CreatePlayer(WindowHandle, "mp3Status") -设置播放器播放状态
mp3StatusValue[1] := "Opened" -- 打开文件时的状态值为1。
mp3StatusValue[2] := "Ready"
mp3StatusValue[3] := "Stopped"
mp3StatusValue[4] := "Playing"
mp3StatusValue[5] := "Paused"
3、拖一个交互图标到流程线上，名为“Display”，然后导入一幅图片（如图1），在“显示歌曲名”箭头所指位置使用文本工具输入如下文字：
{SubStr(mp3FileName,RFind("\\\\",mp3FileName)+1, CharCount(mp3FileName))}-显示打开歌曲的文件名，注意区分小括号和大括号。
在“显示播放状态”箭头所指位置输入如下文字：
{mp3DisplayStatus := mp3StatusValue[mp3Status+1]}-显示播放器当前状态，如：playing（播放）、pause（暂停）。
4、在交互图标旁边放置计算图标，出现Response Type对话框，选择Hot spot（热区）单击确定即可，在交互图标旁边共放置四个计算图标（如图2），分别命名为：Open、Play、Pause、Stop；双击打开交互图标，然后移动各个热区，使它们的位置与图1中的对应按钮图形的位置重合；音量滑块是用来调节音量的（卧龙传说提醒：具体制作可以参照《中国电脑教育报》2002年第12期第A28版刊登的《音量大小任我调――Authorware中音量控制程序的制作》一文）。
5、双击打开Open计算图标，在里面输入如下语句：
mp3FileName := ""
mp3FileName := tMsOpenImageFile(WindowHandle, "我的播放器", FileLocation, "", "*.mp3", "|*.mp3;*.mpa;*.mp2;*.mp3")--设置播发器打开歌曲文件的类型，以mp3为主。
if mp3FileName 〈〉 "" then tMsMP3LoadFile(mp3FileName)
tMsMP3Play(0, 0)打开歌曲就播放。
图2
在Play计算图标中输入：tMsMP3Play(0, 0)-播放音乐 ;
在Pause计算图标中输入：tMsMP3Pause( ) -暂停音乐;
在Stop中计算图标中输入：tMsMP3Stop( )-停止音乐。
6、按Ctrl+R运行程序，可以看到我们的播放器已经制作完成了，赶快选择一个歌曲听一听吧，怎么样？DIY的感觉不错吧！在这里，还可以将静态的按钮图片改成动态的按钮（使用按钮交互），还可以将播放和暂停按钮重叠起来；使用Winapi.u32中的ShowWindowAsync函数实现最大化最小化……