simple mp3 yang gak slesei2...

walahhh...msh gak selesei juga ne...tapi ada yang lebih dari yag satu ne,ada timernya,bisa buat nampilin data drive...tapi cuma itu...xe2 dari sapa ya???klo g salah ini urlnya
ni sintaknya...(tolong bantu biar jadi sempurna)
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    Gauge1: TGauge;
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Panel2: TPanel;
    Panel1: TPanel;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
   Posisi:longint;
begin
    Posisi:=MediaPlayer1.Position;
    Label4.Caption:=IntToStr(Posisi)+' ms';
    Gauge1.Progress:=MediaPlayer1.Position
end;

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if (FileListBox1.FileName<>'')then
    begin
        MediaPlayer1.FileName:=FileListBox1.FileName;
        MediaPlayer1.Open;
        MediaPlayer1.TimeFormat:=tfMilliSeconds;
        label3.Caption:=IntToStr(MediaPlayer1.Length)+' ms';
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DriveComboBox1.DirList:=DirectoryListBox1;
    DirectoryListBox1.FileList:=FileListBox1;
    FileListBox1.Mask:='*.WAV;*.MID;*.DAT;*.MPG;*.MP3';
    MediaPlayer1.VisibleButtons:=[btPlay,btPause,btStop];
    MediaPlayer1.Width:=Gauge1.Width;
    timer1.Enabled:=false;
end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
    Case Button of
    btPlay:
    Begin
        if (MediaPlayer1.Mode<>mpPaused)then
        Begin
           Timer1.Interval:=250;
           Gauge1.MinValue:=0;
           Gauge1.MaxValue:=MediaPlayer1.Length;
           Gauge1.Progress:=0;
        End;
        Timer1.Enabled:=True;
        Gauge1.Enabled:=True;
    End;

    btPause:
    Begin
        if (MediaPlayer1.Mode=mpPaused) then
        Begin
            Timer1.Enabled:=True;
            Gauge1.Enabled:=True;
        End
        Else
        Begin
            Timer1.Enabled:=False;
            Gauge1.Enabled:=False;
        End;
    End;

    btStop:
    Begin
        MediaPlayer1.Position:=0;
        Timer1.Enabled:=False;
        Gauge1.Enabled:=False;
    End;
end;
end;

end.