1.建一個(gè)文件夾，用于放程序。
2.新建一個(gè)程序。
3.保存(用Save All)
4.向窗體Form1添加控件MediaPlayer1，設(shè)置它的屬性
MediaPlayer1.FileName='...';
MediaPlayer1.AutoOpen=True;
5.提供選擇文件功能。添加OpenDialog1，添加Button1(文字改為'打開(kāi)')，添加事件和代碼：
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    MediaPlayer1.FileName:=OpenDialog1.FileName;
end;
6.顯示當(dāng)前文件長(zhǎng)度和播放進(jìn)度。添加ScrollBar1，Timer1
并給Timer1添加代碼：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ScrollBar1.Max:=MediaPlayer1.Length;
  ScrollBar1.Position:=MediaPlayer1.Position; 
end;
7.用數(shù)字顯示當(dāng)前文件長(zhǎng)度和播放進(jìn)度。添加Label1,Label2,并在Timer1的事件中添加代碼：
  Label1.Caption:='文件長(zhǎng)度：'+IntToStr(MediaPlayer1.Length);
  Label2.Caption:='播放進(jìn)度：'+IntToStr(MediaPlayer1.Position);
8.顯示播放的文件名。在打開(kāi)按紐Button1的事件中添加代碼：
  Form1.Caption:='我的播放器 當(dāng)前播放：'+MediaPlayer1.FileName;
9.類似于6，添加TrackBar1顯示文件長(zhǎng)度和播放進(jìn)度的控件
給Timer1添加代碼：
  TrackBar1.Max:=MediaPlayer1.Length;
  TrackBar1.Position:=MediaPlayer1.Position;
10.類似于6，添加ProgressBar1顯示文件長(zhǎng)度和播放進(jìn)度的控件
給Timer1添加代碼：
  ProgressBar1.Max:=MediaPlayer1.Length;
  ProgressBar1.Position:=MediaPlayer1.Position;
11.類似于6，添加Gauge1顯示文件長(zhǎng)度和播放進(jìn)度的控件
給Timer1添加代碼：
  Gauge1.MaxValue:=MediaPlayer1.Length;
  Gauge1.Progress:=MediaPlayer1.Position;
12.利用ScrollBar1來(lái)反向控制MediaPlayer1的播放進(jìn)度。
給ScrollBar1添加OnScroll(當(dāng)它滾動(dòng)時(shí))
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  MediaPlayer1.Position:=ScrollBar1.Position;
  MediaPlayer1.Play;
end;