VB.Net遍历已安装的程序卸载信息

 Private Shared Function ProgramExists(ByVal pgName As String) As Boolean
         Dim temp As String = Nothing
         Dim tempType As String = Nothing
         Dim displayName As Object = Nothing
         Dim uninstallString As Object = Nothing
         Dim releaseType As Object = Nothing
         Dim currKey As RegistryKey = Nothing
         Dim softNum As Integer =
         Dim pregkey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall")
         Dim result = False
         Try
             For Each item As String In pregkey.GetSubKeyNames()
                 currKey = pregkey.OpenSubKey(item)
                 displayName = currKey.GetValue("DisplayName")
                 uninstallString = currKey.GetValue("UninstallString")
                 releaseType = currKey.GetValue("ReleaseType")
                 Dim isSecurityUpdate = False
                 If releaseType IsNot Nothing Then
                     tempType = releaseType.ToString()
                     If tempType = "Security Update" OrElse tempType = "Update" Then
                         isSecurityUpdate = True
                     End If
                 End If
                 If (Not isSecurityUpdate) AndAlso _
                     (displayName IsNot Nothing) AndAlso _
                     (uninstallString IsNot Nothing) AndAlso
                     displayName = pgName Then
                     result = True
                     Exit For
                 End If
             Next item
         Catch
         Finally
             pregkey.Close()
         End Try
         Return result
     End Function