Наш медиаплеер мы будем строить на основе компонента MediaPlayer. После добавления его на форму установите свойство Visible в false, т.к. мы создадим свои кнопки. Разместите на форме 6 кнопок типа BitBtn и подгрузите в них изображения, используя свойства Glyph. Значки находятся по адресу Program Files\Common Files\Borland Shared\Images\Buttons . Я использовал fileopen, vcrplay, vcrpause, vcrstop, cddrive. Для выбора иконки в верхнем левом углу воспользуйтесь свойством формы Icon. Иконки можно найти по адресу Program Files\Common Files\Borland Shared\Images\Icons . В свойстве Filter OpenDialog напишите форматы файлов, например:
У компонента TrackBar в свойстве ThumbLenght пропишите 15 (выберите более удобный для вас размер ползунка). И поэкспериментируйте со свойством TickStyle. В свойстве формы BorderStyle выберите bsSingle. А в BorderIcons установите biMaximize в false.
Форма-заготовка:
Важно!
Текст
модуля нельзя копировать напрямую, т.к. это вызовет ошибки при
компиляции(относится к обработчикам событий). Следует сперва щелкнуть,
например, по кнопке, а затем вставить код:
Пример для BitBtn1:
Щелкаем дважды по кнопке BitBtn1, появится:
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
}
Затем между фигурными скобкам вставляем код:
MediaPlayer1->Play();
И в итоге получаем:
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
MediaPlayer1->Play();
}
Код программы:
//---------------------------------------------------------------------------
#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::BitBtn6Click(TObject *Sender)
{
if (OpenDialog1->Execute())//выбираем файл и подгружаем в MediaPlayer
{
MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();
}
ListBox1->Items->Add(OpenDialog1->FileName);//добавляем путь к файлу в ListBox
}
//---------------------------------------------------------------------------
//событие формы OnClose
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
MediaPlayer1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door open wait", NULL, 0, NULL);//открываем DVD-ROM
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door closed wait",NULL,0,NULL);//закрываем DVD-ROM
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
TrackBar1->Max = 65350 ;
waveOutSetVolume(0, MAKELONG(TrackBar1->Position, TrackBar1->Position));//регулируем громкость
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
MediaPlayer1->Pause();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
MediaPlayer1->Rewind();//останавливаем песню для воспроизведения с начала
}
//---------------------------------------------------------------------------
Скомпилированный исходник:
| 
