[MOSTAFA.KAMEL]

(24-01-17, 08:59 PM)مساعدة كتب : السلام عليكم

هذا مثال عن التأكد من وجود برنامج Acrobat Reader من شركة Adobe

كود :

Dim company As Microsoft.Win32.RegistryKey
company = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey("Adobe")
If company IsNot Nothing Then
   ' قراءة جميع برامج الشركة
   Dim softwares() As String = company.GetSubKeyNames
   ' يجب تطابق حالة الأحرف الكبيرة والصغيرة
   If softwares.Contains("Acrobat Reader") Then
       MessageBox.Show("البرنامج موجود")
   Else
       MessageBox.Show("البرنامج غير موجود")
   End If
Else
   MessageBox.Show("اسم الشركة غير موجود")
End If

طيب ماهو لو البرنامج مش موجود فى الجهاز انا عايز البرنامج بتاعى يسطب البرنامج عن طريق المشروع انا ضايف البرنامج فى مع ملفات المشروع