设一个Timer控件来定时检测是否播放完毕procedure TForm1.Timer1Timer(Sender: TObject); begin if (MediaPlayer1.Position=MediaPlayer1.EndPos)and(MediaPlayer1.Mode<>mpNotReady) then begin MediaPlayer1.Open; MediaPlayer1.Play end end;
对不起,上面那个有点错误,用这个就对了。 var N:Integer;N:=1;procedure TForm1.Timer1Timer(Sender: TObject); begin if (MediaPlayer1.Mode=mpStopped)and(N<=10) then begin MediaPlayer1.Rewind; MediaPlayer1.Play; N:=N+1 end end;
begin
if (MediaPlayer1.Position=MediaPlayer1.EndPos)and(MediaPlayer1.Mode<>mpNotReady) then
begin
MediaPlayer1.Open;
MediaPlayer1.Play
end
end;
var N:Integer;N:=1;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (MediaPlayer1.Mode=mpStopped)and(N<=10) then
begin
MediaPlayer1.Rewind;
MediaPlayer1.Play;
N:=N+1
end
end;