FAQ - Как узнать местоположение специальных папок у WINDOWS?

VAR 
  FOLDERPATH :STRING;

REGISTRY := TREGISTRY.CREATE;
TRY
 REGISTRY.ROOTKEY := HKEY_CURRENT_USER;
 REGISTRY.OPENKEY('SOFTWARE\MICROSOFT\WINDOWS\'+
  'CURRENTVERSION\EXPLORER\SHELL FOLDERS', FALSE);
 FOLDERNAME := REGISTRY.READSTRING('STARTUP'); 
   {CACHE, COOKIES, DESKTOP, FAVORITES, 
    FONTS, PERSONAL, PROGRAMS, SENDTO, START MENU, STARTP}
FINALLY
 REGISTRY.FREE;
END;