delphi TMediaPlayer 播放文件夹中所有视频

VCL的TMediaPlayer具有一个OnNotify事件，您可以使用该事件检测播放结束。将视频文件路径加载到列表中，开始播放第一个文件，然后使用OnNotify播放列表中的下一个文件，重复执行直到列表完成。

参考:http://docwiki.embarcadero.com/Libraries/Sydney/en/Vcl.MPlayer.TMediaPlayer.OnNotify