Как найти папку Мои Документы пользователя

Функция GetPathMyDocs возвращает полный путь к этой папке для текущего пользователя Windows:

uses
  { ... }, ShoObj;

function GetPathMyDocs: string;
var
  bResult: boolean;
  path: array [0..MAX_PATH] of Char;
begin
  bResult:= SHGetSpecialFolderPath(0, path, CSIDL_PERSONAL, false);
  if not bResult then
    raise Exception.Create('Не могу найти папку Мои Документы');
  Result:= path;
end;

Проверим работу этой функции:

procedure TForm1.Button1Click(Sender: TObject);
var
  myDocsPath: string;
begin
  myDocsPath:= GetPathMyDocs;
  lblPathMyDocs.Caption:= myDocsPath;
end;