Запарка с папкой Temporary Internet Files

← →
Checist [root] (2004-05-04 21:19) [0]

Как приграмно:
1) открыть в проводнике папку Temporary Internet Files текущего пользователя
2) как ее очистить (удалить все файлы, и cookie тоже)

← →
begin...end © (2004-05-04 21:21) [1]

> открыть в проводнике папку

ShellExecute

> как ее очистить

FindFirst, FindNext, DeleteFile, FindClose

← →
Checist [root] (2004-05-04 21:25) [2]

1) У разных пользователей разные адресса этой папки! Необходимо открыть папку текущего.

2) По моему, эта папка виртуальная. FindFirst, FindNext, DeleteFile, FindClose - не пройдут!

← →
begin...end © (2004-05-04 21:30) [3]

> 1) У разных пользователей разные адресса этой папки! Необходимо открыть папку текущего.

uses ShlObj; function GetSpecialFolderPath(const Folder: Integer): String; var A: array[0..MAX_PATH] of Char; P: PChar; PIDL: pItemIDList; begin Result := ""; P := @A; case Folder of F_SYSTEM_TEMP: GetTempPath(MAX_PATH, P); F_INTERNET_TEMP: SHGetSpecialFolderLocation(0, CSIDL_INTERNET_CACHE, PIDL); F_INTERNET_HISTORY: SHGetSpecialFolderLocation(0, CSIDL_HISTORY, PIDL); F_COOKIES: SHGetSpecialFolderLocation(0, CSIDL_COOKIES, PIDL); F_RECENT: SHGetSpecialFolderLocation(0, CSIDL_RECENT, PIDL); F_RECYCLE: SHGetSpecialFolderLocation(0, CSIDL_BITBUCKET, PIDL); else Exit; end; if Folder = F_SYSTEM_TEMP then Result := String(P) else if SHGetPathFromIDList(PIDL,P) then Result := String(P); if (Result <> "") and (Result[Length(Result)] = "\") then Delete(Result, Length(Result), 1); end;

> 2) По моему, эта папка виртуальная. FindFirst, FindNext, DeleteFile, FindClose - не пройдут!

Пройдут.

А, ну и константы, конечно:

F_SYSTEM_TEMP = 0; { Временная папка системы }
F_INTERNET_TEMP = 1; { Временные файлы интернета }
F_INTERNET_HISTORY = 2; { История интернета }
F_COOKIES = 3; { Папка Cookies }
F_RECENT = 4; { Список недавно открытых документов }
F_RECYCLE = 5; { Корзина }

P.S. Copyright не мой. :)

Запарка с папкой Temporary Internet Files Найти похожие ветки