Wyjście z instalacji instalacji Inno z [kod]

Question

Czy można wyjść z instalacji z funkcji w sekcji [code] instalatora utworzonego przy pomocy inno setup?

Nie jestem zainteresowany ustawianiem kodu wyjścia, co chcę zrobić, to przeprowadzić niestandardową kontrolę wymagań i wyjść z instalacji, jeśli to wymaganie nie było wcześniej zainstalowane.

Answer 1

Spójrz na InitializeSetup i Abort w pomocy InnoSetup. Jak powiedział Cody, jest to możliwe. Jeśli masz problemy, opublikuj to, co zrobiłeś i problem, który masz.

Answer 2

Gdzieś w sekcji kodu wykonuje się czek. Dobrze? W wyniku tego testu chcesz wyjść z instalacji. Aby wykonać zjazd umieścić linię:

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

Mam nadzieję, że to pomaga

Answer 3

Sposób, w jaki to zrobić jest:

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

I sposób korzystania z niej jest:

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

Answer 4

Możesz użyć Abort(), jeśli jesteś w tych wydarzenia:

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

Answer 5

aby zapobiec uruchamianiu instalatora, gdy badanie przesłanek nie powiedzie się, po prostu wrócić False z InitializeSetup. Spowoduje to wyjście z instalatora nawet przed wyświetleniem kreatora.

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

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

---

Jeśli trzeba przetestować warunki tuż przed rozpoczęciem tylko instalacja (czyli InitializeSetup jest zbyt wcześnie), można wywołać Abort function z 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; 

---

Choć dla tego scenariusza, należy rozważyć użycie mechanizmu PrepareToInstall event function zamiast wychodzenia konfigurację.

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

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

---

Jeśli trzeba wymusić zakończenie instalatorowi dowolnym innym momencie, użyj połączenia 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; 

Choć jest to wyjście dość niebezpieczne, więc należy używać go tylko jako podejście ostateczne.

---