Ver Mensaje Individual
  #3  
Antiguo 07-04-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
adebonis,

Cita:
Empezado por adebonis
...realizar una instalación de una aplicación con Inno Setup pero que se realice en función de la existencia de un archivo...
Revisa este código:
Código Delphi [-]
  const
     Path = 'C:\Control_Files\';

  var 
     CancelWithoutPrompt: boolean;

  function InitializeSetup(): Boolean;
  begin

     If not FileExists(Path + 'Control_Install.txt' ) then
     begin 
        MsgBox('InitializeSetup: No Existe el Archivo Control_Install.txt, Setup Canceled', mbInformation, MB_OK);
        Result := False
     end
     else
        Result := True;

  end;

  procedure CurStepChanged(CurStep: TSetupStep);
  begin

     CancelWithoutPrompt := True;

     if not FileExists( Path + 'Control_Install.txt' ) and (CurStep = ssInstall) then
     begin 
        MsgBox('CurStepChanged Antes de Install: No Existe el Archivo  Control_Install.txt, Setup Canceled', mbInformation, MB_OK);
        WizardForm.Close // Se ejecuta automáticamente por medio del procedure CancelButtonClick
     end

  end;

  procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
  begin
    if CurPageID=wpInstalling then
       Confirm := not CancelWithoutPrompt;
  end;
El código anterior cancela la instalación justo antes de la pantalla inicial del Setup por medio de la función InitializeSetup (Comentado en el Msg #2) o justo antes de iniciar la instalación (Botón de Install) por medio del procedimiento CurStepChanged. El método usado dependerá de los requerimientos de la aplicación.

Ambos métodos están predefinidos en Inno Setup y se codifican en la sección Code como se muestra en la imagen:



Revisa este link:
Cita:
Documentación de Inno Setup : http://www.jrsoftware.org/ishelp/
Espero sea útil

Nelson.

Última edición por Casimiro Notevi fecha: 07-04-2013 a las 22:39:01.
Responder Con Cita