[ربيع]

نحمده ونصلي على رسوله الكريم

كود :

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