VPF::Очистки кеша "Temporary Internet Files". - Форум программистов

Riko

Дата 12.8.2002, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.7.2002
Где: Kiev

Репутация: нет
Всего: нет

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

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

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

Riko

Дата 12.8.2002, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.7.2002
Где: Kiev

Репутация: нет
Всего: нет

Нашёл примерчик на Сырцах.ру, но не могу идентифицировать 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 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

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

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

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

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Riko

Дата 15.8.2002, 22:19 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата

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

У меня D3!

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

Я

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »