سؤال طريقة منع البرنامج من التشغيل مرتين بجهاز واحد

بسم الله الرحمن الرحيم

يمكنك تنصيب مجموعة المكونات JVCL من هنا ثم إضافة المكون JvAppInstances إلى الفورم الرئيسية للبرنامج....

وتمت العملية

لتتحميل من هذا الرابط: jvcl.delphi-jedi.org/Downloads.htm

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

الموضوع موجود بالمنتدى منذ مدة ربما لم تبحث جيدا

على كل حال أضف مايلي قبل Application.Initialize

var

HM: THandle;

function Check: boolean;

begin

HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyOwnMutex');

Result := (HM <> 0);

if HM = 0 then

HM := CreateMutex(nil, false, 'MyOwnMutex');

end;

begin

if Check then

Exit;

ما نوهت عنه اخي طه في كودك السابق اين اضعه بالضبط

وضعته بين وبعد وقبل

begin

Application.Initialize;

Application.CreateForm(Tcondir, condir);

Application.Run;

ولم يعمل

ارجوا افادتي ولك الشكر

عذرا أخي الكريم نسيت إخبارك بأن تضيف الوحدة Windows في القسم Uses

على كل حال المثال المرفق يوضح كل شيئ

shalwan.rar

tahasit كتب:

عذرا أخي الكريم نسيت إخبارك بأن تضيف الوحدة Windows في القسم Uses

على كل حال المثال المرفق يوضح كل شيئ

شكرا اخي الكريم اضيف وعمل البرنامج بشكل جيد