Вниз
Скачать: 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.049 c
14-1105378019
esu
2005-01-10 20:26
2005.01.30
Да уж, наверное и такое бывает ;)


14-1105586844
inew
2005-01-13 06:27
2005.01.30
EhLib


1-1105953089
thvfrjd
2005-01-17 12:11
2005.01.30
проблема с ExcelApplication


14-1105239856
Думкин
2005-01-09 06:04
2005.01.30
С Днем Рождения! 9 января


1-1106213522
aleshap
2005-01-20 12:32
2005.01.30
Директория




   Наверх