Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Стандартные папки Windows   Найти похожие ветки 

← →
Oyster ©   (2005-01-20 12:35) [0]

Как узнать физический путь к папкам History, Temporary Internet Files, Recent, Temp, Cookies?

---

← →
Вариант ©   (2005-01-20 12:46) [1]

uses
 ActiveX, ShlObj;

procedure GetPath(name: integer);
var
 Allocator: IMalloc;
 SpecialDir: PItemIdList;
 FBuf: array[0..MAX_PATH] of Char;
 PerDir: string;
begin
 if SHGetMalloc(Allocator) = NOERROR then
 begin
   SHGetSpecialFolderLocation(Form1.Handle, name, SpecialDir);
   SHGetPathFromIDList(SpecialDir, @FBuf[0]);
   Allocator.Free(SpecialDir);
   ShowMessage(string(FBuf));
 end;
end;
Переменной присваивай одно из значений слудующих констант:
 CSIDL_DESKTOP
 CSIDL_INTERNET
 CSIDL_PROGRAMS
 CSIDL_CONTROLS
 CSIDL_PRINTERS
 CSIDL_PERSONAL
 CSIDL_FAVORITES
 CSIDL_STARTUP
 CSIDL_RECENT
 CSIDL_SENDTO
 CSIDL_BITBUCKET
 CSIDL_STARTMENU
 CSIDL_DESKTOPDIRECTORY
 CSIDL_DRIVES
 CSIDL_NETWORK
 CSIDL_NETHOOD
 CSIDL_FONTS
 CSIDL_TEMPLATES
 CSIDL_COMMON_STARTMENU
 CSIDL_COMMON_PROGRAMS
 CSIDL_COMMON_STARTUP
 CSIDL_COMMON_DESKTOPDIRECTORY
 CSIDL_APPDATA
 CSIDL_PRINTHOOD
 CSIDL_ALTSTARTUP
 CSIDL_COMMON_ALTSTARTUP
 CSIDL_COMMON_FAVORITES
 CSIDL_INTERNET_CACHE
 CSIDL_COOKIES
 CSIDL_HISTORY
Т.е. name:=CSIDL_HISTORY;
По названию константы разберёшься, что она показывает.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c