Meus Documentos - Como "pegar"

[simoesluciano]

Como faço para "pegar" a localização do diretório "Meus Documentos"?

[Churc]

opa

adicione em uses

ShlObj;

function meusdocpath: string;

var

pidl : PItemIDList;

path : array [0..MAX_PATH] of char;

begin

SHGetSpecialFolderLocation(0, CSIDL_PERSONAL, pidl);

SHGetPathFromIDList(pidl, path);

Result := String(path);

end;

tem outras formas mas esta funciona normal...

abraços