[bakriano30@yahoo.com]

(25-01-17, 05:24 PM)MOSTAFA.KAMEL كتب : ممكن الحل من فضلك

اضف نسخه من البرنامج المراد تنصيبه ويفضل ان تكون نسخه تنصيب صامته وضع هذا الكود مع تعديل مسار البرنامج كما موضح 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        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("البرنامج غير موجود")
                Process.Start("notepad.exe")
            End If
        Else
            MessageBox.Show("اسم الشركة غير موجود")
        End If

    End Sub