Каким образом скопировать файл?

[Kashp]

Товарищи программисты, по-моему я тупой. Вы не могли бы подробно рассказать, каким образом добавить *.wav в в те самые ресурсы?(или ссылочку дать) И чтобы потом, например, при нажатии кнопки можно было проиграть этот *.wav из того ресурса.

[JTG]

Сохраняешь проект, в папке с ним будет project1.res, открываешь его Restorator'ом, добавляешь нужный файл как RCDATA, сохраняешь. Вместо Restorator можно использовать Resource Workshop от того же Borland, консольный brcc, вроде есть в делфи или что-то из этого например http://www.softlinks.ru/files/s195p1.php

[Kashp]

Сообщение от JTG

Сохраняешь проект, в папке с ним будет project1.res, открываешь его Restorator'ом, добавляешь нужный файл как RCDATA, сохраняешь. Вместо Restorator можно использовать Resource Workshop от того же Borland, консольный brcc, вроде есть в делфи или что-то из этого например http://www.softlinks.ru/files/s195p1.php

Так, скачал Resource Builder (он нормальный? Подойдет?), скомпилировал. А вот теперь какой код надо написать, чтобы я нажал на кнопку и *.wav из ресурсов проигрался?

[Kashp]

Вот что получилось, но не работает, подскажите ошибку пожалуйста!

implementation

{$R *.dfm}
{$R base.res}

procedure TForm1.Button1Click(Sender: TObject);
var
WaveHandle : THandle;
WavePointer : pointer;
begin
WaveHandle := FindResource(hInstance,'Dudka.wav', RT_RCDATA);
if WaveHandle <> 0 then
begin
WaveHandle:= LoadResource(hInstance,WaveHandle);
if WaveHandle <> 0 then
begin
WavePointer := LockResource(WaveHandle);
PlayResourceWav:= sndPlaySound(WavePointer, SND_MEMORY or SND_ASYNC);
UnlockResource(WaveHandle);
FreeResource(WaveHandle);
end;
end;
end;

end.

[JTG]

sndPlaySound устарела - это из 16-битной dll, используй лучше PlaySound

Назови Dudka.wav как-то подругому без точки (на всякий случай) и редактируй файл с ресурсами проекта, который по умолчанию Project1.res и тогда не придётся подключать base.res
---
Кстати, хоть uses mmsystem добавил-то?
Ща гляну ещё, Playsound вроде прямо из ресурса играть может
---

Да, так и есть,
Создавай в Project1.res (или как там твоя прога зовётся) свой тип WAVE (вместо RCDATA!) в него пихай сам звук, обзывай как хочешь, например DUDKA

В OnClick пиши всего одну строчку:
PlaySound('DUDKA',HInstance,SND_RES OURCE+SND_ASYNC+SND_LOOP)