delphi怎么播放第2首音乐呢？

来源：百度知道 编辑：UC知道 时间：2024/06/19 13:55:25
在delphi中，假设有一首音乐播放完后,在自动播放第二首该怎么写?弄了半天没搞出来！大家帮帮！

使用tmediaplayer空间.然后用个timer
procedure tform1.timer1ontime(sender:tobject);
begin
if mediaplayer1.mode<>mpplaying then
begin
mediaplayer1.close;
mediaplayer1.filename:='你要播放的音乐名称';
mediaplayer1.open;
mediaplayer1.play;
end;
end;
手打的没编译.
只要是时间要求不是特别精确的话就这样吧

你用什么播放的？在相应的事件中，判断一下是否播放完了，加载下一首歌就是了