[مساعدة]

السلام عليكم

هذا مثال عن التأكد من وجود برنامج 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