本文整理自网络,侵删。
单元文件:FileCtrl, ShlObj
showmessage(LocalAppDataPath_);
function LocalAppDataPath_: string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array [0 .. MaxChar] of char;
begin
SHGetFolderPath(0, CSIDL_LOCAL_APPDATA, 0, SHGFP_TYPE_CURRENT, @path[0]);
Result := StrPas(path);
end;
相关阅读 >>
Delphi windows 编程[1] - 窗体生成的过程一
Delphi windows 编程[11] - wm_size 消息
Delphi datasnap中间件如何控制长连接的客户端连接?
Delphi 如何在程序中动态设置墙纸(使用iactivedesktop接口)
更多相关阅读请进入《Delphi》频道 >>