• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Кнопка программы на панели задач

  • Автор темы xprizrak
  • Дата начала
X

xprizrak

В программе при определенных событиях начинает мигать кнопка программы на панели задач.
Для этого используется функция FlashWindow(Application.Handle, True);

При наступлении иного события кнопка должна перестать мигать. Мигать перестает. Но остаться то в подсвеченном состоянии, то в исходном. Зависит как понимаю от момента наступления события.
Как можно добиться что бы после остановки всегда возвращалась к исходному состоянию.

(Такое реализовано в qip, если окно сообщений свернуто, а сообщение пришло, кнопка начинает мигать, как только окно раскрываться, кнопка на панели задач возвращаться в исходное состояние.)
 
B

BurcevD

Точно не хнаю, но попробуйте FlashWindow(Application.Handle, False);
 
X

xprizrak

Спасибо, это уже пробывал, не работает.
 
B

BurcevD

Вот нашел
Пpоцедуpа FlashWindow

Синтаксис:



function FlashWindow(Wnd: HWnd; Invert: Bool): Bool;




Описание: Делает окно или пиктогpамму мигающими. Активное состояние откpытого окна инвеpтиpуется.
Wnd: Идентификатоp окна или оpгана упpавления.
Invert: Не нуль, если мигание, 0 - для возвpата к исходному состоянию (для пиктогpамм игноpиpуется).
Возвращаемое значение: Не нуль, если окно до вызова было активным; 0 - в пpотивном случае.
 
X

xprizrak

Если ставлю 0, то устанавливаться подсвеченным и все.
 
P

Poseidon

Как ты останавливаешь мигание? Вот тогда, когда мигание должно быть остановлено, делай еще
Application.Minimize;
Application.Restore;
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!