Наш медиаплеер мы будем строить на основе компонента 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.

Форма-заготовка:

//---------------------------------------------------------------------------
 
#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();//останавливаем песню для воспроизведения с начала
}
//---------------------------------------------------------------------------

Скомпилированный исходник: