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

 1 Private Shared Function ProgramExists(ByVal pgName As String) As Boolean

 2         Dim temp As String = Nothing

 3         Dim tempType As String = Nothing

 4         Dim displayName As Object = Nothing

 5         Dim uninstallString As Object = Nothing

 6         Dim releaseType As Object = Nothing

 7         Dim currKey As RegistryKey = Nothing

 8         Dim softNum As Integer = 0

 9         Dim pregkey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall")

10         Dim result = False

11         Try

12             For Each item As String In pregkey.GetSubKeyNames()

13                 currKey = pregkey.OpenSubKey(item)

14                 displayName = currKey.GetValue("DisplayName")

15                 uninstallString = currKey.GetValue("UninstallString")

16                 releaseType = currKey.GetValue("ReleaseType")

17                 Dim isSecurityUpdate = False

18                 If releaseType IsNot Nothing Then

19                     tempType = releaseType.ToString()

20                     If tempType = "Security Update" OrElse tempType = "Update" Then

21                         isSecurityUpdate = True

22                     End If

23                 End If

24                 If (Not isSecurityUpdate) AndAlso _

25                     (displayName IsNot Nothing) AndAlso _

26                     (uninstallString IsNot Nothing) AndAlso

27                     displayName = pgName Then

28                     result = True

29                     Exit For

30                 End If

31             Next item

32         Catch

33         Finally

34             pregkey.Close()

35         End Try

36         Return result

37     End Function