包含头文件
#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

if(ModeStr[(int) MediaPlayer1->Mode]=="已停止")//少了个引号

这跟帮助文档中的示例很相似

up

UP