Как проиграть Wave-ресурс

Советы » Ресурсы(RES-файлы) » Как проиграть Wave-ресурс

Сначала делаешь файл 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com