在单核的cpu上没有问题,双核就有问题,不知何故,用了线程来播放下一个视频,怀疑是线程的问题,后来用这种方法播放下一个视频也有问题。procedure TF_main.TrackBarTimer(sender: TObject;
CurrentPos, StopPos: Cardinal);
begin
if CurrentPos=StopPos then
dsPPlayState:='END';
self.imgTop.Hint:=dsPPlayFileName+' '+TimeToStr(CurrentPos / MiliSecPerDay)+' / '+TimeToStr(StopPos / MiliSecPerDay);
if (dsPPlayState='END') then
begin
I:=Flist.Items.Count;//-1;
self.pnlClient2.Align:=alClient;
str:='D:/广告/'+FList.Items.Strings[Random(I)];
self.PlayFile(Str);
Randomize;
end;
end;