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 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:
Espero sea útil
Nelson.