Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

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

 
 
 

Советы по delphi \ Мультимедиа \ Аудио \ Использование WAVE файлов в ресурсах

Использование WAVE файлов в ресурсах

1) Создайте файл MyWave.rc и впишите в него следующее:
   MyWave RCDATA LOADONCALL MyWave.wav
   (где MYWAVE.WAV - имя проигрываемого WAVE файла);
2) Необходимо скомпилировать созданный нами файл командой:
   brcc32.exe MyWave.rc, после чего получается файл
   MyWave.res;
3) Далее при написании программы, необходимо использовать
   следующий код:
 
   Uses .., MMSystem;

   {$R MyWave.res}
   procedure RetrieveMyWave;
   var 
    hResource: THandle; 
    pData: Pointer;
   begin
    hResource:=LoadResource( hInstance, FindResource(hInstance,'MyWave', RT_RCDATA));  
    try   
      pData := LockResource(hResource); 
      if pData = nil then
         raise Exception.Create('Cannot read MyWave');    
      PlaySound('MyWave', 0, SND_MEMORY);
    finally   
    FreeResource(hResource); 
   end;
  end;

Название: Использование WAVE файлов в ресурсах
Дата публикации: 2004-01-29 (3219 Прочтено)

 
 

 

Page generation 0.041 seconds