Показать сообщение отдельно
  #1  
Старый 03.06.2007, 19:30
elagin elagin вне форума
Прохожий
 
Регистрация: 26.05.2007
Сообщения: 7
Репутация: 10
По умолчанию Как проиграть wav-ресурс

Привет Всем, это снова Я.
у меня возникла проблема,как проиграть wav ресурс, не прибегая к MediaPlayer, причитал одну стать статью
>>>>>Сначала делаешь файл 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;
>>>>>
Но както не получается, а вернее нечем"<b>Сначала делаешь файл SOUND.RC, в нем строка вида: MY_WAV RCDATA TEST.WAV
Компилишь чем-нибyдь в *.RES<b>" помогите кто знает
Ответить с цитированием