Aprenda a criar um player basico no Delphi 7

[Explosion Art 1]

1° Adicione ao form; 1 Tbutton da aba standard, 1 media player da aba system,e 1 opendialog da aba dialogs:

 

e organize +/- dessa forma

 

 

 

Após isso

de 2 clicks no TButton e insira o seguinte codigo

 

if opendialog1.Execute then

begin

mediaplayer1.FileName := opendialog1.FileName;

mediaplayer1.Open;

end;

 

devera ficar assim:

 

 

Pronto!

É só isso

execute e fassa o teste

 

Ah

tem mais uma coisinha

qndo vc for abrir o arquivo de musica

ira aparecer akele dialogo

 

 

note q em "arquivo do tipo" esta em branco

se kiser add extensões faça o seguinte

va na opção filter do opendialog

e deixe assim:

 

 

vc pode add mais extenções se kiser :D

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[joaovictorpaes 7]

Cara num precisava fazer isso, eu ja postei esse tuto mt antes de vc e o meu e mais complexo ;D. Olha abaixo:

[source+Tutorial] Criando um Player básico

 

Abraços!!

[Zaphey 2]

Atenção !

 

Já existe um tópico com um conteúdo igual / semelhante ao seu.

Leia as

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

e pesquise antes de postar.

 

Tópico Fechado [x]