Fórum Como descobrir onde fica a pasta Meus Documentos do usuário. #225854

É só pegar no registry do Windows.

implementation

{$R *.DFM}

uses
Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
Registro: TRegistry;
begin
Registro := TRegistry.Create;
try
Registro.OpenKeyReadOnly(´Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\´);
ShowMessage(Registro.ReadString(´Personal´));
finally
FreeAndNil(Registro);
end;
end;