como ejecutar el UninstallString en codigo de innosetup

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

[[maeyanes]]

Hola...

Lo único que hace ese código es separar el nombre del ejecutable del parámetro, esto es, en cada variable queda una parte del string original.

Código Delphi [-]
FileName := 'MsiExec.exe /I{B87A2859-3187-4D05-B0D3-A21128D26}';

// Se ejecuta el código que te puse y devuelve:
ExeFileName := 'MsiExec.exe';
ParamStr := '/I{B87A2859-3187-4D05-B0D3-A21128D26}';

// Usas las dos variables en la función exec:
if not Exec(ExecFileName, ParamStr, '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
  // ...

Saludos...

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