Inno 设置 TInputDirWizardPage 不允许 UNC 路径

Question

我有一个 TInputDirWizardPage 允许用户选择备份目录。它会自动允许并对输入的路径（包括 UNC 路径）进行错误检查。备份目录不能是 UNC 路径。如何使其不允许并错误检查 UNC 路径？

procedure InitializeWizard();
begin
  BackupInfoPage := CreateInputDirPage(100, 'caption', 'desc', 'sub caption', False,'Backup');
  BackupInfoPage.Add('Backup Location:');
  with BackupInfoPage do
  begin
      OnNextButtonClick := @BackupInfoForm_NextButtonClick;
  end;
end;

function BackupInfoForm_NextButtonClick(Page: TWizardPage): Boolean;
begin
  if not DirExists(BackupInfoPage.Values[0]) then
  begin
    ForceDirectories(BackupInfoPage.Values[0]);
  end;
end;

Answer 1

我这样做了，但似乎没有做任何事情。

[Setup]
AllowUNCPath=false

因此，我添加了对 NextButtonClick 的检查，以将它们保留在输入路径页面上，直到它们输入有效的非 unc 路径。

if (Copy(BackupLocale, 1, 2) = '\\') then
  begin
    MsgBox('UNC paths are not allowed.', mbError, MB_OK);
    Result := False;
  end;