Используйте событие компонента TMediaPlayer OnNotify для определения момента завершения проигрывания:
procedure TForm1.BitBtn1Click(Sender: TObject); begin With MediaPlayer1 do Begin Open; Notify := True; Play; End; end; procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin With MediaPlayer1 do If NotifyValue = nvSuccessful Then Begin Notify := True; Play; End; end; |
[001985]