Cat['Library'].QueueBottom(smLRP, EnforceRules); Cat['Foreing'].QueueBottom(smLRP, EnforceRules); Cat['Rock'].QueueBottom(smLRP, EnforceRules); Cat['Hard rock'].QueueBottom(smLRP, EnforceRules); ...
SubDir['Z:\Foreing\3rd Force'].QueueBottom(smLRP, EnforceRules); SubDir['Z:\Foreing\Accept'].QueueBottom(smLRP, EnforceRules); SubDir['Z:\Foreing\ACDC'].QueueBottom(smLRP, EnforceRules); SubDir['Z:\Foreing\Adele'].QueueBottom(smLRP, EnforceRules); ...
PAL.Loop := True; if (Queue.Count < 5) then begin Req.QueueBottom; SubDir['Z:\Foreing\Accept'].QueueBottom(smRandom, EnforceRules); ... end; //PAL.WaitForPlayCount(4); (вкл/выклт)