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