Membuat Aplikasi MPVid Dengan DELPHI 7

MP3 ????????
Denger Kata-kata MP3 pasti Semuanya Pada Tahu Kan ,, ???
Yuppzz Benar Mp3 adalah suatu aplikasi yang digunakan untuk memutar lagu ..
eiiitzzz tapi yang ini beda lohh ,,,
dengan aplikasi MPVid ini kita bisa dengerin lagu +++ Muter Video ,,,,


memang Siiihhh Mungkin Kedengeran nya udah biasa ,, Tapi Masalahnya hari Ini kita akan mengupas tuntas cara pembuatannya dengan pemograman delphi ....
yuuxxx Ciinn Langsung kita ikuti Langkahnya ,,, Cappcuuuuss !!!!
Langkah Pertama Buka Aplikasi Delphi anda ,,, Selanjutnya buat lah form berikut ::

 nAahh Langkah selanjutnya masukkan Sintax-nya masing-masing

• Open == Additional - Bitbtn

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
mediaplayer1.Display:=video;
timer1.Enabled:=true;
end;
end;

• Play == Additional - Bitbtn

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
mediaplayer1.Play;
end;

• Pause == additional - Bitbtn

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
mediaplayer1.Pause;
end;

• Close == additional - Bitbtn

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
if messagedlg ('Logout..?((Yes Or No)', mtinformation,[mbyes,mbno],0)=mryes then
application.terminate;
end;

• Timer == system - timer

procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.Position:=mediaplayer1.Position;
progressbar1.Max:=mediaplayer1.Length;
end;

• form

procedure TForm1.FormActivate(Sender: TObject);
begin
timer1.Enabled:=false;
end;

Ini Lah Hasilnya