uses mmsystem;
........
PlaySound(pchar(ExtractFilePath(Application.ExeName)+'1.wav'),0,SND_FILENAME+SND_ASYNC)
Как загрузить и воспроизвести звук в WinAPI?
Как загрузить и воспроизвести звук в WinAPI? Какие дополнительные модули нужны? Звук, скажем в файле wav или mp3, в корне примера. И еще: как узнать полный путь к этому exe файлу, чтобы ориентируясь на него загружать звуки с других подпапок. Спасибо всем ответившим и просто посмотревшим :)
br />
Вот ссылка MCI:
http://www.cyberguru.ru/programming/visual-cpp/visual-cpp-media-control-interface.html
Вот ссылка MCI:
http://www.cyberguru.ru/programming/visual-cpp/visual-cpp-media-control-interface.html
либо так:
(воспроизведение файла 1.wav из папки с программой)
Код:
(воспроизведение файла 1.wav из папки с программой)
Цитата: ahilles
либо так:
(воспроизведение файла 1.wav из папки с программой)
Код:
uses mmsystem;
........
PlaySound(pchar(ExtractFilePath(Application.ExeName)+'1.wav'),0,SND_FILENAME+SND_ASYNC)
........
PlaySound(pchar(ExtractFilePath(Application.ExeName)+'1.wav'),0,SND_FILENAME+SND_ASYNC)
(воспроизведение файла 1.wav из папки с программой)
Огромное спасибо парни за подсказки, но есть одна маленькая проблемка - Application.ExeName. При добавлении модуля Forms размер exe увелич. в десять раз. Такой роскоши позволить не могу :) Как подобное реализовать без Application.ExeName? Спасибо еще раз.
то же самое: ExctractFilePath(ParamStr(0))
Благодарю всех. Ваши ответы мне помогли.
Снова вопрос: как проиграть в WinAPI сразу несколько звуков, а то у меня при проигрывании второго звука первый обрывается?
uses mmsystem;
........
PlaySound(pchar(ExtractFilePath(Application.ExeName)+'1.wav'),0,SND_FILENAME+SND_ASYNC)
Есть такая возможность??
uses mmsystem;
........
PlaySound(pchar(ExtractFilePath(Application.ExeName)+'1.wav'),0,SND_FILENAME+SND_ASYNC)
Есть такая возможность??
Цитата: APROMIX
Снова вопрос: как проиграть в WinAPI сразу несколько звуков, а то у меня при проигрывании второго звука первый обрывается?
uses mmsystem;
........
PlaySound(pchar(ExtractFilePath(Application.ExeName)+'1.wav'),0,SND_FILENAME+SND_ASYNC)
Есть такая возможность??
uses mmsystem;
........
PlaySound(pchar(ExtractFilePath(Application.ExeName)+'1.wav'),0,SND_FILENAME+SND_ASYNC)
Есть такая возможность??
Можно проиграть по очереди:
загружаешь имена файлов в массив, после того как первый проиграл
проигрываем второй файл:)
APPROMIX, копай в сторону микшера Windows.