Ver Mensaje Individual
  #5  
Antiguo 14-03-2013
teecweb teecweb is offline
Miembro
NULL
 
Registrado: feb 2013
Posts: 64
Reputación: 14
teecweb Va por buen camino
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;
Responder Con Cita