| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кэш [D5, WinXP]

BlackSun ©   (2002-07-12 20:12:00) 

Подскажите пожалуйста, как очистить "Temporary Internet Files" и cookies. Не просто удаление файлов, но и подчистить index.dat.

---

BlackSun   (2002-07-17 04:51:00) [1]

Есть одна программа, которая показывает содержимое index.dat, так вот даже после приведенного выше кода, она показывает, что index.dat не пустой и там сохраняются ссылки, т.е. код не очищает (или не полностью очищает) index.dat, хотя 90% файлов удаляются, а cookies полностью удаляются. Так вот все-таки ищется способ полностью очистить index.dat от url"ов.

---

LENIN INC   (2002-07-12 20:56:00) [2]

Вот так это делается:

uses
WinInet;

procedure DeleteIECache;
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord;
dwEntrySize: LongWord;
begin
dwEntrySize := 0;
FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
if hCacheDir <> 0 then
begin
repeat
DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
FreeMem(lpEntryInfo, dwEntrySize);
dwEntrySize := 0;
FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
end;
FreeMem(lpEntryInfo, dwEntrySize);
FindCloseUrlCache(hCacheDir);
end;


//Использование:
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteIECache;
end;

---

начинающий програмер   (2002-07-12 20:53:00) [3]

Без понятия......

---

Anatoly Podgoretsky   (2002-07-12 20:46:00) [4]

Стандартно - Сервис|Свлойство обохревателя|Удалить файлы

---

Наверх