Музыкальный проигрыватель.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "player.h"
#define MINUTE(ms) ((ms/1000)/60)
#define SECOND(ms) ((ms/1000)%60)
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
int Track; //Объявляем переменные и даем им значения:
int ms;
AnsiString st;
Track = MCI_TMSF_TRACK(Form1->MediaPlayer1->Position); //ЗДЕСЬ ПОЯВЛЯЕТСЯ ОШИБКА
ms = Form1->MediaPlayer1->TrackLength[Track];
st = st + " "+ IntToStr(MINUTE(ms));
st = st + ":" + IntToStr(SECOND(ms));
 
Form1->Label1->Caption = st; //Укажите вместо Label1 – ваш компонент, куда выводить общее время трека.
 
int time_min;
int time_sec;
 
void my_play ()
{
 
if (Form1->ListBox1->ItemIndex == -1) //Если файл не выбран в ListBox
{
ShowMessage("Укажите файл!"); //Предупреждаем
} else { // Если выбран
 
 
Form1->MediaPlayer1->FileName=Form1->ListBox1->Items->operator [](Form1->ListBox1->ItemIndex); //Присваиваем имя выбранного трека
time_sec=0;
time_min=0;
Form1->Timer1->Enabled=true; //Включаем таймер, о нем читайте ниже.
 
Form1->Caption=(ExtractFileName(Form1->MediaPlayer1->FileName) ); // выводим имя трека
 
try { //Воспроизводим трек
Form1->MediaPlayer1->Open();
Form1->MediaPlayer1->Play();
}
catch(...) // Если трек не может воспр.
{
ShowMessage("Ошибка воспр. файла!");
}
}
}
void __fastcall TForm1::Button8Click(TObject *Sender)
{
ListBox1->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
my_play ()
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
MediaPlayer1->Pause();
Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
MediaPlayer1->Stop();
Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
if (ListBox1->ItemIndex >= ListBox1->Count-1) // Если выбран последний в списке файл
{
ListBox1->ItemIndex=0; //Выбираем первый
my_play();// и его воспроизводим
}
Else // если выбран НЕ последний
{
ListBox1->ItemIndex=ListBox1->ItemIndex+1; // Переход к следующему
my_play(); // И воспроизводим
}
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
if (ListBox1->ItemIndex == -1) //Если файл вообще не выбран
{
ListBox1->ItemIndex=0; //Выбераем первый
my_play(); // и воспроизводим
} else {
 
if (ListBox1->ItemIndex==0) // Если выбран первый файл
{
ListBox1->ItemIndex=ListBox1->Count -1; // Указываем последний
my_play(); // И воспроизводим
}
Else
{
ListBox1->ItemIndex=ListBox1->ItemIndex -1; // Просто переключаемся на трек назад
my_play(); // И воспроизводим
}
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Form1->MediaPlayer1->Position >= Form1->MediaPlayer1->Length) // А трек-то закончился:
{
if (ListBox1->ItemIndex >= ListBox1->Count-1) // Если файл был последним, переходим к первому:
{
ListBox1->ItemIndex=0;
my_play();
}
else{
ListBox1->ItemIndex=ListBox1->ItemIndex+1; // Переходим к следующему
my_play();
}
}
}
//---------------------------------------------------------------------------
 
 
 
++ time_sec; // Плюс одна секунда )
Label2->Caption=time_sec; //Это мой label куда выводяться секунды
 
if (Label5->Caption == 60) // Если секунд уже 60
{
time_sec=0; // Делаем их равными нолю
++time_min; // но прибавляем минуту
Label3->Caption=time_min; //Это мой label куда выводяться минуты
}
void __fastcall TForm1::Button7Click(TObject *Sender)
{
ListBox1->Items->Delete(ListBox1->ItemIndex);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button9Click(TObject *Sender)
{
if (SaveDialog1->Execute()) //Если вызван диалог
{
ListBox1->Items->SaveToFile(SaveDialog1->FileName); // Сохраняем
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button10Click(TObject *Sender)
{
if (OpenDialog1->Execute()) //Если вызван диалог
{
ListBox1->Clear();// Очищаем плэй лист и
ListBox1->Items->LoadFromFile(OpenDialog1->FileName); // и подгружаем новые песни
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if (OpenDialog1->Execute()) //Если диалог открыт, добавляем имя файла.
{
ListBox1->Items->Add(OpenDialog1->FileName); // Добавляем трэк
}
}
//---------------------------------------------------------------------------

#include  <mmsystem.h>