ejecutar el desinstalador de cada software instalador en delphi

[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;