Como descobrir onde fica a pasta Meus Documentos do usuário.

Delphi

13/04/2004

Amigos,
como faço para descobrir onde fica a pasta Meus Documentos do usuário logado na máquina.


Orlando Frade

Orlando Frade

Curtidas 0

Respostas

Bon Jovi

Bon Jovi

13/04/2004

É 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;


GOSTEI 0
POSTAR