用MediaPlayer播放文件(50)

用MediaPlayer播放单个文件，可以听到声音，但是播放一个列表里面的文件，就听不到了var SL: TStringList;
iCount: integer;
begin
SL := TStringList.Create;
try SL.Add('cc');
... SL.Add('dd');
for iCount := 0 to SL.Count - 1do
begin
with MediaPlayerdo
try FileName := SL[iCount];
Open;
Play;
except end;

end;

finally SL.Free;
end;

end;

你这一段明显是有问题,你怎样判断文件播放完了,你一个循环就播放所有的文件呀建议用一个TTimer控件判断文件播完就打开下一条继续如果是用的Dspack里的TFilterGraph控件来播放的话，就更好了，里面有一个事件On_Complete什么的可以直接就晓得播完没得,然后在这个事件里找下一条，