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;