Очистка кэша в IE

Delphi , Интернет и Сети , Браузер

Автор: Gua
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Очистка кэша в IE.

Зависимости: WinInet
Автор:       Gua, fbsdd@ukr.net, ICQ:141585495, Simferopol
Copyright:
Дата:        06 мая 2002 г.
***************************************************** }

procedure EmptyIECache;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;
  dwEntrySize: LongWord;
  dwLastError: LongWord;
begin
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
  if (hCacheDir <> 0) then
    DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
  FreeMem(lpEntryInfo);
  repeat
    dwEntrySize := 0;
    FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^),
      dwEntrySize);
    dwLastError := GetLastError();
    if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
    begin
      GetMem(lpEntryInfo, dwEntrySize);
      if (FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize)) then
        DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
      FreeMem(lpEntryInfo);
    end;
  until (dwLastError = ERROR_NO_MORE_ITEMS);
end;

Код на Delphi для очистки кэша Интернет-Explorer (IE)!

Что это код делает? Эта процедура, называемая EmptyIECache, предназначена для очистки кэша IE. Она использует функции API WinInet для итерации через элементы кэша и удаления каждого из них.

Шаг за шагом:

1. Код инициализирует несколько переменных: lpEntryInfo (указатель на структуру InternetCacheEntryInfo), hCacheDir (handle к кэш-каталоге), dwEntrySize (размер элемента кэша) и dwLastError (код ошибки).
2. Код вызывает функцию FindFirstUrlCacheEntry, чтобы найти первый элемент кэша, передавая null-параметр для lpSearchInfo.
3. Код выделяет память для структуры InternetCacheEntryInfo с помощью GetMem.
4. Если вызов FindFirstUrlCacheEntry возвращает валидный handle (hCacheDir <> 0), код вызывает функцию DeleteUrlCacheEntry, чтобы удалить элемент кэша.
5. Затем код освобождает выделенную память с помощью FreeMem.
6. Код вступает в цикл, который продолжается до тех пор, пока не будет больше элементов кэша (т.е., GetLastError = ERROR_NO_MORE_ITEMS). В каждой итерации:
   • Код сбрасывает переменную dwEntrySize до 0.
   • Вызывает функцию FindNextUrlCacheEntry, чтобы найти следующий элемент кэша, передавая текущий handle (hCacheDir) и null-параметр для lpSearchInfo.
   • Если вызов FindNextUrlCacheEntry возвращает код ошибки, указывающий на недостаточную длину буфера (т.е., GetLastError = ERROR_INSUFFICIENT_BUFFER), код выделяет новую память для элемента кэша с помощью GetMem.
   • Вызывает функцию DeleteUrlCacheEntry, чтобы удалить элемент кэша, и освобождает выделенную память с помощью FreeMem.

Альтернативные решения: Если вы ищете альтернативные способы очистки кэша IE, вот несколько: 1. Используйте встроенный параметр IE: нажмите Ctrl + Shift + Delete, перейдите на вкладку "Настройки" и кликните "Удалить историю просмотра...". Проверьте поле "Cookies и другие данные сайта". 2. Используйте планировщик задач Windows: создайте задачу, которая запускает файл batch с командой rundll32.exe inetcache.dll,CacheTasks. 3. Используйте инструмент третьей стороны: есть много инструментов, таких как CCleaner или Glary Utilities, которые могут помочь вам очистить кэш IE.

Примечание: Этот код специфичен для Интернет-Explorer и может не работать с другими браузерами. Кроме того, очистка кэша может повлиять на производительность браузера или вызвать проблемы с определенных веб-сайтах. Используйте этот код на свой страх и риск!

Программа на Delphi, которая очищает кэш в интернет-explorer, удаляя все записи из кэша и обеспечивая полную очистку.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::