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

Материал из DRKB


Сначала делаешь файл SOUND.RC, в нем строка вида:

MY_WAV RCDATA TEST.WAV

Компилишь чем-нибyдь в *.RES

Далее в тексте:

{$R полное_имя_файла_с_ресурсом}

var
  WaveHandle: THandle;
  WavePointer: Pointer;
begin
  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;
end;


Author: Serg Vostrikov (2:5053/15.3)
Source: http://blackman.wp-club.net/
ID: 03597