Ver Mensaje Individual
  #5  
Antiguo 18-03-2013
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.025
Reputación: 28
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
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;
Responder Con Cita