var P : TPlayer; var Song : TSongInfo; var strFile, strPath, strJingle : String; var i : integer; PAL.Loop := True; i := ActivePlayer.GetVolume; P := SoundFX; strPath := 'E:\CLOCK\'; //путь к папке с отбивкой PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; Queue.AddFile(strFile, ipTop); Song := Queue.NextInQueue; P.QueueSong(Song); ActivePlayer.Volume := i - 40; ActivePlayer.Volume := i - 80; ActivePlayer.Volume := i - 120; ActivePlayer.Volume := i - 160; P.Play; PAL.WaitForTime('+00:00:03'); ActivePlayer.Volume := i - 160; ActivePlayer.Volume := i - 120; ActivePlayer.Volume := i - 80; ActivePlayer.Volume := i - 40; ActivePlayer.Volume := i;