本文整理自网络,侵删。
单元文件: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:取得浏览器地址,网址(支持ie,firefox)
Delphi firemonkey 保存图片到jpg的方法 bmp转jpg
更多相关阅读请进入《Delphi》频道 >>