PAL.Loop := True; if (Queue.Count < 3) then begin SubDir['C:\Users\Administrator\Downloads\music'].QueueBottom(smLemmingLogic, EnforceRules); SubDir['C:\Users\Administrator\Downloads\music2'].QueueBottom(smLemmingLogic, EnforceRules); end; PAL.WaitForPlayCount(3);
if (DeckA.Time = 3) or (DeckB.Time = 3) then begin Aux.Play(...); Глушим в деках звук до 20%; Высчитываем длину трека в Aux(который играет); time = длина_трека_aux - 3; WaitForTime(+time); Возвращаем звук в деках... end;