السلام عليكــم ورحمـة الله وبركاتــه ،،
إخواني الكرام أنا محتاج إلى مساعدتكم , لقد قمت ببرمجة برنامج و يزعجني أنني كل ما أضغط على التطبيق يقوم بفتح البرنامج و ما أريده أن لا يفتح البرنامج إلا مرة واحدة حتى و إن نقرنا على التطبيق لمراة عدة , أرجوا أنكم فهمتوا ما أقصد و أن أجد لديكم الإجابة و لتنبيه فأنا مبتدأ في دالفي يعني أود شرح مبسط من فضلكم
تقبلوا مني فائق التقدير و الإحترام
تم تعديل هذه المشاركة بواسطة neo_protect في 16 يونيو 2009 في 17:18
المثال المرفق يوضح الطريقة
يمكنك مشاهدة الكود بالذهاب إلى الوحدة project1
عند فتح البرنامج يقوم بفتحه بشكل صامت ريثما يتم أختبار إن كان البرنامج قيد التشغيل فإن كان البرنامج قيد التشغيل يقوم بإيقافه و إلا يقوم بفتح المشروع بشكل أعتيادي
أرجو أن يكون ما تبحث عنه..
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
شكرا أخي الكريم فعلا هذا ما كنت أبحث عنه :thumb_up:
جميل ياابو احمد استعمال ال Mutex
المهم اخي neo_protect ان تفهم الكود
عزيزي :
لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .
فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم
*****
الكود كان عندي من قبل لكن لم ينفع معي بسبب أنني لم أكتشف هذا
لكن rober نبهني إليه جزاه الله كل خير
الأن يعمل 100%
تم تعديل هذه المشاركة بواسطة neo_protect في 16 يونيو 2009 في 21:28
السلام عليكــم ورحمـة الله وبركاتــه ،،
جرب هذا أيضا لكن في الفورم1 و قبل .end الأخير
اقتباسInitializationmHandle := CreateMutex(nil,True,'XYZ');
if GetLastError = ERROR_ALREADY_EXISTS then begin
showMessage('البرنامج يشتغل ولا يمكنك تشغيل نسختين منه :-) ');
halt;
end;
لا تنس فقط كتابة
mHandle: THandle;
في المتغيرات أعلى الوحدة
تم تعديل هذه المشاركة بواسطة rm31 في 17 يونيو 2009 في 18:34
عن أسامة بن زيد قال: قال رسول الله - صلى الله عليه وسلم -: ( من صنع إليه معروف فقال لفاعله جزاك الله خيرا فقد أبلغ في الثناء ) .
رواه الترمذي و قال هذا حديث حسن جيد غريب.
و صححه العلامة الألباني في صحيح الترغيب
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…