ch=PlayMusic("C:/WINDOWS/media/Windows XP - запуск.wav") a=MilliSecs() cnt=0 While a>MilliSecs()-1000 b=ChannelPlaying(ch) cnt=cnt+1 Wend Print cnt WaitKey