| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
*.WAV наткнулась на один пример, но он у меня не работает
Оля © (2002-11-15 17:08:00)ВОПРОС:
Можно ли сделать так, чтобы в исполняемом файле программы находился какой-нибудь звук в формате .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_RCDATA));
try
pData := LockResource(hResource);
if pData = nil then
raise Exception.Create("Cannot read MyWave");
// Здесь pData указывает на MyWave
// Теперь можно, например, проиграть его (Win32):
PlaySound(pData, 0, SND_MEMORY);
finally
FreeResource(hResource);
end;
end;
=================
Я сделала все как сдесь сказано, от себя ничего не добовляла,
а при компиляции выскакивает такая штука:
[Error] nay.pas(793): Undeclared identifier: "PlaySound"
[Error] nay.pas(793): Undeclared identifier: "SND_MEMORY"
Что делать? хелп ми плиз энибоди
Оля (2002-11-15 17:29:00) [1]все ок
спасибо
Игорь Шевченко (2002-11-15 17:12:00) [2]uses
MMSystem;
| |
