inno-setup - 如何只允许安装到特定文件夹？

Question

我只想将我的设置内容安装到一个特定目录，因此我希望禁用目录选择页面上的 Next 按钮，除非用户选择了正确的安装文件夹。

如何禁用目录选择页面上的下一步按钮并在用户选择特定目录后立即启用它？

Answer 1

以下示例显示如何禁用 Next到达 SelectDir 时的按钮页面并仅在您输入(或从浏览目录对话框中选择)C:\MySecretDir 时启用它文件夹(MySecretDir 常量)。比较不区分大小写，因为用户可以输入他(或她)想要的任何内容。

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

[Code]
const
  MySecretDir = 'C:\MySecretDir';

procedure OnDirEditChange(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := CompareText(WizardDirValue, MySecretDir) = 0;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then
    OnDirEditChange(nil);
end;

procedure InitializeWizard;
begin
  WizardForm.DirEdit.OnChange := @OnDirEditChange;
end;

或者，如果您想启用 Next仅当存在特定文件时才按钮 MyUniqueFile.exe在选择的目录下，修改OnDirEditChange中的代码以这种方式处理事件:

procedure OnDirEditChange(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := FileExists(AddBackslash(WizardDirValue) +
    'MyUniqueFile.exe');
end;