ejecutar el desinstalador de cada software instalador en delphi

[teecweb]

Holas tengo un problemas yo quiero ejecutar el desistalador (unis.exe)de cada software instalado ..claro que cada software tiene diferente nombre el .exe que desinstalar y a veces se encuentra dentro de una carpeta o fuera..ojala tenga alguna solución gracias

[roman]

No estoy seguro de entender lo que buscas. Pero me parece que lo que tienes que hacer es buscar en el registro de Windows (programáticamente, claro). La información de desinstalación está en HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall y en HKCU\Software\Microsoft\Windows\CurrentVersion\Uninstall. Tendrías que buscar la cadena UninstallInstring.

// Saludos

[[maeyanes]]

Hola...

Busca en el registro de Windows. La clave a buscar es: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall. Ahí están listadas todas las aplicaciones que se han instalado. Para más información: Uninstall Registry Key (Windows).



Saludos...

P.D. Vaya, en lo que escribía el mensaje ya roman había contestado...

[teecweb]

Gracias por sus respuestas..si justamente habia encontrado sobre UninstallString claro que necesito recuperar el valor de este.. este codigo es para un instalador de innosetup
bueno esto es lo que eh encontrado en la documentacion

if RegKeyExists(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\Unnistall') then
begin
\\ entonces como haria para recuperar el valor de UninstallString
end;
end;

gracia por sus respuestas

[roman]

¿Quieres conocer este valor desde Delphi o desde un script de InnoSetup?

// Sludos

[teecweb]

desde inno setup tiene el lenguaje parecido a delphi

[roman]

Bueno, en la ayuda de InnoSetup tienes la respuesta:

RegQueryStringValue

// Saludos

[teecweb]

Holas gracias por tu respuesta.
quisiera saber que debo poner en el tercer y cuarto parametro...gracias

Código Delphi [-]
[code]
procedure InitializeWizard();
var
  Country: String;
begin
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\Unnistall','', Country) then
  begin
    // Successfully read the value
    MsgBox('Your country: ' + Country, mbInformation, MB_OK);
  end
  else
  begin
   MsgBox('Your country: ' , mbInformation, MB_OK);
    
  end;
end;

[[maeyanes]]

Hola...

En la ayuda de la función viene indicado que es cada parámetro:

Código Delphi [-]
function RegQueryStringValue(const RootKey: Integer; const SubKeyName, ValueName: String; var ResultStr: String): Boolean;

Pascal Scripting: RegQueryStringValue


Saludos...

[roman]

Yo creo que sería así:

Código Delphi [-]
var
  UninstallString: String;

begin
  RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\Unnistall', 'UninstallInstring', UninstallInstring);
end;

// Saludos

[teecweb]

Eh puesto asi y retorna vacio es decir entra al else

Código Delphi [-]
[code]
procedure InitializeWizard();
var
  Country: String;
begin
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\MICROSOFT\WINDOWS\UNNISTALL\MozillaMaintenanceService','UninstallString', Country) then
  begin
    // Successfully read the value
    MsgBox('Your country: ' + Country, mbInformation, MB_OK);
  end
  else
  begin
   MsgBox('Your country: ' , mbInformation, MB_OK);
    
  end;
end;

[roman]

La clave está incompleta:

SOFTWARE\MICROSOFT\WINDOWS\UNNISTALL\MozillaMaintenanceService

Falta CurrentVersion después de Windows y sobra esa N.

// Saludos

[teecweb]

GRACIAS SI FUNCIONO

Código Delphi [-]

procedure InitializeWizard();
var
  Country: String;
begin
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\MozillaMaintenanceService\','UninstallString', Country) then
  begin
    // Successfully read the value
    MsgBox('Your country: ' + Country, mbInformation, MB_OK);
  end
  else
  begin
   MsgBox('Your country: ' , mbInformation, MB_OK);
    
  end;
end;

[teecweb]

Holas quisiera saber como seria en windows7 porque la ruta anterior no reconoce..gracias por su respuesta

[roman]

Pues supongo que dependerá de lo que tengas instalado. Yo tengo Windows 7 y sí que existe la clave:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MozillaMaintenanceService

También podría depender del uso de mayúsculas o minúsculas, aunque esto lo desconozco.

// Saludos