Вниз
Скачать: 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.03 c
4-1102595459
serg128
2004-12-09 15:30
2005.01.30
Как на WinAPI переименовать файл?


6-1099644586
Progh
2004-11-05 11:49
2005.01.30
Отправка сообщения на ICQ


1-1106019429
ZAlex
2005-01-18 06:37
2005.01.30
Переход на Delphi 2005


11-1088618446
Red Wind
2004-06-30 22:00
2005.01.30
CloseQuery


3-1104148727
denis24
2004-12-27 14:58
2005.01.30
EHLib




   Наверх