Cookies -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.137.171.121]

Модераторы: Rouse_, jack128, Krid

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

Rouse_

Сообщ. #1 , 07.12.04, 13:50

Moderator

Профиль · PM

Поощрения: 4 Dgm

Рейтинг (т): 320

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;

пример использования:

procedure TForm1.Button1Click(Sender: TObject);

begin

DeleteCache;

end;

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

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0197 ] [ 16 queries used ] [ Generated: 3.05.24, 13:56 GMT ]