使用mediaplayer控件，怎么才能一次播放多首歌？即放完一首继续放下一首。请高手帮助，小弟感激不尽。

Question

var Num:Integer;
if OpenDialogFile.Execute then begin
   For Num:=0 TO OpenDialogFile.Files.Count -1 Do Begin   
      ..........
      //该怎么做你因该知道吧。
   end;
end;

Answer 1

假设ListBox1中装着歌曲列表：MediaPlayer1.Wait := True; // 关键在这里
for i:=0 to ListBox1.Items.Count-1 do
begin
  MediaPlayer1.Close;
  MediaPlayer1.FileName := ListBox1.Items[i];
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

Answer 2

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if (MediaPlayer1.Position = MediaPlayer1.Length) and
     (MediaPlayer1.FileName <> '') then
  begin
    MediaPlaeyr1.FileName := '另一首歌'
    MediaPlayer1.Open;
    MediaPlayer1.Close;
  end;
end;