[Khronos]

Código Delphi [-]
uses ShlObj;

function GetProgramsDataDir: pchar;
const
CSIDL_LOCAL_APPDATA = $001c;
var
Buff: pchar;
begin
   Buff:= StrAlloc(MAX_PATH);;
   SHGetSpecialFolderPath(0, Buff, CSIDL_LOCAL_APPDATA, True);
   result:= buff;
end;

Salu2 y gracias