ملف DLL - أرجو المساعدة

It appears that trying to load an AVI from a resource causes an exception on the first attempt, so I gave it another go and it worked. Here's the code:





procedure TSplash.ShowSplash;

var

  ResHandle: Integer;

begin

  try

    ResHandle := LoadAviAsResource(Animate1, 'MyDll.dll', 'SPLASHAVI');

    { causes exception }

  except

    ResHandle := LoadAviAsResource(Animate1, 'MyDll.dll', 'SPLASHAVI');

    { this time it works }

  end;

  if ResHandle > 0 then

  begin

    Animate1.Visible := True;

    Animate1.Repetitions := -1;

    Animate1.Active := True

  end

  else

  begin

    Animate1.Visible := False;

    Animate1.Active := False;

    { Show a static bitmap or something if AVI cannot be displayed }

  end;

  Show;

end;



function TSplash.LoadAviAsResource(const AviName: TObject; DllName,

  ResourceName: string): Integer;

var

  ResourceHandle: THandle;

begin

  ResourceHandle := LoadLibrary(Pchar(DllName));

  TAnimate(AviName).ResName := ResourceName;

  TAnimate(AviName).ResHandle := ResourceHandle;

  FreeLibrary(ResourceHandle);

  result := ResourceHandle;

end;

وضح السؤال الثاني

علي استطيع المساعدة :):o

(f)

مشكور ابو جواد عليك بهم:D

تكرم ابو لؤي:D

بعدين اشوفك ماتسال

شو ماعندك برامج :D

:)

السلام عليكم

السؤال الثاني :

ستحتاج لاستخدام الدوال BeginUpdateResource ,UpdateResourceوEndUpdateResource (هذا في winnt/2k/xp/2003 ) .

اتعب شوي وابحث في الموضوع حتلقى اجابه .

شو رأيك اعطيك كود برنامج لتعديل PE Resource ؟ اي! تعديلها كلها !!

http://www.wilsonc.demon.co.uk/d7resourceexplorer.htm

برنامج رائع .

(f)

CIONO1

منذ زمن ونفسي احمل الامثلة في ذاك الموقع اخي tmaaa

بس الظاهر في مشكلة

لكن اليوم يبدو انها حلت

اقتباس

شو رأيك اعطيك كود برنامج لتعديل PE Resource ؟ اي! تعديلها كلها !!

هل تقصد عير الموجود في الموقع

هل تعرف غيره اخي tmaaa

مازلنا نتظر منك الكثير

السلام عليكم

أقصد الموجود في الموقع المذكور في ردي السابق .

(f)

CIONO1

السلام عليكم

اقتباس

ولكني دائماً أحصل على خطاً: cannot play AVI وعندما أغير ملف الفيديو بملف آخر صغير عبارة عن animated gif تم تحويله إلى avi فلا مشكلة!!!!

إذا وجدت الحل أرجو أن توافيني به لأنني وقعت في نفس المطب شكرا لك