如何在循环中播放许多wma文件

Question

如何使用Tmediaplayer在delphi上播放20个wma文件，一个接一个地继续循环直到程序关闭？我已经尝试过为每个文件使用一个计时器，但我一直都在失败。我有20首歌曲，我想在后台播放，而其余的节目都在运行。

Answer 1

将文件名放入列表中。将TMediaPlayer.FileName属性设置为列表中的第一个文件名，将TMediaPlayer.Notify属性设置为true，然后调用TMediaPlayer.Play()。当TMediaPlayer.OnNotify事件信号播放完成后，您可以将列表中的下一个文件名分配给TMediaPlayer.FileName，将TMediaPlayer.Notify重置为true，然后拨打TMediaPlayer.Play()。对列表中的每个文件名重复此操作。你播放了最后一个文件名，用第一个文件名重新开始。