Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

Файлы из кеша IE   Найти похожие ветки 

 
Sam Stone ©   (2003-11-12 19:36) [0]

Как программно узнать, с какого сайта закеширован выбранный файл?


 
Vorobyev Sergey ©   (2003-11-13 10:43) [1]

http://www.risingresearch.com/ru/icache/
Может это пригодиться..


 
Sam Stone ©   (2003-11-13 17:02) [2]

Не пригодилось.
Я вот чего нашел:

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
DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
FreeMem(lpEntryInfo);
End;
Until ( dwLastError = ERROR_NO_MORE_ITEMS );
End;

Так что тему можно закрыть........



Страницы: 1 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-93570
Drakon
2004-01-16 23:18
2004.01.29
Стиль Windows XP в Delphi 8 for .Net


9-93323
Xandr
2003-07-14 08:03
2004.01.29
DelphiX MIDI


1-93526
X-shadow
2004-01-18 11:08
2004.01.29
Хендлер рабочего стола


3-93366
Danilas
2004-01-02 20:11
2004.01.29
Как запустить процедуру в Interbase с помошью Делфи


1-93451
ИМХО
2004-01-16 07:55
2004.01.29
Как оптимизировать работу с типизированным файлом?