Primeiramente inicie o delphi e redimensione o forme até que fique com o tamanho a seguir. Aproveite e altere o Caption do form dando o nome que você quiser, já que é o seu player (rs).

Figura 1 - Criando a Interface para o Player.

Salve tudo e em seguida adicione um TButton e um TOpenDialog, localizado na palheta Dialogs do delphi.

No caption do TButton escreva: Abrir.

Cloque também um objeto TMediaPlayer, encontrado na palheta System.

Figura 2 - Componente Player

No evento onClick do TButton, adicione as linhas de código como mostra abaixo:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  MediaPlayer1.Close;
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
  end;
end;

Na propriedade Filter do objeto OpenDialog1, adicione os seguintes itens:

Figura 3 - Filtro da Janela para Abrir Mídia

Salve tudo, clicando em Save All, no menu File, e compile dando um CRTL + F9. Depois dê um F9 e é só alegria !!!

Por fernando_vip
Contato: nandinho@mfs.eng.br  / fernando_millenniuminfo@yahoo.com.br