Como obter a pasta Meus Documentos do usuário logado no Windows?

A pasta “Meus Documentos” é normalmente utilizada para armazenar
arquivos de uso frequente do usuário.

Há casos em que precisamos criar algum documento ou mesmo uma
configuração específica para o usuário em aplicativos por nós
desenvolvidos e ai precisamos encontrar o local desta pasta.

Felizmente há uma função que simplifica muito o nosso trabalho!

Veja o código abaixo:

1
2
3
4
5
6
7
8
9
10
11
12

uses shlobj;
 
function GetMyDocuments: string;
var
  r: Bool;
  path: array [0 .. Max_Path] of Char;
begin
  r := ShGetSpecialFolderPath(0, path, CSIDL_Personal, False);
  if not r then
    raise Exception.Create('Não foi possível obter o local dos  Meus Documentos.');
  Result := path;
end;

Exemplo de uso:

1
2
3
4

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetMyDocuments);
end;

Fonte: http://delphi.about.com/od/delphitips2007/qt/mydocuments.htm