Определить время звучания аудиофайла

[vitalmsk]

Школьный радиоузел. Планировщик заданий запускает консольную программу воспроизведения аудио файла. (ABC Паскаль) По окончании воспроизведения консоль закрывается и комп продолжает делать свое дело. Вопрос как определить время звучания (для закрытия консоли) или как закрыть консоль после завершения воспроизведения?

[kutani]

Что используете в консольном приложения для воспроизведения аудио?
К примеру, комплектный модуль Sounds для WAV:

... 
var s: sound;
begin 
  s:= sound.Create('test.wav'); 
  s.play;
  sleep(s.Length); 
  s.Destroy;
...

[vitalmsk]

Да именно так, но как вычислить параметр Length для использования в sleep. Пока чисто методом проб определил сколько будет играть Wav файл например в 1 Мб. По длине wav файла вычисляю приблизительную величину Length и подставив в sleep(s.Length); и имею "счастье". Хотелось бы поточнее.

[Serge_Bliznykov]

а чем вызвано использование именно Pascal ABC? я считал, что это ЯВУ исключительно для обучения программированию!

но как вычислить параметр Length для использования в sleep

ну и вопрос не очень понятен.
из справки:

function Length: integer;
Возвращает длительность звука в миллисекундах.

т.е. s.Length - это и есть длительность вашего файла в миллисекундах.
Не надо ничего вычислять, всё уже вычислено!

[vitalmsk]

Ключевая фраза - Школьный радиоузел. поэтому:
1 - ЕГЭ по информатике сдается на ABC паскале. Программу делают ученики.
2 - Я по наивность считал, что function Length: integer; расщитывает длину строковой переменной, а не время звучания файла.

[kutani]

функция length() не то же самое, что свойство класса Sound.length/