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;