Ik ben een lijst aan 't maken van de geïnstalleerde programma's. Het werkt niet.
Deze code geeft helemaal niks terug.
Dit is mijn code:
Graag wat hulp aub
Deze code geeft helemaal niks terug.
Dit is mijn code:
Code:
Dim Software As String = Nothing
Dim SoftwareKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products"
Using rk As RegistryKey = Registry.LocalMachine.OpenSubKey(SoftwareKey)
For Each skName In rk.GetSubKeyNames
'Get sub keys
Dim name = Registry.LocalMachine.OpenSubKey(SoftwareKey).OpenSubKey(skName).OpenSubKey("InstallProperties").GetValue("DisplayName")
Dim installocation = Registry.LocalMachine.OpenSubKey(SoftwareKey).OpenSubKey(skName).OpenSubKey("InstallProperties").GetValue("InstallLocation")
Dim publisher = Registry.LocalMachine.OpenSubKey(SoftwareKey).OpenSubKey(skName).OpenSubKey("InstallProperties").GetValue("Publisher")
Dim uninstallString = Registry.LocalMachine.OpenSubKey(SoftwareKey).OpenSubKey(skName).OpenSubKey("InstallProperties").GetValue("UninstallString")
If name.ToString <> "" Then
Dim list As New ListViewItem
list.Text = name.ToString
list.SubItems.Add(installocation.ToString)
list.SubItems.Add(publisher.ToString)
ListView1.Items.Add(list)
End If
Next
End Using
Graag wat hulp aub
Laatst bewerkt: