如何讓Delphi SelectDirectory顯示隱藏的目錄和文件？

Question

我正在使用Delphi XE3。

調用SelectionDirectory時，如下所示：

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

我發現彈出的“選擇目錄”對話框將不會顯示隱藏的文件夾和文件。 有沒有辦法向他們展示？

謝謝

Answer 1

您正在使用舊版本的SelectDirectory() ，該版本顯示使用Windows 3.1樣式UI的自定義VCL TForm，並在不考慮用戶設置的情況下手動搜索文件夾/文件。 該版本的SelectDirectory()不支持您想要的版本，它不會顯示隱藏的項目。

請改用SelectDirectory()的較新的重載版本。 它顯示一個系統提供的對話框，用於瀏覽尊重用戶設置的文件夾/文件。 如果這是用戶配置資源管理器的方式，它將顯示隱藏的項目。

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