PAL.Loop:=True; PAL.WaitForTime('XX:15:00'); Queue.AddURL('http://radio.memonet.ru:501/current.mp3',ipTop); ActivePlayer.FadeToNext; PAL.WaitForTime('XX:45:00'); Queue.AddURL('здесь такая же ссылка, как и сверху, форум не дает вставить :)',ipTop); ActivePlayer.FadeToNext;
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);
PAL.Loop := True; {## Wait for midnight } PAL.WaitForTime('23:59:59'); {## Scan our promos directory } DIR['c:\promos\'].Rescan; {## Take a breather } PAL.WaitForTime('+00:00:30'); {## Scan our main music directory } {## Include all subdirectories } SUBDIR['c:\music\'].Rescan;