como ejecutar el UninstallString en codigo de innosetup

[teecweb]

leere el post ..gracias

[teecweb]

Holas eh agregado el removeQuotes segun el post que me mando funciono para el segundo UninstallString pero para el primero salio ese error:

Código Delphi [-]

Execution of 'MsiExec.exe /I{B87A2859-3187-4D05-B0D3-A21128D26}' failed.El sistema no puede hallar el
archivo especificado

Código Delphi [-]
 procedure desinstalarTotal(const FileName: string;var i: integer);
 var 
 ErrorCode : integer;
 Param : String;
    begin
     Param :=  ' /VERYSILENT /SUPPRESSMSGBOXES';
    FileName := RemoveQuotes(FileName);
    MsgBox('sin comillas '#13#10#13#10 + FileName, mbInformation, MB_OK);
      if not Exec(FileName,Param, '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
           begin
            MsgBox('DeinitializeSetup:' #13#13 'Execution of ''' + FileName + ''' failed. ' + 

SysErrorMessage(ErrorCode) + '.', mbError, MB_OK);
            end
       else
       begin
        CheckListBox1.ItemEnabled[i]:= False;
            //MsgBox('correcto',mbInformation, MB_OK);
       end;     
    end;

[[maeyanes]]

Hola...

Por lo que veo, en el primer caso solo tienes el nombre del archivo ejecutable y no la ruta completa, lo que hace que InnoSetup trate de ejecutar el archivo desde la carpeta actual, el cual al no existir en esta es que te produce el error. Ahí el problema ya viene siendo del instalador de la aplicación original que no creó bien la cadena de desinstalación.



Saludos...

[teecweb]

Holas
eh revisado el regedit y tambien existen varias UninstallString de esa forma

como por ejemplo:
el de : Microsoft Silverlight
UninstallString : MsiExec.exe/X{89F4137D-6C26-4A84-BDB8-2E5A4BB71E00}

[[maeyanes]]

Hola...

Entonces el problema está en que a la función exec le estás enviando un nombre de archivo que nunca va a encontrar, ya que en este viene incluido un parámetro. Lo que tienes que hacer es separar el nombre del archivo del parámetro. Esto es:

Código Delphi [-]
var
  ExeFileName: string;
  ParamStr: string;
  SlashPos: Integer;

begin
  SlashPos := Pos(FileName, '/');
  if SlashPos > 0 then
  begin
    ExeFileName := Copy(FileName, 0, SlashPos - 1);
    ParamStr := Copy(FileName, SlashPos, Length(FileName))
  end
end;

También recuerda que no todos los instaladores son hechos con InnoSetup y no van a soportar los mismos parámetros.


Saludos...

[teecweb]

Probare el codigo, gracias

[teecweb]

en realidad no entiendo que hace rl codigo y como funcionaria en exec para la desisntalacion?

[teecweb]

Holas .. si salio pero en caso de esos UninstallString : MsiExec.exe/X{89F4137D-6C26-4A84-BDB8-2E5A4BB71E00}..como son instaladores hechos en windows installer sale la pantalla de desinstalacion pero quisera que fuera en modo silencioso ya que en inno setup tiene sus propios comandos
lo eh estado haciendo asi pero no me borra el archivo..aqui le paso el codigo aunque falta mejorar..

Código Delphi [-]

 procedure desinstalarTotal(const FileName: string;var i: integer);
 var 
 ErrorCode : integer;
 Param : String;
 
 ExecFileName: string;
 ParamStr: string;
 SlashPos: Integer;
    begin
     Param :=  ' /VERYSILENT /SUPPRESSMSGBOXES';
    FileName := RemoveQuotes(FileName);
    
    SlashPos := Pos('/' ,FileName );
    if SlashPos > 0 then
    begin
        ExecFileName := Copy(FileName, 0, SlashPos - 1);
        ParamStr := Copy(FileName, SlashPos, Length(FileName))

    
       if not Exec(ExecFileName, ParamStr + ' /quiet', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
           begin
            MsgBox('DeinitializeSetup:' #13#13 'Execution of ''' + FileName + ''' failed. ' + 

                SysErrorMessage(ErrorCode) + '.', mbError, MB_OK);
            end
       else
       begin
        CheckListBox1.ItemEnabled[i]:= False;
       end;     
    end
    else
    begin
       if not Exec(FileName,Param, '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
           begin
            MsgBox('DeinitializeSetup:' #13#13 'Execution of ''' + FileName + ''' failed. ' + 

                SysErrorMessage(ErrorCode) + '.', mbError, MB_OK);
            end
       else
       begin
        CheckListBox1.ItemEnabled[i]:= False;
       end; 
    
    end;
    end;

[teecweb]

Holas..ya me salio ..igualemnte gracias..aqui le dejo el codigo

Código Delphi [-]
 procedure desinstalarTotal(const FileName: string;var i: integer;var name: String);
 var 
 ErrorCode : integer;
 Param : String;
 
 ExecFileName: string;
 ParamStr: string;
 SlashPos: Integer;
    begin
     Param :=  ' /VERYSILENT /SUPPRESSMSGBOXES';
    FileName := RemoveQuotes(FileName);
    
    SlashPos := Pos('/' ,FileName );
    if SlashPos > 0 then
    begin
        ExecFileName := Copy(FileName, 0, SlashPos - 1);
        ParamStr := Copy(FileName, SlashPos, Length(FileName))

    
      // if not Exec(ExecFileName, '/x {B87A2859-3187-4D05-B0D3-A21491128D26} /quiet', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
        if not Exec(ExecFileName, '/x '+name+' /quiet', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then 
           begin
            MsgBox('DeinitializeSetup:' #13#13 'Execution of ''' + FileName + ''' failed. ' + 

                SysErrorMessage(ErrorCode) + '.', mbError, MB_OK);
                 CheckListBox1.ItemEnabled[i]:= True;
            end
       else
       begin
        CheckListBox1.ItemEnabled[i]:= False;
       end;     
    end
    else
    begin
       if not Exec(FileName,Param, '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
           begin
            MsgBox('DeinitializeSetup:' #13#13 'Execution of ''' + FileName + ''' failed. ' + 

                SysErrorMessage(ErrorCode) + '.', mbError, MB_OK);
            end
       else
       begin
        CheckListBox1.ItemEnabled[i]:= False;
       end; 
    
    end;
    end;