inno-setup - アンインストール レジストリ キーをコードで条件付きにする

Question

CreateUninstallRegKeyコードでInno Setupを無効にするにはどうすればよいですか?

Inno Setup で作成したsetup.exeファイルは、パラメーターを受け入れます。

setup.exe -a

また

setup.exe -b

パラメータが指定されている場合-aは enable CreateUninstallRegKey、-bパラメータが指定されている場合は disable CreateUninstallRegKey。

コードを介して設定する方法はありCreateUninstallRegKeyますか、または関数を作成してからスクリプトセクションで関数を呼び出す必要がありますか?

このヘルプページでは定数の使用について説明しています{code:...}が、残念ながら次のエラーが発生しました。

ありがとう

Answer 1

{code:}ブール型ディレクティブに値を渡すために式を使用しないでください。このようにしてください：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
CreateUninstallRegKey=NeedsUninstallRegKey

[Code]
function CmdLineParamExists(const Value: string): Boolean;
var
  I: Integer;  
begin
  Result := False;
  for I := 1 to ParamCount do
    if CompareText(ParamStr(I), Value) = 0 then
    begin
      Result := True;
      Exit;
    end;
end;

function NeedsUninstallRegKey: Boolean;
begin
  Result := CmdLineParamExists('-a');
end;