Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Очистки кеша "Temporary Internet Files".

Автор: Riko 12.8.2002, 18:26

Усем прювет!!!

Народ!!! Срочно нужен пример очистки кеша "Temporary Internet Files". Только грамотной очистки, а не тупое удаления из папки содержимого...

С уважением,
Я

Автор: Riko 12.8.2002, 18:34

Нашёл примерчик на Сырцах.ру, но не могу идентифицировать LongWord. Как быть?

Код

Uses WinINet; 

Procedure TfrmMain.btnEmptyCacheClick( Sender : TObject ); 
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;

Люди!!! Если есть у кого примеры очистки кеша IE, не стесняйтесь.

Автор: Vit 12.8.2002, 23:10

Цитата(Riko @ 12.8.2002, 02:34)

не могу идентифицировать LongWord. Как быть?

Что значит идентифицировать? Это родной тип Дельфи, должен пониматься компиллятором без проблем, или у тебя Дельфи 1 стоят - там этого типа не было...

Автор: Riko 15.8.2002, 22:19

Цитата

или у тебя Дельфи 1 стоят - там этого типа не было...

У меня D3!

P.S. Советы переустановить конструктор приложений на более новый не принимаються.

Я