利用MediaPlayer 組件實現(xiàn)一個播放wav聲音文件的播放器。用戶可自己選擇要打開的 wav文件，并在播放時有播放進度提示（如圖）。首先在在窗體中添加1個MediaPlayer組件MediaPlayer1、1個標簽組件Label1、2個按鈕組件（“打開文件”－Button1，“退出”－Button2），1個時鐘組件Timer1和1個OpenDialog組件OpenDialog1，一個gauge組件（用作播放進度顯示）。進度提示條每隔0.1秒更新一次進度。將程序補充完整。
procedure TForm1.Button1Click（Sender： TObject）；
begin
if OpenDialog1.Execute Then Begin
MediaPlayer1.filename := OpenDialog1. （①） ;
Label1.（②） := OpenDialog1.filename;
MediaPlayer1.open; //打開聲音文件
MediaPlayer1. （③） ; //開始播放
Timer1.enabled := （④） ;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := （⑤） ; //每隔0.1秒更新一次進度
gauge1.maxvalue := MediaPlayer1.length;
gauge1. （⑥） := MediaPlayer1.Position; //更改進度
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
