bool plays=false;
程式片段
//==================================
void __fastcall TForm1::TButton1(TObject *Sender)
{
MediaPlayer_Voice->Close();
MediaPlayer_Voice->FileName="檔案1 ";
MediaPlayer_Voice->Open();
MediaPlayer_Voice->Notify=true;
MediaPlayer_Voice->Play();

if(plays==true)
{
MediaPlayer_Voice->Close();
MediaPlayer_Voice->FileName="檔案2";
MediaPlayer_Voice->Open();
MediaPlayer_Voice->Play();
plays=false;
}

}
//===================================================

void __fastcall TForm1::MediaPlayer_VoiceNotify(TObject *Sender)
{
plays=true;
}







如題..
我想用TMediaPlayer連續播放2個聲音檔
檔案1播放完畢後, 自動播放檔案2
但是程式只會播放檔案2,
請問該怎麼修改呢??
謝謝~~

Mediaplayer 可能無法播放多檔。除非播完後再播下一個。
可改用 WindowsMediaplayer ActiveX 元件，利用 Import ActiveX 。

這是我用Delphi 測試的程式碼。僅提供參考

<textarea cols="60" rows="10" class="delphi" name="code"> var AList : IWMPPlaylist; AMedia : IWMPMedia; begin AList := WindowsMediaPlayer1.playlistCollection.newPlaylist('MyMusic40'); AList.Clear; AMedia := WindowsMediaPlayer1.mediaCollection.Add('C:\2007-07-13 王力宏-改變自己\02-改變自己.mp3'); AList.appendItem(AMedia); AMedia := WindowsMediaPlayer1.mediaCollection.Add('C:\2007-07-13 王力宏-改變自己\03-落葉歸根.mp3'); AList.appendItem(AMedia); WindowsMediaPlayer1.currentPlaylist := AList; WindowsMediaPlayer1.controls.play; end; </textarea>

編輯記錄

<textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { plays=false; Mp1->Close(); Mp1->FileName="2.mp3"; Mp1->Open(); Mp1->Play(); plays=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::Mp1Notify(TObject *Sender) { if(plays==true) { Mp1->Close(); Mp1->FileName="3.mp3"; Mp1->Open(); Mp1->Play(); } plays=false; } </textarea> 很感謝wameng的回答 我希望的效果就是播完檔案1後, 再播檔案2 已經試出來了~~