Миниатюра приложения на панели инструментов в Vista не обновляется при сворачивании приложения, поскольку само свернутое окно не перерисовывается. Для приложения мониторинга, которое у меня есть, было бы полезно обновить миниатюру приложения, пока приложение остается свернутым. Я использую Delphi 2009. Может ли кто-нибудь предложить хороший обходной путь для этого?
HMCG
Это интересно, я думаю, это возможно каким-то образом с Windows API, я сейчас не на компьютере с Vista, но я думаю, что проигрыватель Windows Media по-прежнему показывает воспроизведение видео в свернутом виде.
Я предполагаю, что взлом состоял бы в том, чтобы переопределить кнопку свертывания и переместить форму за пределы экрана, а затем обнаружить, что форма снова становится активной, и переместить ее обратно в старое место. Это будет означать, что форма не видна, но не свернута.
Я нашел кое-что в Microsoft форум разработчиков, посвященный этой теме. Вопрос касался способа предоставления пользовательского миниатюрного изображения, для которого Microsoft Леонардо Бланко ответил следующим образом:
Мы не [t] планируем предоставлять приложению средство для создания пользовательского альтернативного представления эскиза, но мы предоставим API, чтобы полностью отказаться от обычного изображения эскиза....
Судя по наличию в MSDN функций DwmSetIconicLivePreviewBitmap и DwmSetIconicThumbnail для Windows 7. Сейчас эти записи не содержат никаких объяснений, но их названия выглядят многообещающе.
Кто-то указал, что миниатюра для проигрывателя Windows Media показывает движущееся видео, даже когда окно свернуто. Объяснение Бланко:
WMP использует новый видеоконвейер, который взаимодействует напрямую с [Диспетчером окон рабочего стола] для обеспечения более плавного воспроизведения. Этот конвейер основан на [DirectX] и не зависит от информации о видимости окна, поэтому миниатюра может оставаться активной, даже если окно свернуто, пока приложение продолжает отправлять кадры. Однако вы можете заметить, что пользовательский интерфейс вокруг видео больше не работает (это сложно заметить, потому что пользовательский интерфейс вокруг видео обычно не обновляется). Дополнительные сведения об этом методе см. в API
DwmSetPresentParameters.
Боюсь, я больше ничего не могу найти об этом. Документация по функциям DWM скудна.
Учитывая характер вашего приложения, возможно, стоит рассмотреть гаджет, чтобы жить на боковой панели Windows.
Я не знаю, работает ли это временное решение в Delphi 2009: переопределите CreateParams, чтобы установить GetDesktopWindow как WndParent.
В прошлом я изменил Application.Title, чтобы показать некоторую информацию на кнопке панели задач. Я не думаю, что это вызывает перерисовку значка?
В Delphi 2007 ваша основная форма находится на панели задач, если вы установите
Application.MainFormOnTaskbar := True;
Чтобы поддерживать его обновление, вам нужно предотвратить свертывание вашего приложения и вместо этого просто переместить его на задний план. Это можно сделать, поместив в форму TApplicationEvents и назначив обработчик события OnMinimize, а затем вызвав там Application.Restore. Вы захотите отслеживать свое собственное состояние минимизации и убедиться, что вы скрыли все остальные формы (если они у вас есть) и чтобы была видна только ваша основная форма, но в самом низком Z-порядке, когда она «свернута».
Я не думаю, что Windows Vista позволяет вам перемещать формы с экрана, или вы могли бы просто сделать это. Может быть, есть взлом вокруг этого.
Удачи!
перейдите в исходный проект и измените Application.MainFormOnTaskbar на false: Application.MainFormOnTaskbar := false;
С уважением, Маурисио
http://sourceforge.net/projects/tcycomponents/
