Menghapus File Temporary Internet Cache

Jika kita download file dari internet, apa yang kita download akan disimpan di suatu direktori atau istilahnya “cache”. Sebelum proses download, akan diperiksa dulu apakah file sudah ada di direktori cache. Jika sudah ada, akan langsung disalin dari direktori cache tersebut, tidak download ulang dari internet. Sebagian orang mungkin tidak menginginkan file disalin dari direktori cache, tapi bagaimanapun juga selalu menyalin dari situs web yang telah ditentukan.
Jika demikian yang kita inginkan, kita harus menghapus file yang sudah kita download dari direktori cache setelah proses download berakhir. Dengan menghapus file pada direktori cache, setiap proses download selalu dari situs web.
uses WinInet;

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