Ayuda con desinstalacion
Publicado por Lucas (8 intervenciones) el 12/01/2010 18:21:25
Hola!
Tengo un programa que lista todos los programas instalados en el ordenador.
Este es el codigo:
Dim sRegKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Dim Keys As RegistryKey = Registry.LocalMachine.OpenSubKey(sRegKey)
For Each sNombreKey As String In Keys.GetSubKeyNames
Dim Key As RegistryKey = Keys.OpenSubKey(sNombreKey)
If Key.GetValue("DisplayName") <> "" Then
ListView1.Items.Add(Key.GetValue("DisplayName"))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(IIf(Key.GetValue("InstallLocation") = "", "", Key.GetValue("InstallLocation")))
End If
Next
Ahora lo que quiero es que al hacer clic en el elemento del ListView me de la opcion de desinstalarle (aunque sea con un MsgBox), pero no se como puedo acceder al valor ni como desinstalarle.
Alguien me podria ayudar??
Gracias de antemano
Tengo un programa que lista todos los programas instalados en el ordenador.
Este es el codigo:
Dim sRegKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Dim Keys As RegistryKey = Registry.LocalMachine.OpenSubKey(sRegKey)
For Each sNombreKey As String In Keys.GetSubKeyNames
Dim Key As RegistryKey = Keys.OpenSubKey(sNombreKey)
If Key.GetValue("DisplayName") <> "" Then
ListView1.Items.Add(Key.GetValue("DisplayName"))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(IIf(Key.GetValue("InstallLocation") = "", "", Key.GetValue("InstallLocation")))
End If
Next
Ahora lo que quiero es que al hacer clic en el elemento del ListView me de la opcion de desinstalarle (aunque sea con un MsgBox), pero no se como puedo acceder al valor ni como desinstalarle.
Alguien me podria ayudar??
Gracias de antemano
Valora esta pregunta
0