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实现音频传输

Delphi 取得当前进程占用内存及线程数

Delphi 把mp3做背景音乐

Delphi中的字符串分割

Delphi 构建时间 -encodedatetime … tryencodedatetime

Delphi源码webbrowser多次执行documentcomplete

Delphi 从资源文件中加载字符

Delphi tms web core webhttprequest1 解析json

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

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

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