TMediaplayer

//TMediaplayer

{

TMediaplayer adalah komponen yang berguna untuk memutar Sebuah File Audio
Tetapi TMediaplayer Tidak dapat memutar Semua File audio ...

Tapi Kali ini Kita akan memutar Audio Berextensi .mp3

Sebelumnya Masukkan Komponen (TMediaplayer 3 Buah Tbutton) ;

Sebelumnya Ganti Caption Tiap Button
1 = Play
2 = Stop
3 = Open

}

//Pada Button OPEN

procedure TForm1.Button1Click(Sender: TObject);
begin
Mediaplayer1.filename := 'D:\Laguku.mp3' ;
Mediaplayer1.open ;
end;



// Pada Button Play

procedure TForm1.Button2Click(Sender: TObject);
begin
Mediaplayer1.play ;
end;



// Pada Button Stop

procedure TForm1.Button3Click(Sender: TObject);
begin
Mediaplayer1.stop ;
end;