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

Советы » Браузер » Очистка кэша в IE

{ **** 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com