(17-10-19, 01:42 AM)عبد العزيز البسكري كتب :

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

بارك الله فيك أخي الكريم على المثال الرائع و مشاركتنا إيّاه

للإضافة و تنوّع الأفكار يمكن جعل هذا الكود بأوّل فورم لودْ بالمشروع فهو يفي بالغرض بطريقة جيّدة

كود :

 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

تحياتي

(17-10-19, 03:45 PM)elgokr كتب :

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

مرحباً اخى Emam emam

جزاك الله خيراً على الاضافة الجميلة والطريقة البسيطة والرائعة

الطريقة التى تستخدمها رائعة وسهل فهمها لدا الجميع

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

وهو اذا تم نسخ ملف البرنامج الى مجلد اخر ستتمكن من فتح البرنامج مري  اخري

وهذا كون طريقة الـ Settings تعتمد على مسار البرنامج ويتم تفريغ الـ Settings

كلما تم نقل البرنامج من مسار الى مسار اخر وهذا للافادة ولكي تعم الفائدة لك وللجميع

سيتم نقل الموضوع الى القسم الصحيح حتى يعم فائدة الموضوع للاخرين

تحياتى لك

وتمنياتى لك التوفيق