利用MediaPlayer 组件实现一个播放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;