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;