Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

2nd
Янв

Узнать путь к папкам

Posted by micher under Delphi, Архив

Как программно узнать путь к различным папкам?

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 }



 // Следующих идентификаторов нет в ShlObj:

  CSIDL_ADMINTOOLS                = $30;

  // Административные инструменты текущего пользователя (например консоль MMC). Win2000+
  CSIDL_CDBURN_AREA               = $3b;

  // Папка для файлов, подготовленных к записи на CD/DVD

//(Обычно C:\Documents and Settings\username\Local Settings\Application Data\Microsoft\CD Burning)
  CSIDL_COMMON_ADMINTOOLS         = $2f;

  // Папка, содержащая инструменты администрирования
  CSIDL_COMMON_APPDATA            = $23;

  // Папака AppData для всех пользователей.

//(обычно C:\Documents and Settings\All Users\Application Data)
  CSIDL_COMMON_DOCUMENTS          = $2e;

  // Папка "Общие документы" (обычно C:\Documents and Settings\All Users\Documents)
  CSIDL_COMMON_TEMPLATES          = $2d;

  // Папка шаблонов документов для всех пользователей

//(Обычно C:\Documents and Settings\All Users\Templates)
  CSIDL_COMMON_MUSIC              = $35;

  // Папка "Моя музыка" для всех пользователей.

//(обычно C:\Documents and Settings\All Users\Documents\My Music)
  CSIDL_COMMON_PICTURES           = $36;

  // Папка "Мои рисунки" для всех пользователей.

//(обычно C:\Documents and Settings\All Users\Documents\My Pictures)
  CSIDL_COMMON_VIDEO              = $37;

  // Папка "Моё видео" для всех пользователей

//(C:\Documents and Settings\All Users\Documents\My Videos)
  CSIDL_COMPUTERSNEARME           = $3d;

  // Виртуальная папка, представляет список компьютеров в вашей рабочей группе
  CSIDL_CONNECTIONS               = $31;

  // Виртуальная папка, представляет список сетевых подключений
  CSIDL_LOCAL_APPDATA             = $1c;

  // AppData для приложений, которые не переносятся на другой компьютер

//(обычно C:\Documents and Settings\username\Local Settings\Application Data)
  CSIDL_MYDOCUMENTS               = $0c;

  // Виртуальный каталог, представляющий папку "Мои документы"
  CSIDL_MYMUSIC                   = $0d;

  // Папка "Моя музыка"
  CSIDL_MYPICTURES                = $27;

  // Папка "Мои картинки"
  CSIDL_MYVIDEO                   = $0e;

  // Папка "Моё видео"
  CSIDL_PROFILE                   = $28;

  // Папка пользователя (обычно C:\Documents and Settings\username)
  CSIDL_PROGRAM_FILES             = $26;

  // Папка Program Files (обычно C:\Program Files)
  CSIDL_PROGRAM_FILESX86          = $2a;
  CSIDL_PROGRAM_FILES_COMMON      = $2b;

  // Папка Program Files\Common (обычно C:\Program Files\Common)
  CSIDL_PROGRAM_FILES_COMMONX86   = $2c;
  CSIDL_RESOURCES                 = $38;

  // Папка для ресерсов. Vista и выше (обычно C:\Windows\Resources)
  CSIDL_RESOURCES_LOCALIZED       = $39;
  CSIDL_SYSTEM                    = $25;

  // Папака System (обычно C:\Windows\System32 или C:\Windows\System)
  CSIDL_SYSTEMX86                 = $29;
  CSIDL_WINDOWS                   = $24;

  // Папка Windows. Она же %windir% или %SYSTEMROOT% (обычно C:\Windows)
function GetSpecialPath(CSIDL: word): string;

var s:  string;

begin

  SetLength(s, MAX_PATH);

  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)

  then s := GetSpecialPath(CSIDL_APPDATA);

  result := PChar(s);

end;