Inno Setup TInputDirWizardPage, чтобы не разрешать UNC-путь - PullRequest
0 голосов
/ 03 июня 2011

У меня есть 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;

1 Ответ

0 голосов
/ 14 июня 2011

Я сделал это, но он, похоже, ничего не сделал.

[Setup]
AllowUNCPath=false

Поэтому я добавил проверку на NextButtonClick, чтобы они оставались на странице ввода пути, пока они не введут действительный, непуть unc.

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