Проверьте, не установлена ​​ли программа установки Uninstallable = True?

Question

У меня есть этот маленький кусочек кода, который происходит в пост-установки шага:

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; 

Я хотел бы разместить его, чтобы создать символические ссылки только если установщик имеет Uninstallable=True, как я мог Chek, что от паскаль сценарий ?.

Обратите внимание, что я также притворяюсь, что определяю его в таких сценариях как: Uninstallable=not IsTaskSelected('task name').

Answer 1

Используйте #define, чтобы сохранить стоимость. Вы можете проверить его значение в разделе кода, используя ExpandConstant.

Пример:

#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;