2

我有一个应用程序需要允许在同一台机器上最多同时安装三个。

出于某种原因，以下代码的行为就像 UsePreviousAppDir 设置为 yes。我第二次安装该应用程序时，路径最终被破坏了。

我想看到的价值是

C:\Our App\install_x其中 x 对应于用户的选择。

它第一次运行，但第二次运行结果如下：

C:\Our App\install_x\install_y，其中 x 对应于第一次安装时选择的值，y 对应于本次安装期间选择的值。

安装版本是从安装程序的第一个屏幕抓取的单选按钮选择。我该如何消除这个问题？

设置部分：

[Setup]
AppName=Our App
AppId=Our App
AppVerName=Our App Version(CM)
DefaultDirName=C:\Our App
DefaultGroupName=Our Group Name
OutputDir=..\
OutputBaseFilename=mm_setup
DisableStartupPrompt=yes
Compression=zip
UsePreviousAppDir=no
VersionInfoDescription=Our App Setup
CreateUninstallRegKey=no
DirExistsWarning=no

以及我设置安装版本的方法：

procedure gSetVersion;
begin
  if gVersionPage.SelectedValueIndex = 0 then
  begin
     gInstallArea := 'install_a';
  end
  else if gVersionPage.SelectedValueIndex = 1 then
  begin
     gInstallArea := 'install_b';
  end
  else if gVersionPage.SelectedValueIndex = 2 then
  begin
     gInstallArea := 'install_c';
  end
  WizardForm.DirEdit.Text := WizardDirValue + '\' + gInstallArea;
end;
4

1 回答 1

2

通过以下 hack 解决了该问题。不知道为什么在设置“UsePreviousAppDir=no”时需要手动编辑字符串，但这有效

procedure gSetVersion;
var
   installVersionIndex: Integer;
   installDir: String;
begin
  case gVersionPage.SelectedValueIndex of
    0: gInstallArea := 'install_a';
    1: gInstallArea := 'install_b';
    2: gInstallArea := 'install_c';
  end

  //Set the default installation folder.
  //This is necessary because InnoSetup intermittently
  //ignores the 'UsePreviousAppDir=no' [Setup] directive
  //and because the 'DefaultDirName' directive gets populated
  //prior to the user selecting the install version
  installVersionIndex := Pos('install_', WizardDirValue);
  installDir := WizardDirValue;
  if installVersionIndex > 0 then
  begin
    Delete(installDir, installVersionIndex, 20); 
  end

  WizardForm.DirEdit.Text := installDir + '\' + gInstallArea;
end;
于 2013-08-07T14:29:22.373 回答