本文整理自网络,侵删。
单元文件: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;
相关阅读 >>
android实例-拍摄和分享照片、分享文本(xe8+小米2)
Delphi利用getprocessmemoryinfo获取进程占用内存大小
winapi 字符及字符串函数(3): charupper - 字符或字符串转大写
更多相关阅读请进入《Delphi》频道 >>