[TUTORIAL] - Criando um Player

Convidad · 1 [TUTORIAL] - Criando um Player Sáb Out 29, 2011 2:01 am

Convidad

Convidado

Como Criar um Player Básico

- 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:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
e end;

e adicione o seguinte código:

procedure TForm1.Button1Click(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:

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:

Depois salve :
Shift + Ctrl + S , depois aperte o Playzinho (para copila)

Creditos :
Tantinhoo
-Corey