Как проиграть Wave-ресурс? |
Previous Top Next |
Сначала делаешь файл SOUND.RC, в нем строка вида: MY_WAV RCDATA TEST.WAV
Компилишь чем-нибyдь в *.RES
Далее в тексте:
Code: |
{$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; |
Serg Vostrikov
(2:5053/15.3)
©Drkb::03597
Взято с сайта http://blackman.wp-club.net/