Главная страница
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.023 c
14-93681
Knight
2004-01-06 21:18
2004.01.29
А что в mpeg-ах?


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


1-93558
Lony
2004-01-17 14:00
2004.01.29
Папку в Exe


3-93370
Michail Dalakov
2004-01-02 12:35
2004.01.29
TRemoteDataModule и DCOM


1-93478
Seldon
2004-01-08 22:26
2004.01.29
Где происходит Exception?