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

السلام عليكم

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

(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

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

ممكن الحل من فضلك

(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