1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : !»°بہًكہًر الہًعہًراقہًي°«! | المشاهدات : 481 | الردود : 19
حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:

    [​IMG]

    كيف الحال اعضاء وزوار عراق تيم انشاء تكونوا بصحه وسلامه

    [​IMG]

    درس اليوم هو شرط بلغه الدلفي يعتمد على تشغيل برنامج في جهاز الضحيه

    طبعا الكود سهل وعند تحقيق الشرط تضهر رساله انته غير الرساله وضع مكانها الداونلودر او الاستدعاء


    الاكواد سهله لا تحتاج لشرح

    الكود



    كود PHP:

    Uses
       tlhelp32

    var
       
    lclCurrProcTProcessEntry32;
       
    lclPrntProcTProcessEntry32
       
    lclSnapHndlTHandle
       
    lclEXENameString;
       
    lclPrntNameString

    begin 
        
    // Grab the snap shot of the current Process List 
        
    lclSnapHndl := CreateToolHelp32SnapShot(TH32CS_SNAPALL0); 

        
    // Save the name of your executable 
        
    lclEXEName := ExtractFileName(Application.ExeName); 

        
    // you must define the size of these structures. 
        
    lclCurrProc.dwSize := SizeOf(TProcessEntry32); 
        
    lclPrntProc.dwSize := SizeOf(TProcessEntry32); 


        
    // find current process 
        
    Process32First(lclSnapHndllclCurrProc); 
        
    repeat 
          
    if lclCurrProc.szExeFile lclEXEName then 
            
    Break; 
        
    until (not Process32Next(lclSnapHndllclCurrProc)); 


        
    // find parent process 
        
    Process32First(lclSnapHndllclPrntProc); 
        
    repeat 
          
    if lclPrntProc.th32ProcessID lclCurrProc.th32ParentProcessID then 
            
    Break; 
        
    until (not Process32Next(lclSnapHndllclPrntProc));


        
    lclPrntName := lclPrntProc.szExeFile;

            if 
    AnsiCompareText(lclPrntName'اسم البرنامج') = 0 then 
          ShowMessage
    ('تم تحقيق الشرط'
        else 
          
    ShowMessage('لم يتم تحقيق الشرط');
    end;





    الى هنا يتنهي الموضوع طعبا هذا اخر موضوع لي لاني لن انزل موضوع اخر لمده ثلاث اشهر بسبب الامتحانات دعواتكم بالنجاح وانتظروا العوده

    انشاء الله بمواضيع اقوى اتركم براعيه الله


    [​IMG]


    امير ايكل

    المعاقب الصدري

    علي الصقور هنا

    مخلد هكسور

    محمد العراقي

    المحارب مبدع الدلفي

    والى كل اعضاء وزوار ومشرفين عراق تيم




















     
  2. M!sS.WroOoD

    M!sS.WroOoD .: آمً عَلـِـوَةٍ :. ExpErt DeveloPer

    الأنتساب:
    ‏31 مارس 2015
    المشاركات:
    435
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    18
    الوظيفة:
    طالبه جامعه
    الإقامة:
    بغداد الكاظميه
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Delphi
    YouTube:
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج

    حلو يا طيب استمر في ابداعك
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  3. وائل الاسدي

    وائل الاسدي Developer

    الأنتساب:
    ‏23 فبراير 2015
    المشاركات:
    45
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    8
    الجنس:
    ذكر
    الوظيفة:
    موظف في وزارة الداخلية
    الإقامة:
    IRAQ
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Delphi
    Facebook:
    YouTube:
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج

    استمر في ابداعك
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  4. حازم مشكله

    حازم مشكله V • I • P

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    380
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    18
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج

    عاشت ايدك كبد
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  5. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج


    انرتي الموضوع اختي
     
  6. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج

    نورت حبي
     
  7. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج

    وايدك ضلع نورت
     
  8. тнe wαʀʀɪoʀ

    тнe wαʀʀɪoʀ <font color="#FF0000">.:: نجم قسم حمايه الاجهزه :: DeveloPer Plus

    الأنتساب:
    ‏6 مارس 2015
    المشاركات:
    212
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    18
    الإقامة:
    ĪRÂҨ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج

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

    بآرك آلله بيك ي مبدع , وآن شآء آلله موفق بدرآستك وتوصل مبتغآك ي طيب


    شكرآ ع آلآهدآء ي حبيبي مردودة آن شآء آلله


    :{1!}:
     
  9. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج

    نورت الموضوع بردك يا غالي بالتوفيق للجميع انشاء الله
     
  10. علاوي نستلة

    علاوي نستلة موقوف لمخالفة الشروط

    الأنتساب:
    ‏9 فبراير 2015
    المشاركات:
    69
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    8
    الوظيفة:
    اقرة حتة انجح من السادس العلمي وارتاأح
    الإقامة:
    الـــعــــراأق األـــعـــظــــيـــم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Delphi
    رد: تلغيمه شرطيه دلفي تعتمد على تشغيل برنامج

    واصل ابداعك اخي الغالي


    بارك الله بيكـ
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة