[Tutorial]criando Um Mni Player De Músicas

[™♥♦§Renan1609§♣♠™ 0]

Primeiramente inicie o delphi e redimencione o forme até que fique do tamanho Desejado.

 

Altere o Caption do form dando o nome que você quizer, já que é seu player, salve tudo.

 

Em seguida adicione um TButton e um TOpenDialog, localizado na palheta Dialogs do delphi

 

No caption do TButton escreva Abrir.

 

Coloque também um objeto TMediaPlayer encontrado na palheta System.

 

 

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

 

procedure TForm1.Button1Click(Sender: TObject);

begin

MediaPlayer1.Close;

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

end;

 

Dimensione os objetos:

 

Na propriedade Filter do objeto OpenDialog1 adicione os seguintes itens:

*.avi; *.mid; *.mp3; *.wav

 

No Final seu player deve estar parecido com o esse!

 

 

Créditos:Bart~

['Surfistinha 0]

hum simples e bem util muito bom belo post mais retire a propaganda dolado do Bart~

flw