![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Очистка КЕША [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