Obtener carpeta especial

[Khronos]

Muchas gracias cHackAll no sabía de la existencia de esa clave del registro.

Código Delphi [-]
uses Registry;

function GetProgramsDataDir: string;
var
Reg: TRegistry;
begin
    result:= EmptyStr;
    Reg:=TRegistry.Create;
    Reg.RootKey:= HKEY_CURRENT_USER;
    Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\', false);
    result:= Reg.ReadString('Local AppData') + '\';
    Reg.Free;
end;

Salu2