Agregar ID a checkboxlist en delphi

[[nlsgarcia]]

teecweb,

Empezado por teecweb

...y cuando el bucle empieza denuevo ahi es mi dificultad porque necesito que normalmente siga el bucle y no salga de el...

El código que publicastes en el Msg #10 lo modifique según entiendo como debería funcionar tu Desinstalador en Inno Setup.

Revisa este código:

Código Delphi [-]
procedure ButtonOnClick(Sender: TObject);
var
   i : Integer;
   path,FileName : String;

begin
   if MsgBox('Do you really want to delete ' + ExtractFileDir(path) + '?', mbConfirmation, MB_YESNO) = idYes then
   begin
      for i := 0 to CheckListBox1.Items.Count - 1 do
      begin
         path := CheckListBox1.Items[i];
         if CheckListBox1.Checked[i] = true then
            if DirExists(ExtractFileDir(path)) then
            begin
               FileName := ExtractFileDir(path) + '\Desinstalar' + '\unins000.exe';
               DesistalarItem(FileName);
            end
            else
               MsgBox('No Existe un Desinstalador Asociado',mbInformation, MB_OK);             
      end;
   end;        
end;

procedure DesistalarItem(const FileName: string);
var
    ErrorCode : Integer;

begin
    if not Exec(FileName,'', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
    begin
       MsgBox('DeinitializeSetup:' #13#13 'Execution of ''' + FileName + ''' failed. ' + SysErrorMessage(ErrorCode) + '.', mbError, MB_OK);
    end
end;

El código anterior recorre el arreglo de Items del control TCheckListbox y por cada item seleccionado llama al procedimiento DesistalarItem

El cambio de ShellExec por Exec esta basado en la información de este link: http://www.jrsoftware.org/ishelp/ind...=scriptclasses

Nota: Este código no esta probado en Inno Setup.

Espero sea útil

Nelson.