Question

Delphi中WindowsMediaPlayer的问题.

两个BUTTON控件，一个windowsmediaplayer控件
BUTTON控件分别为打开和暂停
下面是实现的代码

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
windowsmediaplayer1.enabled:=true;
windowsmediaplayer1.URL:=opendialog1.FileName;
windowsmediaplayer1.controls.play;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
windowsmediaplayer1.controls.pause;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
windowsmediaplayer1.enabled:=false;
end;

end.

有一个问题就是当我点打开，并且选中文件后确定，windowsmediaplayer能播放文件
但在播放的时候，我点下打开，弹出打开对话框后，我不想打开文件
点取消后
播放进度突然重新开始
我知道是打开这个按钮出了错误
但我不知道怎么改
大家帮帮我，谢谢了

Answer 1

begin
if opendialog1.Execute then
begin
windowsmediaplayer1.enabled:=true;
windowsmediaplayer1.URL:=opendialog1.FileName;
windowsmediaplayer1.controls.play;
end;
end;