Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Сен

Обновить иконки в трее

Posted by micher under Delphi

_SERGEYX_

Как обновить все иконки в трее сразу?

Кольша



uses CommCtrl;

procedure UpdateSysTray;

var

  w : HWND;

  i, n : integer;

begin

  w := FindWindow ('Shell_TrayWnd', nil);

  w := FindWindowEx (w, 0, 'TrayNotifyWnd', nil);

  w := FindWindowEx (w, 0, 'SysPager', nil);

  w := FindWindowEx (w, 0, 'ToolbarWindow32', nil);

  n := SendMessage(w, TB_BUTTONCOUNT, 0, 0);

  for i := 0 to n-1 do

    PostMessage(w, WM_MOUSEMOVE, 0, 0);

end;

тема на форуме