30-07-13, 02:57 AM
ضع هذا الكود في الـ 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
{وَسَارِعُواْ إِلَى مَغْفِرَةٍ مِّن رَّبِّكُمْ وَجَنَّةٍ عَرْضُهَا السَّمَاوَاتُ وَالأَرْضُ أُعِدَّتْ لِلْمُتَّقِينَ }آل عمران133