[MOSTAFA.KAMEL]

عايز اعرف عملت مشروع بس هو مش هيشتغل غير لما يكون برنامج معين موجود على الجهاز

ممكن حد يقولى مثال على اى برنامج

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

[مساعدة]

السلام عليكم

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

[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

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

[MOSTAFA.KAMEL]

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

[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