crear desinstalador de programas

[cards]

hola, pues eso.....
kiero crear un programa donde pueda deinstalar todos los programas instalados....
el problema k tengo es k no se donde esta guardada la lista de programas instalados con las rutas de sus desinstaladores correspondientes...........

aver si por una vez me responde mas de una persona en un tema mio

[David]

El lugar está en el registro
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\
Uninstall\
Encontrarás una larga lista de programas
La ruta del desinstalador está en "UninstallString"

[David]

'Solo funciona a partir de Windows 98
Set Regedit = CreateObject("WScript.Shell")
'Leer
MsgBox Regedit.regRead("Clave")
'Escribir
Regedit.regWrite "Clave", Valor, "Tipo"
'Borrar
Regedit.regDelete "Clave"

[jrodriguez]

David el Grande no puedo entender bien tu codigo por favor explicamelo mejor.
Gracias.

[David]

'Te lo haré mas fácil, con varios procedimientos
Sub Escribir(Clave As String, Valor, Tipo As String)
Set Regedit = CreateObject("WScript.Shell")
Regedit.regWrite Clave, Valor, Tipo
End Sub
Sub Eliminar(Clave As String)
Set Regedit = CreateObject("WScript.Shell")
Regedit.regDelete Clave, Valor, Tipo
End Sub
Function Leer(Clave As String)
Set Regedit = CreateObject("WScript.Shell")
Leer = Regedit.regRead(Clave, Valor, Tipo)
End Sub
'Ejemplos
'Escribir "Nuevo" en "HKEY_CLASSES_ROOT\MisClaves\Clave1"
Escribir "HKEY_CLASSES_ROOT\MisClaves\Clave1", "Nuevo", "REG_SZ"
'Eliminar la clave "HKEY_CLASSES_ROOT\MisClave\Clave1"
Eliminar "HKEY_CLASSES_ROOT\MisClaves\Clave1"
'Leer "HKEY_CLASSES_ROOT\MisClaves\Clave1" y almacenarlo en MiVal
MiVal = Leer("HKEY_CLASSES_ROOt\MisClaves\Clave1")

Espero que esta vez lo hayas entendido