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

发布于 2024-09-30 05:57:14 字数 766 浏览 0 评论 0原文

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

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 文件夹的名称是什么（我的文档或文档）

原文

i use the following code to get special directories

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;

And now i want to get the my documents path
so i use
mydocfolderpath := string(FBuf) + '\Documents' and i think it works well
but my doubt is this the mydocuments path on all windows PCs (personalfolder/documents) can the user change this stucture and make my documents folder anywhare else (eg: c:\documents)
if the user an change the path give me a proper way and i like to know what is the name of mydocuments folder (My Documents or Documents)

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

痴骨ら 2024-10-07 05:57:14

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

查看Doc Wiki

回复收藏 0 原文

黑凤梨 2024-10-07 05:57:14

CSIDL_PERSONAL 是“我的文档”文件夹：

CSIDL_PERSONAL FOLDERID_Documents
版本 6.0。虚拟文件夹
代表“我的文档”桌面
物品。这相当于
CSIDL_MYDOCUMENTS。
6.0 版本之前的版本。该文件
物理上使用的系统目录
存储用户的公共存储库
文件。典型的路径是
C:\Documents and Settings\用户名\My
文件。这应该是
与虚拟My的区别
命名空间中的文档文件夹。到
访问该虚拟文件夹，使用
SHGetFolderLocation，返回
虚拟位置的 ITEMIDLIST，
或参考中描述的技术
管理文件系统。管理文件系统。