Наверно некоторым хотелось, чтобы при завершении какой либо операции в своей программе, воспроизводился какой нибудь звук. Так именно этим мы сейчас и займемся.
Есть два способа, чтобы воспроизвести звук в программе:
С помощью MediaPlayer
Без каких либо компонентов
Мы рассмотрим второй способ, а в следующей статье — первый.
Итак. Для начала создадим новый проект в Delphi. Далее нажимаем (F12) и вписываем в раздел uses модуль mmsystem.
Далее кидаем на форму Button и создадим на ней событие OnClick с помощью двойного нажатия на Button.
Теперь необходимо написать следующий код на кнопку:
PlaySound(‘D:\1.wav’, 0, SND_PURGE);
Где:
D:\1.wav — полный путь к файлу
0 — звук берется из ресурса
SND_PURGE — режим воспроизведения
Режимы воспроизведения
Описание
SND_ASYNC Звук воспроизводится асинхронно и функция возвращается сразу же после начала воспроизведения. Чтобы прекратить воспроизведение нужно вызвать функцию PlaySound с параметром pszSound, равным 0.
SND_LOOP воспроизведение звука постоянно повторяется, одновременно надо установить флаг SND_ASYNC.
SND_NOSTOP Если заданный звук не может быть воспроизведен из-за занятости ресурсов, то функция немедленно вернет false (и звук не будет воспроизведен). Если же данный флаг не указан, то функция попытается остановить воспроизведение другого звука, чтобы освободить ресурсы.
SND_PURGE Останавливает воспроизведение любых звуков, вызванных в данной задаче.
SND_SYNC Синхронное воспроизведение звука события. Функция PlaySound возвращается только после окончания воспроизведения.