HI 大家好:            請問BCB用MediaPlayer撥放CD時,要怎樣才能做才能停止撥放,小弟試了很久,不知道要怎麼做,以下是我的程式碼....只能驅動撥放....可是關閉時光碟機還在撥放音樂....    //---------------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit2.h" #include #include //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm2 *Form2; //--------------------------------------------------------------------------- __fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm2::Timer1Timer(TObject *Sender) { int TimeData; char Display[50]=""; if(MediaPlayer1->Mode!=mpPlaying) return; ProgressBar1->Position=MediaPlayer1->Position; TimeData=MediaPlayer1->Position; sprintf(Display,"%#02d:%#02d:%#02d",LOBYTE(LOWORD(TimeData)) ,HIBYTE(LOWORD(TimeData)),LOBYTE(HIWORD(TimeData))); Label1->Caption=Display; } //--------------------------------------------------------------------------- void __fastcall TForm2::SpeedButton1Click(TObject *Sender) { MediaPlayer1->Close(); MediaPlayer1->DeviceType=dtCDAudio; MediaPlayer1->Open(); MediaPlayer1->TimeFormat=tfHMS; ProgressBar1->Min=MediaPlayer1->StartPos; ProgressBar1->Max=MediaPlayer1->TrackLength[1]; ProgressBar1->Position=300; Timer1->Interval=1000; Timer1->Enabled=true; } //---------------------------------------------------------------------------

很簡單,只要以下程式碼即可使cd 停止播放 MediaPlayer1->Stop(); MediaPlayer1->Close();