Помощь - Поиск - Пользователи - Календарь
Полная версия: Вставка звука в приложение
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
RussoTuristo
Мы с группой писали игру ... Все вроде бы готово, но осталось вставить везде звуки. Только чето непонятно как ... Читал DRKB:

Мне нужно чтобы в программе на фоновом плане играла музыка ...

 PlaySound('E:\Escaping the Atmosphere.wav',0,SND_FILENAME);
- если вставляешь этим методом, то играет музыка до конца, потом запускается приложение ... не приемлимо.

var
FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle := FindResource(HInstance, 'Name of your resource', 'WAVE');
if FindHandle <> 0 then
begin
ResHandle := LoadResource(HInstance, FindHandle);
if ResHandle <> 0 then
begin
ResPtr := LockResource(ResHandle);
if ResPtr <> nil then
SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory);
UnlockResource(ResHandle);
end;
FreeResource(FindHandle);
end;
end;

тогда:
[Fatal Error] Unable to build. License is invalid or has expired.
volvo
PlaySound('E:\Escaping the Atmosphere.wav', 0, SND_ASYNC);
не пробовал? Это как раз играет файл асинхронно...
RussoTuristo
Спасибо, то, что надо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.