| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

присоединение файла [D6, XP]

Страницы:   < 1 2 >

Andrey235 ©   (2005-09-28 09:28:00) 

как присоединить файл *.waw или *.mp3 к моему exe_шнику?

---

Andrey235   (2005-09-28 16:10:00) [21]

ни чё не понял

---

Gydvin   (2005-09-28 09:40:00) [22]

///Nomadic

Можно ли сделать так, чтобы в исполняемом файле программы находился какой-нибудь звук в формате .wav, и можно было бы проиграть этот звук?

Создаешь в папке проекта файл 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_RCDA
TA));

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;

---

Страницы:   < 1 2 >

Наверх