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;
}
//---------------------------------------------------------------------------