بسم الله الرحمن الرحيم
لقد انشأت برنامج ووضعت فيه ها الكود حتى لا يستطيع المستخدم من فتح اكثر من نسخة
Public Sub Main()
Dim NotRunning As Boolean
Dim mMutex As Mutex = New Mutex(False, "OneInstance", NotRunning)
If NotRunning = True Then
Dim Login As New Login
Login.ShowDialog()
Else
MessageBox.Show("لايمكن تشغيل أكثر من نسخة من البرنامج" & vbCrLf & "الرجاء اغلاق البرنامج وإعادة تشغيله", MessageBoxButtons.OK, MessageBoxIcon.Information)
Application.Exit()
End Ifلكن المشكلة ان هناك برنامج آخر كنت قد عملته وفيه هذا الكود، وأردت أن اشغله لكنه اخبرني بأن البرنامج قيد التشغيل ولا يمكنني ان اشغل اكثر من نسخة
فمن لديه الحل
مع جزيل الشكر
