質問です。
exe埋め込みwave再生したいのですが、
tips本のとおりやっても再生できません。
ご指摘お願いします。
具体的にはpsoundに "RIFF､f"が代入され,sndPlaySoundでエラーです。

procedure oto(a:integer);
var h,hwave:thandle;
psound:lpstr;
t:string;
begin
hwave:=0;
psound:=nil;
t:=inttostr(a);
if length(t)=1 then t:='0'+t;
t:='sound'+t;
h:=findresource(hinstance,pchar(t),RT_RCDATA);
if h<>0 then
begin
hwave:=loadresource(hinstance,h);
if hwave<>0 then
begin
psound:=lockresource(hwave);
if psound<> nil then
sndPlaySound(psound,SND_ASYNC)
end;
end;
end;