(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كلما تم نقل البرنامج من مسار الى مسار اخر وهذا للافادة ولكي تعم الفائدة لك وللجميع
سيتم نقل الموضوع الى القسم الصحيح حتى يعم فائدة الموضوع للاخرين
تحياتى لكوتمنياتى لك التوفيق
الف شكر لك استادنا وجبيبنا الغالي elgoker علي هده اللمسه والمعلومه الجميله جزاك الله خيرا