VPF::Удалить временные файлы IE - Форум программистов

Poseidon

Дата 18.5.2005, 23:39 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Код

uses  
  WinInet;  

procedure DeleteIECache;  
var  
  lpEntryInfo: PInternetCacheEntryInfo;  
  hCacheDir: LongWord;  
  dwEntrySize: LongWord;  
begin  
  dwEntrySize := 0;  
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);  
  GetMem(lpEntryInfo, dwEntrySize);  
  if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;  
  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);  
  if hCacheDir <> 0 then   
  begin  
    repeat  
      DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);  
      FreeMem(lpEntryInfo, dwEntrySize);  
      dwEntrySize := 0;  
      FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);  
      GetMem(lpEntryInfo, dwEntrySize);  
      if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;  
    until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);  
  end;  
  FreeMem(lpEntryInfo, dwEntrySize);  
  FindCloseUrlCache(hCacheDir);  
end;  


// Beispiel:  
// Example:  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
  DeleteIECache;  
end;

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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