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 tnethttpcleint提交json串

Delphi dll创建并调用

Delphi 提高unigui开发效率的两个方法

Delphi 利用sendinput模拟鼠标键盘

Delphi编写的一款锁屏小工具

Delphi date 返回当前的日期

Delphi tfontdialog

Delphi 把整个窗体保存为图片的方法

Delphi inttohexansi

Delphi线程的创建、挂起、激活与终止

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

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