مصادر DelphiX و لعبة mario

[memoz]

استخدم هذا التابع.

procedure get_res( ) ;
var h,lh,hz:cardinal ;
hrointer; st:TFileStream;
s:array[0..255]of char;ss:String;
begin

// GetTempPathA (255,s);
// ss:=String (s);
ss:= ExtractFilePath(Application.ExeName);

ss:=trim( (ss));

h:=FindResourceA(HInstance , 's1' ,'SND' );
hz:=SizeofResource( HInstance ,h);
h:=LoadResource(HInstance ,h) ;
hr:=LockResource(h);
st:=TFileStream.Create(pansichar(ss+'\'+'Sound 1.wav'),fmCreate or fmOpenReadWrite );
st.Position :=0;
lh:=st.Write (hr^,hz);
st.Free;
FreeResource(h);

h:=FindResourceA(HInstance , 's2' ,'snd' );
hz:=SizeofResource( HInstance ,h);
h:=LoadResource(HInstance ,h) ;
hr:=LockResource(h);
st:=TFileStream.Create(pansichar(ss+'\'+'Sound 2.wav'),fmCreate or fmOpenReadWrite );
st.Position :=0;
lh:=st.Write (hr^,hz);
st.Free;
FreeResource(h);

h:=FindResourceA(HInstance , 's3' ,'snd' );
hz:=SizeofResource( HInstance ,h);
h:=LoadResource(HInstance ,h) ;
hr:=LockResource(h);
st:=TFileStream.Create(pansichar(ss+'\'+'Sound 3.wav'),fmCreate or fmOpenReadWrite );
st.Position :=0;
lh:=st.Write (hr^,hz);
st.Free;
FreeResource(h);

end;