كيف برمجة باتش بالدلفي - نسخة قابلة للطباعة

كيف برمجة باتش بالدلفي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف برمجة باتش بالدلفي (/showthread.php?tid=3916)

كيف برمجة باتش بالدلفي - Kamal120 - 24-02-2012

السلام عليكم و رحمة الله و بركاته

اخواني الكرام ان شاء الله انتم بالف خير
برمجة باتش بالدلفي
وجدت بعض الاكواد اثناء بحثي في النت
قمت بتطبيقه لكن للاسف عند تنفيذه يتوقف في هذا الكود

كود :
LoadRecString(RecName,RecTypeChar)Char;

ما هو الخطء و ايضا ما معنى هذا السطر من الكود

كود :
FileS : LongInt = 2055528;

هل هو حجم الملف المراد التعديل فيه بالباتش
ارفقت لكم الملف للتجربة و تصحيح الخطء
شكرا لكم

كيف برمجة باتش بالدلفي - me_delphi - 25-02-2012

وعليكم السلام ورحمة الله تعالى و بركاته

PHP كود :
function GetResource(Handle: HMODULE; var Size: Cardinal; pSectionName: pchar): pointer;
var
  ResourceLocation: HRSRC;
  ResourceHandle: THandle;
begin
  ResourceLocation := FindResource(Handle, pSectionName, RT_RCDATA);
  Size := SizeOfResource(Handle, ResourceLocation);
  ResourceHandle := LoadResource(Handle, ResourceLocation);
  Result := LockResource(ResourceHandle);
  if Result <> nil then
    FreeResource(ResourceHandle);
end; 

اترك لك المحاولة أخي الكريم

إقتباس :
كود :
FileS : LongInt = 2055528;

هو عملية اسناد للمتغير

كيف برمجة باتش بالدلفي - Kamal120 - 26-02-2012

اخي و الله غرقت لم افهم شيئ و لا اعرف اين الصق هذا الكود
لقد جربته لكن نفس المشكل يتوقف عند الاكواد الاخرى
هل حملت المرفق ممكن احد ان يعدل عليه و يرفقه من جديد
لانني فهمته قليلا لكي اعرف اين الخلل في الكود
و شكرا لك

كيف برمجة باتش بالدلفي - kachwahed - 27-02-2012

وعليكم السلام ورحمة الله
هذا تصحيح نحوي للمثال الذي أرفقته:

كود :
function LoadRecString(RecName, RecType: PChar): PChar;
var
  hRessourceVoulue, hBlockMemoireRes: THandle;
  montexte: PChar;
begin
  hRessourceVoulue := FindResource(HInstance, RecName, RecType);
  hBlockMemoireRes := LoadResource(0, hRessourceVoulue);
  montexte := LockResource(hBlockMemoireRes);
  FreeResource(hRessourceVoulue);
  result := montexte;
end;

إقتباس :اين الصق هذا الكود... لكن نفس المشكل

المعذرة، لكن المشكلة أنك تحاول نسخ ولصق كود دون فهم!
راجع هذه المواضيع:
http://www.delphi4arab.net/forum/showthread.php?tid=2030
http://www.delphi4arab.net/forum/showthread.php?tid=3231
http://www.delphi4arab.net/forum/showthread.php?tid=2854
بالتوفيق.

كيف برمجة باتش بالدلفي - me_delphi - 27-02-2012

إقتباس :لكن المشكلة أنك تحاول نسخ ولصق كود دون فهم

نعم مثل مافال الأخ kachwahed ...نحن هنا لنفهم ونتعاون

حاول أخي كامل...ان أردت مجرد مثال ولا تريد تعلم البرمجة فهناك الكثير في النت فقط حاول ونحن معك أخي الكريم

كيف برمجة باتش بالدلفي - Kamal120 - 27-02-2012

kachwahed كتب :المعذرة، لكن المشكلة أنك تحاول نسخ ولصق كود دون فهم!

شكرا لك اخي kachwahed على الكود يعمل جيدا الله يبارك فيك
ياريت نوصل الى مرتبتكم في هذه اللغة الرائعة
المشكل اني احاول نسخ و لصق الكود هذا صحيح
و بدون فهمه
هذا خطا اخي بل العكس انا حاولت فهمه و الحمد لله
لقد صححت فيه بعض الاكواد و لكن لم اصل الى الهدف
الله غالب بشوي نتدرج في تعلم هذه اللغة
و شكرا لك على الروابط ايضا
ربي يزيدك علم على علم
تحياتي لك

me&delphi' كتب :حاول أخي كامل...فقط حاول ونحن معك أخي الكريم

شكرا لك اخي جمال و بارك الله فيك اخي العزيز و ما قصرت معي
طبعا انا احب هذه اللغة و اتمنى تعلمها و الامثلة تساعدنا كثيرا كما تعرف
تحياتي لك

كيف برمجة باتش بالدلفي - محمد عبد العزيز - 28-02-2012

السلام عليكم ورحمة الله

سبب الخطأ نسخ من كود منسوع ومعروض بمنتدى
انظر الكود الأصلي

.jpg

Patch.jpg (الحجم : 8.15 ك ب / التحميلات : 59)
الكود بعد نسخه ولصقه بمنتدى دون استخدام وسم CODE

.jpg

tongue.jpg (الحجم : 6.65 ك ب / التحميلات : 54)
بعض الحروف تتحول الى صور Smiley

عند نسخ الكود ما تحول الى صور لا ينسخ ويصبح الكود ناقص

نعود لصلب الموضوع،
انت تحاول برمجة Patch والكود الذي نسخته لPatch Maker
Patch برنامج يعدل على برنامج أخر
Patch Maker برنامج بنتج Patch
الأول سهل وبسيط، يكفي ان تتعلم كيف تفتح ملف وتعدل به بموضع ما
كما قال لك الاخوة حاول وان واجهك مشكل/خطأ إعرضه هنا

كيف برمجة باتش بالدلفي - Kamal120 - 28-02-2012

شكرا لك اخي عبدالعزيز نعم الكود نسخته من هذا المنتدى

كود :
http://www.opensc.ws/tutorials-articles/3860-howto-make-crack-patch-delphi.html

نعم عرفت ان بعض الحروف تحولت الى صور Smiley
و بعد ان نسخته حذفت تلك الصور و عرفت ان ذلك
الفراغ فيه شيئ ما و بعد ان درست قليلا الكود وجدت
ان الفراغ يعوض بهذه العلامة ( : ) لكن للاسف لم يعمل
الكود حتى صححه اكثر اخي kachwahed
الله يجازيه كل خير و لا انسى اخي me&delphi
ايضا شكرا لكم جميعا و بارك الله فيكم