|
@@ -823,8 +823,6 @@ end;
|
|
|
{ --- }
|
|
|
|
|
|
procedure TWizardForm.GenerateScript;
|
|
|
-const
|
|
|
- DisablePage: array [Boolean] of String = ('auto', 'yes');
|
|
|
var
|
|
|
Script, ISPP, Setup, Languages, Tasks, Files, INI, Icons, Run, UninstallDelete: String;
|
|
|
WizardFile: PWizardFile;
|
|
@@ -900,7 +898,8 @@ begin
|
|
|
Setup := Setup + 'DefaultDirName=' + AddBackslash(AppRootDirEdit.Text) + AppDirNameEdit.Text + SNewLine
|
|
|
else
|
|
|
Setup := Setup + 'DefaultDirName=' + AddBackslash(AppRootDirs[AppRootDirComboBox.ItemIndex].Constant) + AppDirNameEdit.Text + SNewLine;
|
|
|
- Setup := Setup + 'DisableDirPage=' + DisablePage[not NotDisableDirPageCheck.Checked] + SNewLine;
|
|
|
+ if not NotDisableDirPageCheck.Checked then
|
|
|
+ Setup := Setup + 'DisableDirPage=yes' + SNewLine;
|
|
|
end else begin
|
|
|
Setup := Setup + 'CreateAppDir=no' + SNewLine;
|
|
|
end;
|
|
@@ -931,7 +930,8 @@ begin
|
|
|
Setup := Setup + 'DefaultGroupName=' + AppGroupNameEdit.Text + SNewLine;
|
|
|
if not NoAppExeCheck.Checked then
|
|
|
Icons := Icons + 'Name: "{group}\' + AppNameEdit.Text + '"; Filename: "{app}\' + AppExeName + '"' + SNewLine;
|
|
|
- Setup := Setup + 'DisableProgramGroupPage=' + DisablePage[not NotDisableProgramGroupPageCheck.Checked] + SNewLine;
|
|
|
+ if not NotDisableProgramGroupPageCheck.Checked then
|
|
|
+ Setup := Setup + 'DisableProgramGroupPage=yes' + SNewLine;
|
|
|
if AllowNoIconsCheck.Checked and NotDisableProgramGroupPageCheck.Checked then
|
|
|
Setup := Setup + 'AllowNoIcons=yes' + SNewLine;
|
|
|
if CreateURLIconCheck.Enabled and CreateURLIconCheck.Checked then
|
|
@@ -987,7 +987,6 @@ begin
|
|
|
end;
|
|
|
|
|
|
{ Other }
|
|
|
- Setup := Setup + 'DisableWelcomePage=yes' + SNewLine;
|
|
|
Setup := Setup + 'Compression=lzma' + SNewLine;
|
|
|
Setup := Setup + 'SolidCompression=yes' + SNewLine;
|
|
|
|