Вшиваем ресурсы

[annum]

Добрый день всем пользователям.

Вообщем такая проблема,прошу помощи у знатоков.
Есть программа,есть форма,на форме десять кнопок,на компьютере 10 аудио записей. Как сделать так,чтоб при нажатии на кнопку 1 играл трек 1, и так далее? Просто так закинуть файл в директорию с программой и прописать ссылкой не катит,файлы нужно вшить,чтоб никто никогда не смог до них добраться. Нужно сделать просто "программа.exe" , а в ней уже треки чтоб были зашиты.Слышал как-то ресурами это делается,но у меня уровень не такой уж и большой,помогите)
если была подобная тема,извиняюсь.Скиньте ссылку

пожалуйста,помогите.Очень нужно,скоро 8 марта,девушка нужно подарок дописать

[Человек_Борща]

Ну значится всё просто, создаём файл, musuc.rc:
В него примерно следующее.

Song0  WAVE "E:\music\mysong0.wav"
Song0  WAVE "E:\music\mysong1.wav"
Song0  WAVE "E:\music\mysong2.wav"
SongN  WAVE "E:\music\mysongN.wav"
Song10  WAVE "E:\music\mysong10.wav"

Все звуки должны быть перекодированы в wav формат.
Ну можно и mp3 но там всё чуть сложнее=)

собираем RES файл.

в программе, в DPR файле:

{$R Music.res}

Далее, вот такая процедурка:

procedure PlayWavFromRes(WavFile:string);
var
  ResHandle: THandle;
  SongRes:Pchar;
  ResPtr: PByte;
begin
try
  ResHandle := FindResource(hInstance, PChar(WavFile), 'WAVE');//ищем в ресурсе 
  SongRes := LoadResource(hInstance, ResHandle);//Загружаем
  if SongRes <> 0 then
  begin
  ResPtr := LockResource(SongRes); //Обьявляем что первыми сели на толчёк
  //Нужно подключить модуль MMSystem
  SndPlaySound(ResPtr, snd_ASync or snd_Memory) ;//играем звук
UnlockResource(SongRes);//Встаём с толчка
  end;
finally
FreeResource(SongRes);//Сваливаем из сартира
 end;
end;

в программе:

procedure TForm1.Button2Click(Sender: TObject);
begin
PlayWavFromRes('song5'); //Воспроизводим звук Song5 из ресурса=) 
end;

[annum]

Сообщение от Человек_Борща

Ну значится всё просто, создаём файл, musuc.rc:
В него примерно следующее.

Song0  WAVE "E:\music\mysong0.wav"
Song0  WAVE "E:\music\mysong1.wav"
Song0  WAVE "E:\music\mysong2.wav"
SongN  WAVE "E:\music\mysongN.wav"
Song10  WAVE "E:\music\mysong10.wav"

Все звуки должны быть перекодированы в wav формат.
Ну можно и mp3 но там всё чуть сложнее=)

собираем RES файл.

в программе, в DPR файле:

{$R Music.res}

Далее, вот такая процедурка:

procedure PlayWavFromRes(WavFile:string);
var
  ResHandle: THandle;
  SongRes:Pchar;
  ResPtr: PByte;
begin
try
  ResHandle := FindResource(hInstance, PChar(WavFile), 'WAVE');//ищем в ресурсе 
  SongRes := LoadResource(hInstance, ResHandle);//Загружаем
  if SongRes <> 0 then
  begin
  ResPtr := LockResource(SongRes); //Обьявляем что первыми сели на толчёк
  //Нужно подключить модуль MMSystem
  SndPlaySound(ResPtr, snd_ASync or snd_Memory) ;//играем звук
UnlockResource(SongRes);//Встаём с толчка
  end;
finally
FreeResource(SongRes);//Сваливаем из сартира
 end;
end;

в программе:

procedure TForm1.Button2Click(Sender: TObject);
begin
PlayWavFromRes('song5'); //Воспроизводим звук Song5 из ресурса=) 
end;

делаю всё как ты говоришь,создал файл,закинул музыку,добавляю в файл dpr куча ошибок вылазиет
[Warning] Project1.dpr(9): File not found: 'Music.res'
[Error] Project1.dpr(18): Undeclared identifier: 'FindResource'
[Error] Project1.dpr(19): Undeclared identifier: 'LoadResource'
[Error] Project1.dpr(20): Operator not applicable to this operand type
[Error] Project1.dpr(22): Undeclared identifier: 'LockResource'
[Error] Project1.dpr(24): Undeclared identifier: 'SndPlaySound'
[Error] Project1.dpr(24): Undeclared identifier: 'snd_ASync'
[Error] Project1.dpr(24): Undeclared identifier: 'snd_Memory'
[Error] Project1.dpr(25): Undeclared identifier: 'UnlockResource'
[Error] Project1.dpr(28): Undeclared identifier: 'FreeResource'

[Человек_Борща]

подключи модули windws и mmsystem

собранный ресурс положи в папку с проектом

[annum]

вы уж извините что я такой лузер в этом,но как собрать РЕС файл?
и можно подробнее? я в файле project1.dpr в юзез вписую windows b mmsystem, потом директиву,потом процедуру дописую,да?

[annum]

апп помогите пожалуйста!

[ArtGrek]

вот, сам сеичас читаю
http://demi-s.narod.ru/resources/008.html

[asmodey1]

http://pblog.ru/?p=11
И не нужно кросспостить !

[annum]

да просто я надеюсь что хоть где-то кто-то поможет