مرسی نرم افزار و کامل کردم البته نه با زبان c
الان یه مشکل دارم اونم اینه که نمیدونم چه طوری آیکون نرم افزار ها رو تو لیست نشون بدم
کدمم اینه :
[PHP] Private Sub GetInstalledPrograms()
On Error Resume Next
With ListView1.Columns
.Add("Software Name", 400) : .Add("Install Location", 300) : .Add("Publisher", 100)
End With
ListView1.View = View.Details ' Display Columns
Dim Software As String = Nothing
Dim SoftwareKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Install er\UserData\S-1-5-18\Products"
Using rk As RegistryKey = Registry.LocalMachine.OpenSubKey(SoftwareKey)
For Each skName In rk.GetSubKeyNames
Dim name = Registry.LocalMachine.OpenSubKey(SoftwareKey).Open SubKey(skName).OpenSubKey("InstallProperties").Get Value("DisplayName")
Dim installocation = Registry.LocalMachine.OpenSubKey(SoftwareKey).Open SubKey(skName).OpenSubKey("InstallProperties").Get Value("InstallLocation")
'InstallProperties
Dim publisher = Registry.LocalMachine.OpenSubKey(SoftwareKey).Open SubKey(skName).OpenSubKey("InstallProperties").Get Value("Publisher")
Dim uninstallString = Registry.LocalMachine.OpenSubKey(SoftwareKey).Open SubKey(skName).OpenSubKey("InstallProperties").Get Value("UninstallString")
'Add the Software information to lstPrograms
If name.ToString <> "" Then
'Declare new ListView Item
Dim list As New ListViewItem
'Set Text Property to Name of Software
list.Text = name.ToString
'Add Install Location
list.SubItems.Add(installocation.ToString)
'Add Publisher
list.SubItems.Add(publisher.ToString)
list.Tag = uninstallString
' Add it to lstPrograms, a listview that will hold our Software List.
ListView1.Items.Add(list)
End If
Next
End Using
End Sub[/PHP]