Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Очистка КЕША [D6, D7, Win95/98, WinXP]


Kullibin ©   (2004-05-24 14:30:00) 

Здравствуйте мастера. Подскажите, черз какую WinApi функцию можно очистить кеш Internet Explorera?


Dimaxx   (2004-06-07 20:33:00) [1]

Одной функцией невозможно.


kullibin   (2004-06-07 16:19:00) [2]

А как нибудь одной функцией все это сделать нет? Или IE что-то подобное делает (сам)


Dimaxx   (2004-05-24 23:08:00) [3]

Очистка кэша в IE..

Прислал:
Gua (Simferopol) (06 мая 2002 г.)
©
Тестировано:
Nikolay, 30 мая 2002 г.

Зависимости:
WinInet
[0]

Исходный текст:
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Очистка кэша в IE.

Зависимости:
WinInet
Автор: Gua, fbsdd@ukr.net, ICQ:141585495, Simferopol
Copyright:  
Дата: 06 мая 2002 г.
***************************************************** }

Procedure EmptyIECache;
Var
lpEntryInfo : PInternetCacheEntryInfo;
hCacheDir : LongWord;
dwEntrySize : LongWord;
dwLastError : LongWord;
Begin
dwEntrySize := 0;
FindFirstUrlCacheEntry( NIL, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
GetMem( lpEntryInfo, dwEntrySize );
hCacheDir := FindFirstUrlCacheEntry( NIL, lpEntryInfo^, dwEntrySize );
If ( hCacheDir <> 0 ) Then
DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
FreeMem( lpEntryInfo );
Repeat
dwEntrySize := 0;
FindNextUrlCacheEntry( hCacheDir, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
dwLastError := GetLastError();
If ( GetLastError = ERROR_INSUFFICIENT_BUFFER ) Then Begin
GetMem( lpEntryInfo, dwEntrySize );
If ( FindNextUrlCacheEntry( hCacheDir, lpEntryInfo^, dwEntrySize ) ) Then
DeleteUrlCache Entry( lpEntryInfo^.lpszSourceUrlName );
FreeMem(lpEntryInfo);
End;
Until ( dwLastError = ERROR_NO_MORE_ITEMS );
End;


Sanek_metaller   (2004-05-24 16:18:00) [4]

Возможно я не прав,и это не ф-я,но можно просто удалить все файлы из Temporary Internet Files.


Kullibin   (2004-05-24 15:08:00) [5]

А по конкретней можно?


Anatoly Podgoretsky   (2004-05-24 14:43:00) [6]

Смотри функции WinInet


Наверх

Титульная страница Поиск, карта сайта Написать письмо