DELPHI - 如何使用 opendialog1 选择文件夹？

Question

这个问题已经有答案了:

已关闭 11 年前。

Possible Duplicate:
Delphi: Selecting a directory with TOpenDialog

我需要打开项目中的特定文件夹。当我使用opendialog1时，我只能打开一个文件。打开一个文件夹怎么样？

PS:我使用Delphi 2010

Answer 1

在 Vista 及更高版本上，您可以使用 IFileOpenDialog 显示更现代的对话框。

var
  OpenDialog: TFileOpenDialog;
  SelectedFolder: string;
.....
OpenDialog := TFileOpenDialog.Create(MainForm);
try
  OpenDialog.Options := OpenDialog.Options + [fdoPickFolders];
  if not OpenDialog.Execute then
    Abort;
  SelectedFolder := OpenDialog.FileName;
finally
  OpenDialog.Free;
end;

看起来像这样: