Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 28.03.03 09:04

Лучшее из нашего FAQ   |x|
Очистка кэша в IE.
В примере описывается как программно в Internet Explorer нажать кнопку "Clear cache".
Совместимость: Delphi все версии

Пример:
Вам нужно будет использовать 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^.lpszSour! ceUrlName );
   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;


Автор: Christian ! Cristofori (zizzo81@hotmail.com)
Источник: http://www.sources.ru/delphi/

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • IBDataSet
    Есть набор данных IBDataSet, полученный из хранимой процедуры. Нужно его редактировать, а данные сохранять на сервере. ...
  • Убрать звук по закрытии "модального окна"
    Из основной формы открываю новую форму FormNew.ShowModal, в которой есть кнопки "Ok" и @Cancell"  с ModalResult=mrOk, и ...
  • Экспонента и мантисса
    Есть real число 0.01234, которое представляется как 1.234E-2. Как получить 1.234 и -2? Подозреваю, что вопрос туповат, ...
  • Свойство IBQuery.sql
    Здравствуйте! Объсните пожалуйста, можно ли использовать в в сойстве ibquery.sql несколько запросов. Т.е. Я сначала ...
  • длинные слова в отчете
    Как сделать так, чтобы в QuickReport в detail выводились строки из таблицы с длиной ок. 100 символов с переносом (на ...
  • совет по алгоритму...
    задача нужна процедура вида AnyProc(AStr,ASeparator,ANewSubStr,APos); где AStr вида '111*222*333*444*555**' ...
  • Хранимая процедура
    хочу сделать что то подобное, но в хранимой процедуре сервера это не предусмотренно for select z.kodl from zp z1, zu ...
У нас большой выбор статей   |x|
Функции для парсинга строк
Здесь представлен модуль, в котором я разместил много методов для обработки строк. Эта статья может быть полезна в качестве наглядного примера разработки задач подобного рода.
Новинки книжного рынка   |x|
Delphi 6 и Kylix для программиста
В этой книге на практических примерах рассмотрены все возможности среды Delphi 6. Читательузнает, как создавать многоуровневые программы для работы с базами данных, Интернет-системы и сетевые распределенные приложения на основе технологий СОМ и CORBA. Рассмотрены механизмы преобразования XML-данных и приемы разработки служб WebServices. В большинстве случаев программист может обойтись визуальными средствами Delphi.Характер авторских работ С. Бобровского традиционно отличается тем, что они не только служат фундаментальными руководствами по новым технологиям программирования, но и представляют собой удобные справочники, полезные каждому программисту, независимо от уровня его подготовки.
Автор: Бобровский С.
Другие сайты о DELPHI   |x|
Delphi и компания
Здесь вы найдете Русскую справку по WinAPI для Дельфи. А также книги по программированию, дополнительные справки и FAQ.

» Оценка сайта: 3
Опрос населения :)
К какой возрастной категории Вы принадлежите ?
»»» меньше 16
»»» от 17 до 20
»»» от 21 до 23
»»» от 24 до 26
»»» от 27 до 30
»»» от 30 до 35
»»» от 35 до 40
»»» от 40 до 44
»»» больше 45
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Ты хочешь мне помочь
Сойти с ума? Не стоит,
Я и сам прекрасно управляюсь...

Афоризмы
Добрым словом и револьвером можно добиться большего, чем одним только добрым словом (Аль Капоне)

Фраза дня
Народ не роскошь, а средство обогащения. (Правительство)

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Кларк Каунти в Неваде (США) можно привозить оружие только если оно зарегистрировано в полиции. Чтобы зарегистрировать оружие, его сначала нужно принести в местный полицейский участок.
В Нью Хемпшире (США) запрещается продавать одежду, чтобы заплатить долг казино.

И на закуску коротенький анекдот
Хирург разглядывает рентгеновский снимок:
- Да-а-а! Ключица поломана, два ребра сломано, трещина в малой берцовой кости. Ну, ничего, в Phоtоshорe все исправим!

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=1605


На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное