急求TWindowsMediaPlayer循环播放的问题的问题！

Question

我想用TWindowsMediaPlayer无限循环播放一个媒体文件，当文件播放结束的时候再从头来过，无限次。当我在playstatechange事件中，当播放结束的时候，再play，只有声音没有图像，然后用close,然后,url重新负值，然后play，竟然没有反应！请指教!谢谢

Answer 1

这样的代码，在D7 XPsp2 WMP10下循环播放WMV文件并没有问题procedure TForm1.Button1Click(Sender: TObject);
begin
  WindowsMediaPlayer1.URL:= 'd:\1.wmv';
end;procedure TForm1.WindowsMediaPlayer1PlayStateChange(ASender: TObject;
  NewState: Integer);
begin
  if NewState = wmppsStopped then WindowsMediaPlayer1.controls.play;
end;