delphi - 从 Delphi 中的 OpenDialog 选择中获取特殊文件夹路径

Question

我让我的用户通过 OpenDialog 组件选择一个文件夹。

但是，当他们选择诸如 Documents 或 My Videos 之类的文件夹时，路径就是文件夹的名称。

我可以通过 API 获取此类文件夹的路径，但是如何根据他们在 OpenDialog 中选择的内容获取路径？

Answer 1

我相信您实际上是在谈论选择 Windows 7 库的用户。在这种情况下，您需要使用特殊代码来查找该库的默认保存位置。

您需要使用IFileDialog界面来执行此操作。如果您使用TOpenDialog，那么您将无权访问该IFileDialog界面。所以你需要使用Vista对话框，TFileOpenDialog它确实暴露了IFileDialog界面。

一旦你有了这个接口，你就可以通过调用多选对话框和单选对话框IShellItem来为每个选定的 shell 项获取接口。然后，您可以将这些接口传递给这样的函数：GetResultsGetResultIShellItem

function ShellItemFileSystemPath(const si: IShellItem): string;
var
  attribs: DWORD;
  pszPath: PChar;
  lib: IShellLibrary;
  defSaveFolder: IShellItem;
begin
  OleCheck(si.GetAttributes(SFGAO_FILESYSTEM, attribs));
  if attribs=0 then begin
    // This could be a library, in which case we shall return the default save location
    if  Succeeded(CoCreateInstance(CLSID_ShellLibrary, nil, CLSCTX_INPROC_SERVER, IID_IShellLibrary, lib))
    and Succeeded(lib.LoadLibraryFromItem(si, STGM_READ))
    and Succeeded(lib.GetDefaultSaveFolder(DSFT_DETECT, IShellItem, defSaveFolder)) then begin
      Result := ShellItemFileSystemPath(defSaveFolder);
      exit;
    end;
    raise EValidityError.CreateFmt(
      'Cannot operate on ''%s'' because it is not part of the file system.',
      [ShellItemDisplayName(si)]
    );
  end;
  OleCheck(si.GetDisplayName(SIGDN_FILESYSPATH, pszPath));
  Try
    Result := pszPath;
  Finally
    CoTaskMemFree(pszPath);
  End;
end;

Embarcadero 库中的代码应该这样做，但遗憾的是，库代码有缺陷。它现在应该支持 Windows 7 库。

就个人而言，由于这个问题和其他问题，我不使用 Embarcadero 提供的文件对话框。