Вниз
Скачать: CL | DM;

Стандартные папки 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c
14-1105255050
Yegorchic
2005-01-09 10:17
2005.01.30
Ну когда обновят www.DelphiGFX.mastak.ru?


1-1105889648
Exit
2005-01-16 18:34
2005.01.30
RichEdit


14-1104874182
STK
2005-01-05 00:29
2005.01.30
Когда?


3-1103723724
Del
2004-12-22 16:55
2005.01.30
Лицензия на InterBase


1-1105967931
rolex
2005-01-17 16:18
2005.01.30
Как сделать чтобы hint не убирался ч/з определённое время?




   Наверх