delphi4arab منتديات دلفي للعرب

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

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

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

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

كود :
FileS : LongInt = 2055528;

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

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

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;

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

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

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

كود :
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/showthr...p?tid=2030
http://www.delphi4arab.net/forum/showthr...p?tid=3231
http://www.delphi4arab.net/forum/showthr...p?tid=2854
بالتوفيق.

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

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

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

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

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

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

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

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

سبب الخطأ نسخ من كود منسوع ومعروض بمنتدى
انظر الكود الأصلي
[attachment=2070]
الكود بعد نسخه ولصقه بمنتدى دون استخدام وسم CODE
[attachment=2069]
بعض الحروف تتحول الى صور Smiley

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

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

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

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

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

Kamal120

me_delphi

Kamal120

kachwahed

me_delphi

Kamal120

محمد عبد العزيز

Kamal120