كيفية منع تشغيل اكثر من نسخة من البرنامج

وعليكم السلام

ضع هذا الكود في الـ Main الدالة الرئيسية للبرنامج حيث يبدأ منها التشغيل أو في الحدث Load للفورم الأول في التشغيل ليتم الاختبار :

Dim appProc() As Process
Dim strModName, strProcName As String
strModName = Process.GetCurrentProcess.MainModule.ModuleName
strProcName = System.IO.Path.GetFileNameWithoutExtension(strModName)
appProc = Process.GetProcessesByName(strProcName)
If appProc.Length > 1 Then
    MessageBox.Show("يوجد نسخة أخرى تعمل من البرنامج")
    End
End If

تحياتي

شكرا جزيلا اخي العزيز

تم التجريب ونجح الحل .. اكرر شكري لك.

توجد طريقة أخرى بدون كود وهى من قائمة Project اختر الأمر Project Properties وهو آخر عنصر فى القائمة ستفتح لك نافذة خصائص المشروع وستجد فى أسفل التبويب Application اختيار Make single instance application قم بتحديده وسيتم عمل ما تريد

شكرا على السؤال والإجابة

فقد استفدت منهم