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

Previous  Top  Next

    
 

 

 

Code:

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;

       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;

 

 

Автор Rouse_

©Drkb::01667

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