Форум программистов [Powered by Invision Power Board]

Код


procedure DeleteTemporalyInternetFiles;
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
        if lpEntryInfo^.CacheEntryType = URLHISTORY_CACHE_ENTRY then
          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;
end;

Цитата

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