Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Как в Memo прокрутить текст
   Категория: Компоненты
  Получить типы полей таблицы
   Категория: Базы данных
  Установить в программу свои шрифты
   Категория: Приложение
  Округление в большую сторону
   Категория: Математика
  Что значит Paramstr
   Категория: Приложение
  Как создать вычисляемые поля
   Категория: Базы данных
  Процедуры и функции для рабты с файлами
   Категория: Файловая система
  Числовой формат ячейки в Excel
   Категория: Базы данных

Delphi - База Знаний: Wav файл внутри exe-файла

  << Вернуться к Содержанию  

Пример на DELPHI
Сначала делаешь файл 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
  << Вернуться к Содержанию