Question

用delphi7如何做MP3播放器

Answer 1

使用system控件组下面的MediaPlayer控件来做
filename属性是要播放的音乐所在的完整路径及名称。
MediaPlayer1.Open ;打开控件
MediaPlayer1.Play ;播放音乐
MediaPlayer1.Stop ;停止播放
MediaPlayer1.Pause ;暂停播放
MediaPlayer1.close关闭组件

上面这些可以使用一些按钮来存放代码，例如建个打开按钮，里面写上打开文件的语句（用dialogs组件面板里面的OPEN..那个组件），打开后动态给播放器的filename属性赋值：MediaPlayer1.FileName := '...'; 并且打开MediaPlayer1控件。 再建其他按钮，例如播放，暂停，关闭等。要做播放列表就放一个listbox之类的控件，打开时动态将那些歌曲名称添加到listbox中，注意保存完整路径，不然控件找不到就要罢工了，播放后用循环控制一下就行了