Как проиграть Wave-ресурсDelphi , Файловая система , РесурсыКак проиграть Wave-ресурсАвтор: Serg Vostrikov Сначала делаешь файл SOUND.RC, в нем строка вида: MY_WAV RCDATA TEST.WAV Компилишь чем-нибyдь в *.RES Далее в тексте: {$R полное_имя_файла_с_ресурсом} var WaveHandle: THandle; WavePointer: pointer; ... WaveHandle := FindResource(hInstance, 'MY_WAV', RT_RCDATA); if WaveHandle <> 0 then begin WaveHandle := LoadResource(hInstance, WaveHandle); if WaveHandle <> 0 then begin ; WavePointer := LockResource(WaveHandle); PlayResourceWave := sndPlaySound(WavePointer, snd_Memory or SND_ASYNC); UnlockResource(WaveHandle); FreeResource(WaveHandle); end; end; Статья Как проиграть Wave-ресурс раздела Файловая система Ресурсы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |