Inno setup: MessageBox de advertencia

[Soa Pelaez]

Buen día amig@s


Requiero generar un setup y que al iniciarlo me saque un mensaje de advertencia con si y no, y si el usuario acepta continue con la respectiva instalación, por ahora realice esto con inno setup, pero el mensaje de advertencia me aparece luego de dar si por primera vez, aparece nuevamente el mensaje y luego de dar si otra vez ahi si continua con la instalación.

Código Delphi [-]
function InitializeSetup(): Boolean;
var
   respuesta : Integer;
begin
        respuesta := MsgBox('Debe cerrar los programas relacionados a la instalación, ¿Desea continuar', mbConfirmation, MB_YESNO);
        if(respuesta = IDYES)then begin
           Result := True
        else
          Result := False;
end;

procedure InitializeWizard;
begin
      InitializeSetup;
end;

Esto está realizado en pascal, en inno setup.


Les agradecería su ayuda.

[Casimiro Noteví]

Te aconsejo que eches un vistazo a los muchos ejemplos que vienen con el mismo.

[NucleousXE]

Sólo tienes que modificar tu script de Inno Setup en la sección [code] con el siguiente cambio:

Código Delphi [-]
[code]
function InitializeSetup(): Boolean;
begin
  Result := False;
  if MsgBox('Debe cerrar los programas relacionados a la instalación, ¿Desea continuar', mbConfirmation, MB_YESNO) = IDYES then
    Result := True;
end;