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

Вниз

Запарка с папкой 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 - не пройдут!

Пройдут.

---

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

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

 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 не мой. :)

---

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

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

Наверх

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