- Arquivos nescessários.
- Tutorial.
- Créditos.
- Agradecimentos.

~*~

- Arquivos nescessários:
Delphi 7 

- Tutorial:

Primeiramente abra o Delphi e redimensione a tela da **** até que fique mais ou menos desta maneira:

Click this bar to view the original image of 461x142px.


Em seguida, adicione um TButton ( localizado na parte Standart ), um TOpenDialog ( localizado na parte Dialogs ) e um TMediaPlayer ( localizado na parte System ):






Organize mais ou menos assim:




Agora renomeie o TButton para "Abir" pelo Caption:

Click this bar to view the original image of 644x306px.


Dê um duplo clique no TButton, apague o código
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
e adicione o seguinte código:

Código:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 if OpenDialog1.Execute then
 begin
   MediaPlayer1.FileName := OpenDialog1.FileName;
   MediaPlayer1.Open;
 end;
end;
Então, vá na propriedade "Filter" do objeto TOpenDialog e adicione os seguintes itens:



Agora Salve e Compile o seu projeto.