Quitter Inno Setup Installation à partir de [code]

Question

Est-il possible de quitter l'installation à partir d'une fonction dans la section [code] d'un programme d'installation créé avec inno setup?

Je ne suis pas intéressé par la définition du code de sortie, ce que je veux faire est d'effectuer une vérification personnalisée pour une exigence, et quitter l'installation si cette exigence n'a pas été précédemment installé.

Answer 1

Jetez un coup d'œil à InitializeSetup et Abort dans l'aide d'InnoSetup. Comme l'a dit Cody, c'est possible. Si vous rencontrez des problèmes, postez ce que vous avez fait et le problème que vous rencontrez.

Answer 2

Quelque part dans votre section de code, vous effectuez une vérification. Droite? À la suite de cette vérification, vous voulez quitter l'installation. Pour effectuer la sortie mettre la ligne:

PostMessage (WizardForm.Handle, $0010, 0, 0); { quit setup, $0010=WM_CLOSE } 

Espérons que cela aide

Answer 3

La façon dont je le fais est:

procedure ExitProcess(exitCode:integer); 
    external 'ExitProcess@kernel32.dll stdcall'; 

Et la façon de l'utiliser est:

[Code] 
    if .... then begin 
    ExitProcess(0); 
    end; 

Answer 4

Vous pouvez utiliser Annuler() si vous êtes dans ces événements:

InitializeSetup 
InitializeWizard 
CurStepChanged(ssInstall) 
InitializeUninstall 
CurUninstallStepChanged(usAppMutexCheck) 
CurUninstallStepChanged(usUninstall) 

Answer 5

Pour empêcher l'installateur d'exécuter, lorsque le test de pré-requis échoue, juste retour False du InitializeSetup. Cela quittera le programme d'installation avant même que l'assistant affiche.

function InitializeSetup(): Boolean; 
begin 
    Result := True; 

    if not PrerequisitesTest then 
    begin      
    SuppressibleMsgBox('Prerequisites test failed', mbError, MB_OK, MB_OK); 
    Result := False; 
    end; 
end; 

---

Si vous avez besoin de tester les conditions préalables juste avant l'installation ne démarre que (le InitializeSetup est trop tôt), vous pouvez appeler le Abort function du CurStepChanged(ssInstall):

procedure CurStepChanged(CurStep: TSetupStep); 
begin 
    if CurStep = ssInstall then 
    begin 
    if not PrerequisitesTest then 
    begin      
     SuppressibleMsgBox('Prerequisites test failed', mbError, MB_OK, MB_OK); 
     Abort; 
    end; 
    end; 
end; 

---

Bien que pour ce scénario, pensez à utiliser le mécanisme PrepareToInstall event function au lieu de quitter le programme d'installation.

function PrepareToInstall(var NeedsRestart: Boolean): String; 
begin 
    Result := ''; 

    if not PrerequisitesTest then 
    begin      
    Result := 'Prerequisites test failed'; 
    end; 
end; 

---

Si vous devez forcer mettre fin à l'installateur tout autre moment, utilisez l'appel ExitProcess WinAPI:

procedure ExitProcess(uExitCode: Integer); 
    external 'ExitProcess@kernel32.dll stdcall'; 

function NextButtonClick(CurPageID: Integer): Boolean; 
begin 
    if CurPageID = wpReady then 
    begin 
    if not PrerequisitesTest then 
    begin      
     SuppressibleMsgBox('Prerequisites test failed', mbError, MB_OK, MB_OK); 
     ExitProcess(1); 
    end; 
    end; 
    Result := True; 
end; 

Bien que ce soit la sortie plutôt dangereuse, afin de l'utiliser seulement comme approche de dernier recours.

---