uses Shlobj; function Folder(nFolder: Integer): String;
var
ppidl: PItemIDList;
szPath: array[0..MAX_PATH - 1] of Char;
begin
SHGetSpecialFolderLocation(0, nFolder, ppidl);
SHGetPathFromIDList(ppidl, szPath);
Result := String(szPath);
end;
Константы nFolder:
CSIDL_DESKTOPDIRECTORY - рабочий стол текущего пользователя.
CSIDL_FONTS - системная папка шрифтов.
CSIDL_PERSONAL - Мои документы.
CSIDL_PROGRAMS -Главное меню\программы.
CSIDL_RECENT - Недавние документы.
CSIDL_STARTMENU - Главное меню.
CSIDL_STARTUP - Главное меню\программы\автозагрузка
CSIDL_TEMPLATES - Шаблоны