delphi 获取系统MyDocuments文件夹路径

本文整理自网络，侵删。

 
单元文件：FileCtrl, ShlObj
 
showmessage(MyDocuments_);
 
function MyDocuments_: string;
const
  SHGFP_TYPE_CURRENT = 0;
var
  path: array [0 .. MaxChar] of char;
begin
  SHGetFolderPath(0, CSIDL_MYDOCUMENTS, 0, SHGFP_TYPE_CURRENT, @path[0]);
  Result := StrPas(path);
end;
 

相关阅读 >>

Delphi 一个文件重复生成的小工具[附源码]

Delphi tstrings 随机打乱

Delphi 的编码与解码(或叫加密与解密)函数

Delphi sametext

Delphi根据url获取缓存文件的方法

Delphi indy防止假死

Delphi将image存入mysql数据库

Delphi pagecontrol不显示tab方式

Delphi idhttp多线程下载

Delphi 通过 shgetspecialfolderlocation、shgetpathfromidlist 函数获取常用路径

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取系统MyDocuments文件夹路径