progress bar en inno setup

[Ñuño Martínez]

La verdad es que ando perdido cual pulpo en garaje. Ya dije que no me manejo muy bien con InnoSetup. Aun así, voy a ver si explicando qué es una variable global (que parece que es tu duda) lo arreglo.

Una variable global es una que existe durante todo el tiempo de ejecución del programa y es accesible desde cualquier parte del mismo, como contrapartida de una variable local que sólo existe en el tiempo de ejecución de una función o procedimiento y sólo puede accederse desde dicha función. Por ejemplo:

Código Delphi [-]
PROGRAM Ejemplo;

  VAR
    VariableGlobal: INTEGER;

  PROCEDURE Procedimiento;
  VAR
    VariableLocal: INTEGER;
  BEGIN
   ...
    VariableGlobal := VariableLocal;
  END;

  PROCEDURE OtroProcedimiento;
  VAR
    VariableLocal: INTEGER;
  BEGIN
    ...
    VariableGlobal := VariableLocal;
  END;

END.

En el caso que nos ocupa, necesitas una variable global puesto que las partes se ejecutan paralelamente (es decir, se ejecutan al mismo tiempo, o eso he entendido a partir de tu explicación). Básicamente lo haría así:

Código Delphi [-]
....
  CONST
  (* Número de pasos necesarios en la instalación. *)
    NUM_PASOS := 5;

  VAR
  (* Número de pasos que se está realizando. *)
    NumPasoActual: INTEGER;

(* Procedimiento que muestra la barra de progreso. *)
  PROCEDURE MuestraBarra;
  BEGIN
    ProgressPage := CreateOutputProgressPage('My App','');
    ProgressPage.SetText('Starting installation...', '');
    ProgressPage.Show;
    try
    { Repite hasta que finaliza el proceso. }
      REPEAT
        ProgressPage.SetProgress(NumPasoActual, NUM_PASOS);
        Sleep(100);
      UNTIL NumPasoActual > NUM_PASOS;
    finally
      ProgressPage.Hide;
      ProgressPage.Free; { <- Sigo creyendo que olvidas esto. ¿Acaso se destruye sólo? }
    end;
  END;


(* Procedimiento que instala. *)
  PROCEDURE Instalar;
  BEGIN
  { Primer paso. }
    NumPasoActual := 1;
    HacePasoUno (Parametro1, OtroParametro);
  { Segundo paso. }
    INC (NumPasoActual)
    HacePasoDos (Parametro1, OtroParametro);
  { Tercer paso. }
    INC (NumPasoActual)
    HacePasoTres (Parametro1, OtroParametro);
  { Perdí la cuenta. }
    INC (NumPasoActual)
    OtroPaso (Parametro1, OtroParametro);
  { Último paso. }
    INC (NumPasoActual)
    UltimoPaso (Parametro1, OtroParametro);
  { Para decirle a MuestraBarra que ya hemos terminado. }
    NumPasoActual := NUM_PASOS + 1;
  END;