neo_protect

السلام عليكم الرجاع من الأعضاء الكرام الساعدة في تصحيح هذا الكود الذي هو عبارة عن كود برنامج يحسب النسبة المئوية و المشكل هو في StrToFloat كما أضن يرجى المساعدة procedure TForm1.Button1Click(Sender: TObject); var A: integer; B: integer; C: integer; D: integer;…

يجب عليك أولا أن تكون على دراية في ما يخص الفيروسات أي الإمتدادات و الخصائص (إبحث عن أنواع إمتدادات الفيروسات , خصائص ملفات الفيروسات ) ثانيا تبحث عن طرق التعامل مع الملفات (حدف , مخفي , نظام ) ثالثا و هو الأمر الصعب طريقة الفحص (البحث في usb , القرص الصلب) حظ…

أنا أرشح najy_zl و Swift

وجدت ما كنت أبحث عنه و هو البحث عن الملفات في المجلدات الرئيسية و المجلدات الفرعية أرجوا أن تستفيدوا منه Begin Chemin:=IncludeTrailingPathDelimiter(Chemin); Form1.Label1.Caption:=Chemin; Form1.Label1.Refresh; Result:=0; If FindFirst(Chemin+'*.*',faAnyFile,S)=0…

شكرا B.M.AbdelAziZ على الإضافة :thumb_up:

شكرا أخي B.M.AbdelAziZ لقد وجدت طريقة آخرى سأجرب

السلام عليكــم ورحمـة الله وبركاتــه لقد قمت بهذه المحاولة حيث أن البرنامج يضهر عند بدأ التشغيل بشكل عادي لكنه بدون فعالية أي أنه لا يطبق الإجراءات التي فيه ويجب عليا غلقه ثم إعادة فتحه ليكون فعال هذه المحاولة User : Registry, var start:TRegistry; begin if che…

السلام عليكــم ورحمـة الله وبركاتــه وجدت موضوع أعجني فأحببت أن أطرحه عليكم إستعمال أوامر الدوس في دالفي بدون أي مشاكل بستعمال ShellExecut و مترجم CMD المفاتيح : /c و /k عند إستعمال /c ينفذ سطر التعليمة ثم يغلق نافذة الدوس عند إستعمال /k ينفض سطر التعليمة و ين…

شكرا أخي mohfa لكن ليس ممكمن إختصار كل هذا (انظر هنا ) في كود بسيط؟

سؤال بسيط من فضلكم كيف يمكنني إجراء بحث في السواقة c في المجلدات الرئيسة و الفرعية مثلا كيف يمكن لي أن أجعل من هذا الكود يبحث عن جميع الملفات في المجلدات الرئيسية و المجلدات الفرعية لسواقة C if FindFirst('C:\*.*', faHidden, searchResult) = 0 then

السلام عليكــم ورحمـة الله وبركاتــه دالفي 7 النسخة مجانية بحجم 55Mo و ليست مقرصنة روابط التحميل ftp://ftp-developpez.com/delphi/telecharg...phi7PersoFR.zip http://delphi.ftp-developpez.com/telecharg...phi7PersoFR.zip شرح التثبيت هذا رقم التسجيل Numéro : YH?Z-…

و عليكم السلام أخي الكريم ممكن أن تشرح أكثر , أين حدث المشكل : في تنفيذ البرنامج؟ هل برمجة برنامج أخر بعد هذا المشكل و تم التنفيذ بسلام؟ هل لديك مساحة كافية في القرص لتنفيذ البرنامج؟ هل المكان الذي تريد التخزين فيه (القرص) قابل للقرأة؟

شكرا أخي الكريم على المساعدة , فعلا فكرة جيدة جاري التجربة

<div align="right">السلام عليكــم ورحمـة الله وبركاتــه شكرا للجميع على العبور

السلام عليكــم ورحمـة الله وبركاتــه هل من الممكن إستعمال أوامر الدوس في دالفي دون إستعمال ملف دفعي أي داخل الكود سورس لدالفي مثلا begin dos @echo off del F:\autorun.* end;

شكرا أخي الكريم على لكن لي عندك طلب ثاني لو سمحت و هو أنني أريد أن يكود البرنامج يبحث عن أكثر من نوع من الملفات المخفية ويعرضها مرة واحدة مثالا *.txt & *.doc & *.xls حاولة لعدة مرات لكن لم أنجح و هاذه محاولتي المخلبطة كالعادة procedure TForm1.FormCreate(Sender…

شكرا أخي الكريم , الخلبطة أمر طبيعي بالنسبة لشخص مبتدأ مثلي سأستفيد من القواعد و النصائح التي تتكرمون بها شكرا ثانيتا

شكرا أخي فعلا إستفدة منه لكن هناك مشكل ثاني و هو أنني لم أتمكن من التنسيق بين boucle if & repeat أريد عرض جميع الملفات المخفية procedure TForm1.FormCreate(Sender: TObject); var searchResult : TSearchRec; begin ListBox1.clear; if (FileGetAttr('C:\*.txt' + searc…

السلام عليكــم ورحمـة الله وبركاتــه ،،السلام عليكــم ورحمـة الله وبركاتــه لقد طرحة من قبل سؤال حول كيفية البحث عن الملفات المخفية و الأن تمكنت من إيجاده لكن المشكلة أنه يضهر بالإضافة إلى الملفات المخفية الملفات العادية أي الغير مخفية مع أنني حددت له خاصية ال…

السلام عليكــم ورحمـة الله وبركاتــه بهذا الكود البسيط يمكن عرض الفورم (البرنامج ) في وسط الشاشة Left:=(Screen.Width-Width) div 2; Top:=(Screen.Height-Height) div 2;