Delphi OpenDialog 不允许用户导航离开初始目录

Question

我正在尝试创建一个打开的对话框（在 Windows 7 中），其中用户被限制在初始目录中。在打开的对话框中，我已将 optionsEX 设置为 [ofExNoPlacesBar]，这会删除允许他们快速选择文件夹和目录的栏，但用户可以使用面包屑地址工具向上一级并键入不同的目录进入文件名文本框以更改目录。

谢谢

Answer 1

如果您使用的是 Delphi 2009+，则有一个 TFileOpenDialog。使用它，并设置

procedure TForm3.FileOpenDialog1FolderChange(Sender: TObject);
begin
  FInitiated := true;
end;

procedure TForm3.FileOpenDialog1FolderChanging(Sender: TObject;
  var CanChange: Boolean);
begin
  CanChange := not FInitiated;
end;

procedure TForm3.btnOpenClick(Sender: TObject);
begin
  FInitiated := false;
  FileOpenDialog1.DefaultFolder := 'C:\MyFolder\';
  FileOpenDialog1.Execute;
end;

其中

var
  FInitiated: boolean;

（请注意，每个 TFileOpenDialog 应该正好有一个 FInitiated。因此，如果 FileOpenDialog 是 的私有成员>TForm3，让 FInitiated 也成为 TForm3 的私有成员。）

为了改善用户体验，您可能会使用

procedure TForm3.FileOpenDialog1FolderChanging(Sender: TObject;
  var CanChange: Boolean);
begin
  CanChange := not FInitiated;
  if not CanChange then beep;
end;

或

procedure TForm3.FileOpenDialog1FolderChanging(Sender: TObject;
  var CanChange: Boolean);
begin
  CanChange := not FInitiated;
  if not CanChange then
    MessageBox(Handle, PChar('Directory selection is not allowed.'), PChar(Caption), MB_ICONINFORMATION);
end;

Answer 2

使用不同的打开对话框（自己制作一个没有文件夹导航，只有文件列表框的表单），或者只是审核与初始目录不匹配的路径并拒绝实际打开文件。

Answer 3

“FileOpenDialog”有一个 OnFolderChanging 类型为 TFileDialogFolderChangingEvent 具有布尔 CanChange 参数。我希望将此参数设置为 false 可以达到目的。

编辑：

根据雷米的评论使用示例（如果我理解正确的话）；

procedure TForm1.FileOpenDialog1FolderChanging(Sender: TObject;
  var CanChange: Boolean);
var
  Dlg: TFileOpenDialog;
  DefFolder: IShellItem;
  iOrder: Integer;
begin
  CanChange := False;
  Dlg := Sender as TFileOpenDialog;
  if Succeeded(SHCreateItemFromParsingName(PWideChar(WideString(Dlg.DefaultFolder)), nil, IShellItem, DefFolder)) then
  try
    CanChange := Dlg.ShellItem.Compare(DefFolder, SICHINT_ALLFIELDS, iOrder) = S_OK;
  finally
    DefFolder := nil;
  end;
end;

下面的方法也有效，但更容易受到路径变化的影响（请参阅下面 Andreas 的评论）；

procedure TForm1.FileOpenDialog1FolderChanging(Sender: TObject;
  var CanChange: Boolean);
begin
  CanChange := SameFileName(TFileOpenDialog(Sender).FileName,
                            TFileOpenDialog(Sender).DefaultFolder);
end;