منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : منع عمليه (برنامج في ال process) من العمل مرتين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
اطلب منكم كود لمنع عمليه من العمل مرتين في ال procesess
بحيث يبحث البرنامج فأذا كانت العمليه شغاله منعها من ان تعمل مره اخرى
.......ب أختصار Angry
البرنامج يقوم بتشغيل برنامج اخر
عند تشغيل البرنامج مرتين...راح البرنامج الاخر يشتغل مره اخرى
اريد البرنامج الاخر ميشتغل بس مره واحده فقط Confused

تقريبا مثل هذا الشرح
http://www.dev-point.com/vb/t480663.html
لكن
اريد منع البرنامج الثاني من العمل مرتين وليس البرنامج الرئيسي

وجزاكم الله خير الجزاء
هذا كود لقفل عملية فى ال process

كود :
For Each p As Process In Process.GetProcesses
           If p.ProcessName = "هنا اسم العملية" Then
               p.Kill()
           End If
       Next

ارجو ان اكون قد افدتك  Smile
(01-07-15, 07:25 PM)mohamed haroon كتب : [ -> ]
هذا كود لقفل عملية فى ال process

كود :
For Each p As Process In Process.GetProcesses
           If p.ProcessName = "هنا اسم العملية" Then
               p.Kill()
           End If
       Next

ارجو ان اكون قد افدتك  Smile

هو يبغا كود لي اطفاء العملية الثناية من البرنامج يعني ما يصمح يشتغل البرنامج مرتين مش يقفل بس
نحمده ونصلي على رسوله الكريم

كود :
dim appPath as string = "مسار التطبيق"
dim appName as string = Path.GetFileNameWithoutExtension(appPath)
Process[] p = Process.GetProcessesByName(appName)

if p.Length > 1 then
    messagebox.show("التطبيق قيد التشغل، لا يمكن تشغيله مرة اخرى")
else
    Process.Start(appPath)
end if
سلام

تروح لخصائص المشروع وتاشر على Make single instance application

موفقين
(01-07-15, 07:25 PM)mohamed haroon كتب : [ -> ]
هذا كود لقفل عملية فى ال process

كود :
For Each p As Process In Process.GetProcesses
           If p.ProcessName = "هنا اسم العملية" Then
               p.Kill()
           End If
       Next

ارجو ان اكون قد افدتك  Smile

شكرا لمرورك
لكن اريد كود قتل العمليه الثانيه بحيث لاتعمل العمليه مرتين
علعموم جزاك الله خيرا

(01-07-15, 10:33 PM)ربيع كتب : [ -> ]نحمده ونصلي على رسوله الكريم

كود :
dim appPath as string = "مسار التطبيق"
dim appName as string = Path.GetFileNameWithoutExtension(appPath)
Process[] p = Process.GetProcessesByName(appName)

if p.Length > 1 then
    messagebox.show("التطبيق قيد التشغل، لا يمكن تشغيله مرة اخرى")
else
    Process.Start(appPath)
end if

جزاك الله خيرا اخي الكريم....كفيت ووفيت---لكن هل يوجد كود بدون ان اذكر مسار التطبيق بحيث يقتل العمليه عل الاسم

(01-07-15, 03:27 PM)mohgam كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخواني الكرام
اطلب منكم كود لمنع عمليه من العمل مرتين في ال procesess
بحيث يبحث البرنامج فأذا كانت العمليه شغاله منعها من ان تعمل مره اخرى
.......ب أختصار  Angry
البرنامج يقوم بتشغيل برنامج اخر
عند تشغيل البرنامج مرتين...راح البرنامج الاخر يشتغل مره اخرى
اريد البرنامج الاخر ميشتغل بس مره واحده فقط  Confused

تقريبا مثل هذا الشرح
http://www.dev-point.com/vb/t480663.html
لكن
اريد منع البرنامج الثاني من العمل مرتين وليس البرنامج الرئيسي

وجزاكم الله خير الجزاء

شكرا لكم وجزاكم الله خير الجزاء....تم الحل من خلال اوامر الدوس بارك الله فيكم اخواني الكرام