Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c
1-93580
_Dmitry_
2004-01-16 11:17
2004.01.29
TWebBrowser


3-93399
Silver_
2003-12-30 11:17
2004.01.29
Fast Report - Проверка на NULL (в скрипте)


1-93475
dark_angel
2004-01-15 20:53
2004.01.29
Help


3-93382
Grotesk
2003-12-30 18:28
2004.01.29
DataSet в качестве Базы Данных


14-93674
BlackTiger
2003-12-30 13:43
2004.01.29
Delphi8. Что-то я не понял прикола...




   Наверх