Visio Installed

[Bloodstein]

Im coding an application in VB.NET and need to check if Visio is installed on the computer. Is there a way I can do this? Would I be able to check the version of Visio as well?

Thanks

 

[quwiltw]

Someone may come along with a better answer but this appears to work. The version number returned appears to be just the major rev not the full version number (which I was unable to find in the registry but you may want to look around more)

   Private Function IsVisioInstalled() As Boolean
        Dim strKey As String = "SOFTWARE\Microsoft\Visio"
        Dim r As RegistryKey = Registry.LocalMachine
        Dim rSub As RegistryKey = r.OpenSubKey(strKey)
        If rSub Is Nothing Then
            Return False
        Else
            MessageBox.Show(rSub.GetValue("CurrentlyRegisteredVersion").ToString)
            Return True
        End If

    End Function