Delphi World - Как программно в Internet Explorer нажать кнопку Clear Cache

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Как программно в Internet Explorer нажать кнопку Clear Cache

Как будет выглядеть церковь MSIE:
1) При входе надо будет указывать логин и пароль, который затем будет огромными буквами записываться на стене, чтобы вы его в дальнейшем не забыли.
2) В разгар службы всех посетителей будут просить выйти из церкви, чтобы перезагрузить зависший алтарь.
3) Большинство молитв будет читаться на вьетнамском или турецком языке.
4) Минимум раз в день в церкви кто-нибудь громко будет совершать недопустимую операцию.
5) День, когда с церкви не упадет макушка и не треснет кого-нибудь по кумполу, будет считаться божьим чудом.
6) Главному настоятелю каждый день будут поступать сведения обо всех ваших передвижениях в церкви. Даже о том, что именно вы делали в туалете.
7) При попытке поискать адреса церквей других конфессий вам в первой строчку услужливо будут подсовывать "Святую церковь MSIE всеблагого Гейтса".
8) Периодически вместо икон на стенах будут возникать пустые квадратики с крестиком. Впрочем, хорошо еще, что с крестиком. На них хоть тоже можно молиться.
9) Пару раз в неделю, при попытке найти вход в церковь, вы будете наталкиваться на плакат: "Вход в дверь недоступен. Возможно, это вызвано техническими проблемами на Небесах".

Вам нужно будет использовать WinINet в Вашей TfrmMain: Uses WinINet; и добавить к TButton следующий обработчик btnEmptyCache:

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;