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