{ **** UBPFD *********** by delphibase.endimus.com **** >> Включение wav-файла в exe и проигрывание этого wav-файла Зависимости: Uses MMSystem Автор: Осипов Евгений Анатольевич, ICQ:114205759, Бузулук Copyright: Нашёл в интернете Дата: 31 мая 2002 г. ***************************************************** } // В файл MyWave.rc пишешь: MyWave RCDATA LOADONCALL MyWave.wav // Затем компилируешь brcc32.exe MyWave.rc, получаешь MyWave.res. // В своей программе пишешь: {$R MyWave.res} procedureRetrieveMyWave; 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'); // Здесь pData указывает на MyWave // Теперь можно, например, проиграть его (Win32): PlaySound(pData, 0, SND_MEMORY + SND_ASYNC + SND_NOSTOP); //Для PlaySound используется модуль MMSystem} //SND_ASYNC - при проигрывании не останавливать работу программы //SND_NOSTOP - проиграть звук до конца //SND_STOP - прекратить играть прежний звук и начать новый finally
FreeResource(hResource); end
; end
;