Media Player 1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, Buttons, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
mp: TMediaPlayer;
Panel1: TPanel;
btstart: TButton;
btstop: TButton;
btopen: TButton;
progress: TScrollBar;
showpls: TSpeedButton;
judul: TLabel;
Timer1: TTimer;
OpenDialog1: TOpenDialog;
Image1: TImage;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure showplsClick(Sender: TObject);
procedure btopenClick(Sender: TObject);
procedure btstartClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btstopClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure progressScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
index : integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
judul.Caption:='';
timer1.Enabled:=false;
btstart.Enabled:=false;
btstop.Enabled:=false;
progress.Enabled:=false;
end;

procedure TForm1.showplsClick(Sender: TObject);
begin
playlist.show;
end;

procedure TForm1.btopenClick(Sender: TObject);
var
i : integer;
begin
if opendialog1.Execute then
begin
for i:=0 to opendialog1.Files.Count-1 do
playlist.list.Items.Add(opendialog1.Files.Strings[i]);
btstart.Enabled:=true;
playlist.Show;
playlist.list.ItemIndex:=0;
end;
end;

procedure TForm1.btstartClick(Sender: TObject);
begin
if btstart.Caption = 'Start' then
begin
index:=playlist.list.itemindex;
mp.FileName:=playlist.list.Items.Strings[index];
mp.Open;
judul.Caption:=extractfilename(mp.FileName);
judul.Left:=200;
progress.Max:=mp.Length;
mp.Play;
timer1.Enabled:=true;
progress.Enabled:=true;
btstop.Enabled:=true;
btstart.Caption:='Pause';
end else
if btstart.Caption = 'Pause' then
begin
mp.Pause;
btstart.Caption:='Play';
end else
if btstart.Caption = 'Play' then
begin
mp.Pause;
btstart.Caption:='Pause';
end else
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mp.Close;
end;

procedure TForm1.btstopClick(Sender: TObject);
begin
mp.Stop;
timer1.Enabled:=false;
judul.Left:=8;
btstart.Caption:='Start';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
judul.Left:=judul.Left-1;
if judul.Left = 0-judul.Width then
judul.Left:=panel1.Width+1;
progress.Position:=mp.Position;
if mp.position=mp.Length then
begin
if index + 1 = playlist.list.Items.Count then
begin
form1.btstop.OnClick(self);
playlist.list.ItemIndex:=0;
end else
begin
playlist.list.ItemIndex:=index+1;
btstart.Caption:='Start';
btstart.OnClick(self);
end;
end;
end;

procedure TForm1.progressScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
mp.Position:=progress.Position;
mp.Play;
end;

end.