скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Как программно в 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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook