unit1.cpp

miniPlayer.rar 小播放器源码

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FileOpen1Accept(TObject *Sender)
{
        MediaPlayer1->FileName = FileOpen1->Dialog->FileName;
        Label1->Caption = MediaPlayer1->FileName;
        MediaPlayer1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
        if(RadioGroup1->ItemIndex == 0)
        {
                FileOpen1->Enabled = true;
                MediaPlayer1->Close();
                MediaPlayer1->DeviceType = dtAutoSelect;
                Label1->Caption = "";
        }
        else if(RadioGroup1->ItemIndex == 1)
        {
                FileOpen1->Enabled = false;
                MediaPlayer1->Close();
                MediaPlayer1->DeviceType = dtCDAudio;
                MediaPlayer1->Open();
                Label1->Caption = "当前正在播放CD光盘";
        }
}
//---------------------------------------------------------------------------