VPF::SystemTray - Форум программистов

Rennigth

Дата 23.9.2005, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Я помоему уже поднимал этот вопрос, но тогда ответа не нашел и забил. Сейчас опять зайнтересовало. После кила процесса висящего в трее он так и остается там отображаться пока мышкой не наведешь, так как все - таки можно его обновить?

--------------------

(* Honesta mors turpi vita potior *)

p0s0l

Дата 24.9.2005, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Самое банальное решение - сэмулировать действия юзера (типа водит мышкой по трею):

Код


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;

Добавлено @ 11:06
Можно конечно попробовать помутить с тулбаром что-нибудь... но имхо и так сойдёт...

--------------------

С уважением, г-н Посол.

Rennigth

Дата 26.9.2005, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Спасибо, попробуем.

Это сообщение отредактировал(а) Rennigth - 26.9.2005, 15:42

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »