delphi 系统AppData Local 路径

单元文件：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;