Удалить временные файлы IE

На конгрессе программистов зачитывают послание Президента России.... Пожелания удачи, и т.д. А в конце подпись
- "Ваш Президент.Ру"

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 712 • TDictionary Custom Sort 6 710 • Fast Watermark Sources 6 490 • 3D Designer 9 427 • Sik Screen Capture 6 824 • Patch Maker 7 266 • Айболит (remote control) 7 221 • ListBox Drag & Drop 6 072 • Доска для игры Реверси 97 764 • Графические эффекты 7 396 • Рисование по маске 6 693 • Перетаскивание изображений 5 547 • Canvas Drawing 5 934 • Рисование Луны 5 702 • Поворот изображения 5 165 • Рисование стержней 3 768 • Paint on Shape 2 954 • Генератор кроссвордов 3 883 • Головоломка Paletto 3 095 • Теорема Монжа об окружностях 3 906 • Пазл Numbrix 2 569 • Заборы и коммивояжеры 3 353 • Игра HIP 2 302 • Игра Go (Го) 2 201 • Симулятор лифта 2 610 • Программа укладки плитки 2 200 • Генератор лабиринта 2 713 • Проверка числового ввода 2 355 • HEX View 2 692 • Физический маятник 2 364