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 shgetfileinfo函数

Delphi 判断字符串是否是单词

Delphi cxgrid 通过字段名取得列

Delphi-idhttp-json用法

Delphi输入汉字自动产生拼音简码

Delphi调用winapi: getsystemmetrics - 获取系统度量等数值信息

Delphi文本转换图片

Delphi 字符串去掉最后一个字符

Delphi中执行javascript代码

Delphi android 安卓中保持屏幕常亮

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

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