先定一个全局变量
Play_Index
在主窗体上加放二个控件,一个时间,一个列表控件
主要是写Timer的Timer事件
大体思想如下:
Procedure TForm1.Timer1Timer(sender:Tobject);
//假设AllTime是播放mp3所需要的总时间,这个可以由MediaPlayer的Length得到
Var i:integer
begin
i=i+1;
if i=AllTime then
begin
Play_Index:=Play_Index+1;
With MediaPlayer do
begin
Filename:=ListBox1.Items[Play_Index];
Play;
AllTime:=Length;//这里的Length具体怎么实现,要参考MediaPlayer控件的方法
end;
i:=0;
end;
end;