Иногда, в своих программах, бывает надобность использовать компонент TMediaPlayer - но он глючный и мало того мало функциональный, тогда, я решил обновить его и использовать по максимуму, все, что может дать mmsystem.dll, смотрите, что вышло:
Code
Добавил функции :
OpenMediaFile - Открыть файл с обработкой исключений
MCIPlayAudio - Проиграть файл mp1,mp2,mp3,wav,wma,midi,rmi,au,aif f. также можно проиграть несколько звуков одновременно.
SetVolume - Изменить громкость
GetVolume - Получить громкость
SetWaveVolume - Изменить громкость WavOut
GetWaveVolume - Получить громкость WAvOut
В property добавил восстановление громкости : RestoretVol = Boolean;
Скачать его можно тут.