Windows, WinAPI  Узнать пути к стандартным папкам
Написал Snowy    
 09 . 09 . 2007  
В Windows есть специальная функция, позволяющая получить пути к стандартным папкам.
В Delphi это будет выглядеть так: 
uses ShlObj;
 
function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath( 0 , PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;
Функции нужно передать id папки, путь которой хотим получить. Список id идёт далее.
Следует помнить, что не все id будуть работать в разных версиях Windows. Например папки 'Documents & Settungs' нет в  98 -х и бессмысленно пытаться получить путь к ней.
Смысл данного поста скорее не в том, чтобы показать, как пользоваться функцией SHGetSpecialFolderPath, а, скорее, дать перечень CSIDL и описание к ним на русском. 

Вот полный код: 
uses ShlObj;
 
const
{
  // Следующие идентификаторы имеются в модуле ShlObj:
  CSIDL_DESKTOP                       = $ 0000 ;
  // Виртуальный каталог, представляющий Рабочий стол. (Корень в проводнике)
  CSIDL_INTERNET                      = $ 0001 ;
  // Виртуальный каталог для Internet Explorer.
  CSIDL_PROGRAMS                      = $ 0002 ;
  // Меню Пуск -> Программы
  CSIDL_CONTROLS                      = $ 0003 ;
  // Виртуальный каталог, содержащий иконки пунктов панели управления
  CSIDL_PRINTERS                      = $ 0004 ;
  // Виртуальный каталог, содержащий установленные принтеры
  CSIDL_PERSONAL                      = $ 0005 ;
  // Виртуальный каталог, представляющий папку "Мои документы"
  // До Vista ссылался на какталог "Мои документы" на жёстком диске
  CSIDL_FAVORITES                     = $ 0006 ;
  // Избранное. (обычно C:\Documents and Settings\username\Favorites)
  CSIDL_STARTUP                       = $ 0007 ;
  // Пуск -> Программы -> Автозагрузка
  CSIDL_RECENT                        = $ 0008 ;
  // Недавние документы (обычно C:\Documents and Settings\username\My Recent Documents
  // Для добавления ссылки документа используйте SHAddToRecentDocs
  CSIDL_SENDTO                        = $ 0009 ;
  // Папка, содержащая ярлыки меню "Отправить" (Sent to...) (обычно C:\Documents and Settings\username\SendTo)
  CSIDL_BITBUCKET                     = $000a;
  // Виртуальный каталог, содержащий файлы в корзине текущего пользователя
  CSIDL_STARTMENU                     = $000b;
  // Элементы меню Пуск текущего пользователя (обычно C:\Documents and Settings\username\Start Menu)
  CSIDL_DESKTOPDIRECTORY              = $ 0010 ;
  // Рабочий стол текущего пользователя (обычно C:\Documents and Settings\username\Desktop)
  CSIDL_DRIVES                        = $ 0011 ;
  // Виртуальный каталог, представляющий папку "Мой компьютер"
  CSIDL_NETWORK                       = $ 0012 ;
  // Виртуальный каталог, представляющий "Сетевое окружение"
  CSIDL_NETHOOD                       = $ 0013 ;
  // Папка "My Nethood Places" (обычно C:\Documents and Settings\username\NetHood)
  // В неё ссылки на избранные расшаренные ресурсы
  CSIDL_FONTS                         = $ 0014 ;
  // Папка, содержащая установленные шрифты. (обычно C:\Windows\Fonts)
  CSIDL_TEMPLATES                     = $ 0015 ;
  // Шаблоны документов. (Обычно Settings\username\Templates)
  CSIDL_COMMON_STARTMENU              = $ 0016 ;
  // Элементы меню Пуск для всех пользователей. (обычно C:\Documents and Settings\All Users\Start Menu)
  // Константы, начинающиеся на CSIDL_COMMON_ существуют только в NT версиях
  CSIDL_COMMON_PROGRAMS               = $ 0017 ;
  // Меню Пуск -> программы для всех пользователей (обычно C:\Documents and Settings\All Users\Start Menu\Programs)
  CSIDL_COMMON_STARTUP                = $ 0018 ;
  // Меню Пуск -> Программы -> Автозагрузка для всех пользователей (обычно C:\Documents and Settings\All Users\Start Menu\Programs\Startup)
  CSIDL_COMMON_DESKTOPDIRECTORY       = $ 0019 ;
  // Элементы Рабочего стола для всех пользователей (обычно C:\Documents and Settings\All Users\Desktop)
  CSIDL_APPDATA                       = $001a;
  // Папка, в которой рограммы должны хранить свои данные(C:\Documents and Settings\username\Application Data)
  CSIDL_PRINTHOOD                     = $001b;
  // Установленные принтеры. (обычно C:\Documents and Settings\username\PrintHood)
  CSIDL_ALTSTARTUP                = $001d;         // DBCS
  // user's nonlocalized Startup program group. Устарело.
  CSIDL_COMMON_ALTSTARTUP         = $001e;         // DBCS
  // Устарело
  CSIDL_COMMON_FAVORITES          = $001f;
  // Ссылки "Избранное" для всех пользователей
  CSIDL_INTERNET_CACHE            = $ 0020 ;
  // Временные Internet файлы (обычно C:\Documents and Settings\username\Local Settings\Temporary Internet Files)
  CSIDL_COOKIES                   = $ 0021 ;
  // Папка для хранения Cookies (обычно C:\Documents and Settings\username\Cookies)
  CSIDL_HISTORY                   = $ 0022 ;
  // Хранит ссылки интернет истории IE
}

FUNCTION MyDocsPath()
*HKEY_CLASSES_ROOT (0x80000000)
*HKEY_CURRENT_USER (0x80000001)
*HKEY_LOCAL_MACHINE 0x80000002
*HKEY_USERS (0x80000003)
*HKEY_CURRENT_CONFIG (0x80000005)
*HKEY_DYN_DATA (0x80000006) is a valid tree for Windows  95  and Windows  98  computers only.
#define HKEY_CURRENT_USER 0x80000001
#define KEY_READ 0x00020019 
#define ERROR_SUCCESS  0  
DECLARE INTEGER RegOpenKeyEx IN ADVAPI32; 
        INTEGER HKLM, STRING SubKey, INTEGER Dummy, INTEGER Access,INTEGER @hKey 

DECLARE INTEGER RegCloseKey IN ADVAPI32 INTEGER 

DECLARE INTEGER RegQueryValueEx IN ADVAPI32; 
        INTEGER hKey, STRING ValueName, INTEGER Dummy, INTEGER Type,; 
        STRING Data, INTEGER @Size 

* это ветвь реестра, в которой находится интересующий нас параметр 
SubKey="Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
hKey= 0 
* Открываем эту ветвь и получаем её handle 
IF RegOpenKeyEx(HKEY_CURRENT_USER,SubKey, 0 ,KEY_READ,@hKey) != ERROR_SUCCESS 
MESSAGEBOX("Неможливо отримати параметр з системного реестра.", 16 ,"Помилка") 
RETURN 
ENDIF 
* "Default DevMode" - это название параметра, значение которого я хочу 
* получить. Сначала определяем, сколько памяти нам нужно зарезервировать, 
* чтобы принять этот параметер 
lnSize= 0  
RegQueryValueEx(hKey,"Personal", 0 , 0 , 0 ,@lnSize) 
* Резервируем память 
lcRegValue = SPACE(lnSize- 1 ) 
* Теперь считываем значение параметра 
RegQueryValueEx(hKey,"Personal", 0 , 0 ,@lcRegValue,@lnSize) 
* Заканчиваем работать с реестром 
RegCloseKey(hKey)
RETURN lcRegValue