скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Автор: Serg Vostrikov

Сначала делаешь файл 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 © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook