Windows

Windows n'est pas un sytème multi-utilisateur à l'heure actuelle. Les documents de tous les utilisateurs sont censés être stocké dans le répertoire "Mes documents". Ce répertoire se situe habituellement directement dans C:\Mes documents, mais l'utilisateur peut changer ce chemin, il faut donc mieux ne pas le coder en dur.

Pour connaitre l'emplacement exact, il faut consulter la base de registre. Le chemin de la clé à examiner est le suivant :

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal

Exemple :

{ Récupérer le répertoire de l'utilisateur }

program UserHome;

uses
  Windows, Registry, Dialogs;

var
  Reg: TRegistry;

begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\'
      + 'Explorer\User Shell Folders\', False);
    ShowMessage('Le répertoire de l''utilisateur est : ['
      + Reg.ReadString('Personal') + ']');
  finally
    Reg.Free;
  end;
end.

Linux

Il suffit d'interroger la variable d'environnement HOME.

Exemple :

{ Récupérer le répertoire de l'utilisateur }

program UserHome;

uses
  SysUtils, QDialogs;

begin
  ShowMessage('Le répertoire de l''utilisateur courant est : ' +
    SysUtils.GetEnvironmentVariable('HOME'));
end.