::KANSoftWare :: ОС и Железо :: Windows :: Пример очистки cookie и Temporaly Internet Files

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

Code:

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;

Автор Rouse_

Комментарии и вопросы

Добавить сайт в закладки

Материалы статей взяты из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Windows ::

::ОС и Железо ::Windows

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

Комментарии и вопросы