包含头文件
#include <Mmsystem.hpp>
全局定义
AnsiString ModeStr[] = {"未准备好", "已停止", "正在播放",
"录制...", "搜索...", "暂停", "就绪"};
再要在这个函数中判断一首歌是否停了,然后再调用函数播放下一首
void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
MediaPlayer1->Notify = true;
if(ModeStr[(int) MediaPlayer1->Mode]=="已停止)
{
调用函数播放下一首
}
}
这个肯定行的,我有程序http://lanfan.363.net/lfplayer.zip