delphi - delphi中获取我的文档文件夹路径

Question

我使用以下代码来获取特殊目录

uses
  ActiveX, ShlObj;

{...}

procedure TForm1.Button1Click(Sender: TObject);
// Replace CSIDL_HISTORY with the constants below
var
  Allocator: IMalloc;
  SpecialDir: PItemIdList;
  FBuf: array[0..MAX_PATH] of Char;
  PerDir: string;
begin
  if SHGetMalloc(Allocator) = NOERROR then
  begin
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_PERSONAL, SpecialDir);
    SHGetPathFromIDList(SpecialDir, @FBuf[0]);
    Allocator.Free(SpecialDir);
    ShowMessage(string(FBuf));
  end;
end;

现在我想获取我的文档路径所以我用mydocfolderpath := string(FBuf) + '\Documents' 我认为它效果很好但我怀疑这是所有 Windows PC 上的 mydocuments 路径(个人文件夹/文档)用户是否可以更改此结构并将我的文档文件夹放在其他位置(例如:c:\documents)如果用户更改路径给我一个正确的方法，我想知道 mydocuments 文件夹的名称是什么(我的文档或文档)

Answer 1

如果您使用的是最新版本的 Delphi(XE5 或更高版本)，那么您可以使用新的平台无关类。基本上在您的 uses 中包含 System.IOUtils，然后使用 TPath.GetDocumentsPath 获取文档文件夹。

查看 Doc Wiki