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

Serg Vostrikov
(2:5053/15.3)

Взято с сайта http://blackman.wp-club.net/

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...