[Tutorial] Criando um Media Player básico

[Guilherme. 189]

# Arquivos nescessários:

Delphi 7

# Tutorial:

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

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:

Dê um duplo clique no TButton, apague o código

procedure TForm1.Button1Click(Sender: TObject);

begin

e adicione o seguinte 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 !

# Créditos:

Os créditos vão para mateus12m, pelo tutorial e algumas fotos, Guilherme. por trazer ao TibiaBOTS. Créditos também para o Delphi-School pelo baseamento do tópico e 1 imagem.

[Renato 659]

Onde adiciona as músicas no Player?

Não conheço muito de Delphi

[Guilherme. 189]

Em "Abrir" ?! SIAOISAOISAO

Também não conheço muito . . . Mas esse projeto me pareceu muito fácil.

Abraço.

[juh157 41]

ninjisse isso eu nem tento faze pq se não sai merda D: