Question

VB如何读取系统已安装软件并读取其图标和名称？

启动程序后会检测系统所有已安装的软件，然后把它们的图标和名称放入ListView1中
求各位高手帮帮忙，把代码写出来
最好是08的，好的就加分

Answer 1

Private Sub getSoftwareList()
Dim rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
Dim names As String() = rk.GetSubKeyNames
For Each s As String In names
textbox1.Text&=s+vbCtrf;
Next
End Sub