在线急等！！ 怎么样做一个无穷播放的多媒体？

Question

要做一个AVI格式的播放器，要求让它自动播放，并且不让停止的话自动无穷的播放下去，急用，请帮忙！！！！

Answer 1

在mediaplayer的notify事件里面判断，下面的代码在repeat选中的时候实现了循环播放
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if Mediaplayer1.Position = Mediaplayer1.Length then
    if Repeat.Checked then
        begin
          MediaPlayer1.Position := 0;
          MediaPlayer1.Play;
        end;
end;

Answer 2

http://expert.csdn.net/Expert/topic/1697/1697263.xml?temp=.8439447