[عبدالرحمن المكاوي]

حصلت علي هذا الكود من الاخ سيلفرلايت
لكن اريد التاكد من برنامج بعينه ان كان موجود ام لا

كود :

  Private Function GetInstalledApplicationNames() As List(Of String)
       Dim result As List(Of String) = New List(Of String)()
       Dim regKeyString As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

       Using key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(regKeyString)
           If key IsNot Nothing Then
               Dim names As String() = key.GetSubKeyNames()
               Dim i As Integer = 0
               While i < names.Length
                   Dim currentName As String = names(i)
                   Using subKey As Microsoft.Win32.RegistryKey = key.OpenSubKey(currentName)
                       Try
                           If subKey IsNot Nothing AndAlso subKey.GetValue("DisplayName") IsNot Nothing Then
                               Dim installedapplication As String = subKey.GetValue("DisplayName").ToString()
                               If Not result.Contains(installedapplication) Then
                                   result.Add(installedapplication)
                               End If
                           End If
                       Catch ex As Exception
                       End Try
                   End Using
                   i += 1
               End While
           End If

       End Using

       Return result
   End Function