Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 октября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



WAV в EXE

Жизнь.exe?

В файл MyWave.rc пишешь:

 MyWave RCDATA LOADONCALL MyWave.wav

brcc32.exe MyWave.rc, получаешь MyWave.res.

В своей программе пишешь:


 {$R MyWave.res}
 

Все!

Предупреждая следующий твой вопрос "а как прочитать wave-файл из исполняемого файла?"


 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');
 
     // Здесь pData указывает на MyWave
     // Теперь можно, например, проиграть его (Win32):
     PlaySound('MyWave', 0, SND_MEMORY);
   finally
     FreeResource(hResource);
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS