Использование 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com