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

Материал из DRKB

Пример очистки куков и 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;
end;


Source: Взято из http://forum.sources.ru
ID: 01667