DELPHI / Determine The Path To The Users Application Data

function LocalAppDataPath : string;
const
  SHGFP_TYPE_CURRENT  = 0;   
var
  path: array [0..MAXPATH] of char;
begin
  SHGetFolderPath(0,CSIDL_LOCAL_APPDATA,0,SHGFP_TYPE_CURRENT,@path[0]);
  Result := StrPas(path);
end;