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

made in programmersforum 10

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

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

23rd
Май

Папка TEMP на Delphi

Posted by maloy under Delphi, Архив

KoBRaAndrey

Как узнать папку Temp на Delphi 2009? Я находил код но он не работает

Lime

Код:


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;