Включение wav-файла в exe и проигрывание этого wav-файлаDelphi , Файловая система , РесурсыВключение wav-файла в exe и проигрывание этого wav-файла
Автор: Осипов Евгений { **** UBPFD *********** by delphibase.endimus.com **** >> Включение wav-файла в exe и проигрывание этого wav-файла Зависимости: Uses MMSystem Автор: Осипов Евгений Анатольевич, ICQ:114205759, Бузулук Copyright: Нашёл в интернете Дата: 31 мая 2002 г. ***************************************************** } // В файл MyWave.rc пишешь: MyWave RCDATA LOADONCALL MyWave.wav // Затем компилируешь brcc32.exe MyWave.rc, получаешь MyWave.res. // В своей программе пишешь: {$R MyWave.res} procedure RetrieveMyWave; var hResource: THandle; pData: Pointer; begin hResource := LoadResource(hInstance, FindResource(hInstance, 'MyWave', RT_RCDATA)); try pData := LockResource(hResource); if pData = nil then raise Exception.Create('Cannot read MyWave'); // Здесь pData указывает на MyWave // Теперь можно, например, проиграть его (Win32): PlaySound(pData, 0, SND_MEMORY + SND_ASYNC + SND_NOSTOP); //Для PlaySound используется модуль MMSystem} //SND_ASYNC - при проигрывании не останавливать работу программы //SND_NOSTOP - проиграть звук до конца //SND_STOP - прекратить играть прежний звук и начать новый finally FreeResource(hResource); end; end; Статья Включение wav-файла в exe и проигрывание этого wav-файла раздела Файловая система Ресурсы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |