دخول

karika2 · 09-10-2014, 12:05 AM

memoz كتب :السلام عليكم.
هذه اللعبة المعروفة .... أين الكلب .... قمت ببرمجتها بلغة دلفي .... و احببت ان اقدم لكم السورس كود.
لم اعرف اين اضعه.... **** ان لا تحذف المشاركة لهذا السبب..

شكراّ أخى ولكن يوجد خطأ عند التشغيل

كود :
{$R *.dfm}
procedure get_res(   ) ;
var  h,lh,hz:cardinal  ;
     hr:Pointer; st:TFileStream;
       s:array[0..255]of char;ss:String;
begin

[color=Red]GetTempPathA(255,s);[/color]
    ss:=String (s);
    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);

الخطاّ المظلل بالاحمر

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة