не получается подключить звук из ресурса

[DeDoK]

значит задача такая.
создаю res файл
FILE1 LOADONCALL sound.wav
потом пишу такой код

{$R sound.RES}

procedure TForm1.RetriveLoadSound;
var
hResource : THandle;
pData : Pointer;
begin
hResource:=LoadResource(HInstance,FindResource(HInstance,'FILE1',RT_RCDATA));
try
pData:=LockResource(hResource);
if pData=nil then raise Exception.Create('Ошибко');
sndPlaySound(pDATA, SND_LOOP);
finally
FreeResource(hResource);
end;
end;

компилируется но выдает Ошибко

[raxp]

в rc тип забыли...

FILE1 RCDATA LOADONCALL sound.wav

[DeDoK]

благодарю, сделал. а как сделать так чтобы звук играл на протяжении работы программы? пробовал SND_LOOP и SND_ASYNC - результата ноль

[raxp]

флаги одновременно... snd_Memory OR SND_aSYNC or snd_loop

sndPlaySound(pDATA, snd_Memory OR SND_aSYNC or snd_loop)

[SERG1980]

sndPlaysound('name',SND_RESOURCE or SND_ASYNC);

где name "имя звука" в ресурсах

[raxp]

не забываем, что мы получаем указатель через LockResource, но в данном случае важна комбинация именно SND_aSYNC or snd_loop... и кстати, раз уж используется lockresource, то не забываем и UnlockResource.