如何让 Delphi SelectDirectory 显示隐藏的目录和文件？

Question

我正在使用 Delphi XE3。

调用SelectionDirectory时，如下：

Dir := '';
SelectDirectory(Dir, [], 0);

我发现弹出的 "Select Directory" 对话框不会显示隐藏的文件夹和文件。有什么办法可以显示吗？

谢谢

Answer 1

您使用的是显示自定义 VCL TForm 的旧版本 SelectDirectory()，该版本使用 Windows 3.1 样式 UI 并手动搜索 folders/files，而不考虑用户的设置。 SelectDirectory()那个版本不支持你想要的，不会显示隐藏项。

改用 SelectDirectory() 的较新重载版本。它显示一个系统提供的对话框，用于浏览 folders/files，尊重用户的设置。如果用户是这样配置资源管理器的，它将显示隐藏的项目。

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  SelectDirectory('Caption', '', Dir, [], Self);
end;