VPF::Удаление только Temporaly Internet Files - Форум программистов

Ak47black

Дата 18.2.2007, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Помогите понять что я неправильно делаю
Хочю написать процедуру которая удаляет только Temporaly Internet Files.

Код


procedure DeleteTemporalyInternetFiles;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;
  dwEntrySize: LongWord;
begin
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  try
    if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
    hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
    if hCacheDir <> 0 then
    try
      repeat
        if lpEntryInfo^.CacheEntryType = URLHISTORY_CACHE_ENTRY then
          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);
    finally
      FindCloseUrlCache(hCacheDir);
    end;
  finally
    FreeMem(lpEntryInfo, dwEntrySize);
  end;
end;

Код взял из drkb23 и переделал по следущей статье от Rouse. Тут статья

Цитата

Для удаления только куков или временных файлов нужно смотреть тип lpEntryInfo^.CacheEntryType на присутствие COOKIE_CACHE_ENTRY (куки) или URLHISTORY_CACHE_ENTRY (хистори)

Сделал вроде правильно ,но код неработает smile

.

Это сообщение отредактировал(а) Ak47black - 18.2.2007, 21:19

Alexeyt

Дата 23.2.2007, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2

Ak47black,
Что-то делаешь неправильно, не знаю что.

Посмотри еще код плагина MSIE Cache Browser для Тотала. Там тоже такая енумерация есть. Может, поможет.

http://wincmd.ru/plugring/msie_cache.html
http://atorg.net.ru/files/wfx_MSIECache_src.rar

tigger

Дата 24.2.2007, 03:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 456
Регистрация: 30.4.2005

Репутация: -1
Всего: 4

По моему нужно так

if lpEntryInfo^.CacheEntryType = NORMAL_CACHE_ENTRY then

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »