Как проиграть 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/