Vérifiez au moment de l'exécution si le programme d'installation a Uninstallable = True?

Question

J'ai ce petit morceau de code qui se produit à l'étape post-installation:

procedure CurStepChanged(CurStep: TSetupStep); 
begin 

    if CurStep = ssPostInstall then begin 
    CreateSymbolicLink(ExpandConstant('{app}\Uninstall.vsf'), ExpandConstant('{cf}\Inno Setup\Carbon.vsf'), 0) 
    CreateSymbolicLink(ExpandConstant('{app}\Uninstall.dll'), ExpandConstant('{cf}\Inno Setup\VclStylesinno.dll'), 0) 
    end; 

end; 

Je voudrais accueillir pour créer les liens symboliques que si le programme d'installation a Uninstallable=True, comment je pourrais chek que de pascals scénario?.

Notez que je prétends également le déterminer dans des scénarios comme celui-ci: Uninstallable=not IsTaskSelected('task name').

Answer 1

Utilisez un #define pour stocker la valeur. Vous pouvez en vérifier la valeur dans la section de code en utilisant ExpandConstant.

Exemple:

#define MyAppName "My Program" 
#define MyAppVersion "1.5" 
#define Uninstallable "no" 

[Setup] 
AppName={#MyAppName} 
AppVersion={#MyAppVersion} 
Uninstallable={#Uninstallable} 

[Code] 
procedure CurStepChanged(CurStep: TSetupStep); 
begin  
    if CurStep = ssPostInstall then begin 
    if LowerCase(ExpandConstant('{#Uninstallable}')) = 'yes' then 
    begin 
     CreateSymbolicLink(ExpandConstant('{app}\Uninstall.vsf'), ExpandConstant('{cf}\Inno Setup\Carbon.vsf'), 0); 
     CreateSymbolicLink(ExpandConstant('{app}\Uninstall.dll'), ExpandConstant('{cf}\Inno Setup\VclStylesinno.dll'), 0); 
    end; 
    end;  
end;