|
Использование 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 (3527 Прочтено) |
|
 |