Meister Cheaty
Bem Vindo Ao Forum Meister Cheaty !
Últimos assuntos
» O melhor skin de cada arma
Fazendo Player I_icon_minitimeTer Abr 13, 2010 11:28 pm por xXBrunoXx

» Download Maple Story
Fazendo Player I_icon_minitimeSab Abr 10, 2010 7:55 am por Ashoole

» Vaucher Hack
Fazendo Player I_icon_minitimeSab Abr 10, 2010 7:24 am por Ashoole

» MINIMIZER - Para jogos FullScreen
Fazendo Player I_icon_minitimeSab Abr 10, 2010 7:18 am por Ashoole

» CASH - Ganhe dinheiro para comprar cash para qualquer jogo
Fazendo Player I_icon_minitimeSab Abr 10, 2010 7:12 am por Ashoole

» Hack the duel
Fazendo Player I_icon_minitimeSex Abr 09, 2010 10:14 am por Ashoole

» Sobre a Area VIP
Fazendo Player I_icon_minitimeSex Abr 09, 2010 10:10 am por Artur

» [Download] << Mania Team Scripts 10.0
Fazendo Player I_icon_minitimeSex Abr 09, 2010 9:53 am por Artur

» [Tutorial] Grand Chase mais Rápido!
Fazendo Player I_icon_minitimeSex Abr 09, 2010 9:47 am por Artur

Contador
Top dos mais postadores
Ashoole (38)
Fazendo Player Vote_lcapFazendo Player Voting_barFazendo Player Vote_rcap 
Artur (38)
Fazendo Player Vote_lcapFazendo Player Voting_barFazendo Player Vote_rcap 
xXBrunoXx (16)
Fazendo Player Vote_lcapFazendo Player Voting_barFazendo Player Vote_rcap 


Fazendo Player

Ir em baixo

Fazendo Player Empty Fazendo Player

Mensagem por Ashoole em Sex Abr 09, 2010 7:54 am

rimeiramente 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!

Fazendo Player Playerr
Ashoole
Ashoole
Fundador
Fundador

Mensagens : 38
Dinheiro: : 4638
Reputação : 0
Data de inscrição : 07/04/2010

http://forum.meistercheaty.com

Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum