» Проигрывание WAV-файлов

K.A.V.
www.oszone.net
22.02.2010
Автор: K.A.V.
Последнее обновление: 17.05.2014

Очередной пример, как можно проиграть WAV-файл системными средствами.
Требование ОС: минимум Windows 2000

Для начала объявим константы:
!define SND_ASYNC 1
!define SND_FILENAME 0x20000
!define SND_LOOP 8

Примеры возможных команд:
Проигрываем с ожиданием завершения
System::Call 'Winmm::PlaySound(t"$EXEDIR\sound.wav", i0, i${SND_FILENAME})'

Проигрываем без ожидания завершения
System::Call 'Winmm::PlaySound(t"$EXEDIR\sound.wav", i0, i${SND_FILENAME}|${SND_ASYNC})'

Проигрываем без ожидания завершения + с зацикливанием
System::Call 'Winmm::PlaySound(t"$EXEDIR\sound.wav", i0, i${SND_FILENAME}|${SND_ASYNC}|${SND_LOOP})