Player de Músicas com PlayList

[ANDREPINTOZINHO 1]

Ah um bom tempo eu venho tentando fazer um player de musica que tocasse as musicas de um ListBox, e finalmente descobri, ainda falta aprimorar, mas com o tempo eu vou atualizando os codigos, =). Vamos ao Tutorial

 

Requesitos:

-4 Buttons (Standard)

-1 ListBox (Standard)

-1 OpenDialog(Dialogs)

-1 MediaPlayer(System)

-Conhecimento básico em Delphi

 

Tutorial

 

Organize assim:

ListBox

MediaPlayer

Button1 Button2 Button3 Button4

OpenDialog

 

Códigos

 

No evento OnClick do Button1 coloque:

 

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

• Entre
• ou
• Cadastre-se

 

Este código irá adicionar as músicas selecionadas no OpenDialog ao ListBox

 

No evento OnClick do Button2 coloque:

 

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

• Entre
• ou
• Cadastre-se

 

Este código irá executar as músicas do ListBox no MediaPlayer

 

No evento OnClick do Button3 coloque:

 

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

• Entre
• ou
• Cadastre-se

 

Este código faz com que o Index do ListBox mude para a próxima música do ListBox

 

No evento OnClick do Button4 coloque:

 

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

• Entre
• ou
• Cadastre-se

 

Este código faz com que o Index do ListBox mude para a música anterior do ListBox

 

 

No evento OnCreate do Form1 coloque:

 

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

• Entre
• ou
• Cadastre-se

 

 

Este é simples, é para quando o Form iniciar o Index do ListBox fique no primeiro item do ListBox

 

Visual(Opcional)

 

Para a melhor visualização do seu Projeto, adicione Label's onde for necessario, mude os Caption's dos Buttons de acordo com o código adicionado

 

Observações

 

Os códigos ainda devem ser aprimorados, então, apóes executar ele, ao invés de clickar em Play, click primeiro na música do ListBox e depois click Play

Quando for passar a música, click no Button responsavel pela mudança de música e depois Play

 

By:Milly

[SaYaDiN² 1]

Créditos pra Vc? Afff ¬¬'

 

Aqui todo mundo Leeacha as coisas... --'

 

Créditos: Milly