[roman]

Empezado por dec

repasé un poco el Foro (no hace mucho se trató el tema de cómo averiguar el nombre de la computadora, por ejemplo, y no iba del todo mal desencaminado, creo) y encontré e intenté hacer algo así:

Código Delphi [-]
 (...)
 var
   buffer: array[0..MAX_PATH] of Char;
 begin
   SetLength(buffer, MAX_PATH);
   SHGetSpecialFolderPath(GetCurrentProcess, buffer,
     NumeroDirectorio(directorio), crear);
   Result := buffer;
 end;

Eso pasa por no buscar en el lugar "correcto"

// Saludos