//当一首歌曲播放完成时,响应如下事件
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if filelistbox1.ItemIndex<filelistbox1.Items.Count then
begin
filelistbox1.ItemIndex:=filelistbox1.ItemIndex+1;
MediaPlayer1.FileName :=filelistbox1.FileName ;
MediaPlayer1.Open ;
if filelistbox1.ItemIndex=filelistbox1.Items.Count-1 then
MediaPlayer1.Notify :=false //当播放到最后一首时,停止响应ONNotify事件
else MediaPlayer1.Notify :=true;
MediaPlayer1.play;
end;
end;
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with Sender as TMediaPlayer do
begin
if Mode = mpStopped then
begin
//播放下一首歌
end;
Notify := True;
end;
end;