Obtenir le chemin du dossier Mes documents dans Delphi

j'utilise le code suivant pour obtenir répertoires spéciaux

uses
  ActiveX, ShlObj;

{...}

procedure TForm1.Button1Click(Sender: TObject);
// Replace CSIDL_HISTORY with the constants below
var
  Allocator: IMalloc;
  SpecialDir: PItemIdList;
  FBuf: array[0..MAX_PATH] of Char;
  PerDir: string;
begin
  if SHGetMalloc(Allocator) = NOERROR then
  begin
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_PERSONAL, SpecialDir);
    SHGetPathFromIDList(SpecialDir, @FBuf[0]);
    Allocator.Free(SpecialDir);
    ShowMessage(string(FBuf));
  end;
end;

Et maintenant je veux obtenir mon chemin d'accès de documents
donc j'utilise
mydocfolderpath := chaîne de caractères(FBuf) + '\Documents " et je pense qu'il fonctionne bien
mais mon doute est-ce la mydocuments chemin sur tous les Pc windows (personalfolder/documents) peuvent, à l'utilisateur de changer cette stucture et de faire le dossier mes documents anywhare d'autre (par exemple: c:\documents)
si l'utilisateur de modifier le chemin d'accès de me donner une bonne façon et je voudrais savoir quel est le nom de mesdocuments dossier (Mes Documents ou Documents)

source d'informationauteur VibeeshanRC