installed program

[horserider]

how to get list of installed programs into my listbox ...

[sandeepparekh9]

this link will help

http://www.codeproject.com/KB/install/Program_Uninstaller.aspx

[sandeepparekh9]

here is a small solution..

write following on Form_Load event.. first Import

Imports Microsoft.Win32

then on Form Load event

Dim SoftwareKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products"
        Dim rk As RegistryKey = Registry.LocalMachine.OpenSubKey(SoftwareKey)
        Dim skname As String
        Dim sname As String = String.Empty

        Dim ListView1 As New ListView
        Me.Controls.Add(ListView1)
        ListView1.Dock = DockStyle.Fill

        ListView1.View = View.Details
        ListView1.Columns.Add("Installed Software")

        For Each skname In rk.GetSubKeyNames
            sname = Registry.LocalMachine.OpenSubKey(SoftwareKey).OpenSubKey(skname).OpenSubKey("InstallProperties").GetValue("DisplayName")
            ListView1.Items.Add(sname)

        Next

        ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)

[horserider]

thanks... it works

[sandeepparekh9]

mark the thread solved if worked

[horserider]

k