uses ..., WinInet;
{©Drkb v.3(2007): www.drkb.ru}
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;
  FindUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
  until not FindUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
  finally
  FindCloseUrlCache(hCacheDir);
  end;
 finally
  FreeMem(lpEntryInfo, dwEntrySize);
 end;
end;