Como descobrir onde fica a pasta Meus Documentos do usuário.
Amigos,
como faço para descobrir onde fica a pasta Meus Documentos do usuário logado na máquina.
como faço para descobrir onde fica a pasta Meus Documentos do usuário logado na máquina.
Orlando Frade
Curtidas 0
Respostas
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;
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