[ Vb.Net ] Nome e percorso Applicazioni Installate - Genymus

[Genymus]

Salve, ho usato il seguente pezzo di codice per verificare se un'applicazione era installata:

Imports Microsoft.Win32
...
Function OttieniProgrammi()
Dim Reg As RegistryKey = Registry.LocalMachine
Reg = Reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall")
        For Each keyName As String In reg.GetSubKeyNames()
            If (Reg.OpenSubKey(keyName).GetValue("DisplayName") Is Nothing) Then
                ListBox1.Items.Add("Not] " & keyName)
            Else
                ListBox1.Items.Add("Els] " & Reg.OpenSubKey(keyName).GetValue("DisplayName").ToString())
            End If
        Next
Return True
End Function

Come posso ora ottenere il percorso di installazione del programma?
Grazie

Ps: Scartiamo subito la possibilità di fare una lista della cartella "Programmi"...


Grazie in anticipo per le risposte...
Genymus

[MarcoGG]

Possiamo completare un po' quel codice, ad esempio così :

> La Function :

    Private Function ProgrammiInstallati() As List(Of String)

        Dim L As New List(Of String)
        Dim SoftwareKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

        Using RK As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(SoftwareKey)
            For Each skName As String In RK.GetSubKeyNames
                Using SK As Microsoft.Win32.RegistryKey = RK.OpenSubKey(skName)
                    Try
                        If SK.GetValue("DisplayName") <> Nothing Then
                            If SK.GetValue("InstallLocation") <> Nothing Then
                                L.Add(SK.GetValue("DisplayName") & " -> " & SK.GetValue("InstallLocation"))
                            Else
                                L.Add(SK.GetValue("DisplayName") & " -> PATH NON DISPONIBILE.")
                            End If
                        End If
                    Catch ex As Exception
                        L.Add(" - ERRORE - ")
                    End Try
                End Using
            Next
        End Using

        Return L

    End Function

> Utilizzatore ( pulsante + ListBox ) :

        ListBox1.Items.Clear()
        For Each S As String In ProgrammiInstallati()
            ListBox1.Items.Add(S)
        Next

Su molti programmi veri e propri, che prevedono un uninstaller, funziona. Su librerie, driver ecc. vedo in lista molti "PATH NON DISPONIBILE".
Non ci ho studiato un granchè. Intanto vedi se può interessare come spunto...

[Genymus]

Magnifico...
è vero, da molti "Non disponibili" ma per fortuna per i programmi che mi interessano, funziona.


Grazie Mille

[MarcoGG]

Originariamente inviato da Genymus

Magnifico...
è vero, da molti "Non disponibili" ma per fortuna per i programmi che mi interessano, funziona.


Grazie Mille

E' quello che conta.
In ogni caso penso non ci possa esimere dall'entrare anche in qualche cartella ( comunque non certo uno scan esteso a tutta la cartella "Programmi" ), per avere un risultato completo...