Пример очистки куков и Temporaly Internet Files

Пример очистки куков и Temporaly Internet Files

uses ..., WinInet;

procedure DeleteCache;
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
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;

пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteCache;
end;

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

Эта запись была добавлена в Вторник, 13 мая, 2008 - 17:10 В разделы Операционная система, Сети, интернет. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.