Обновить System Tray

← →
MikeZ © (2002-08-31 17:39) [0]

Представьте себе, что некая программа была "убита", но ее значок в трее остался. Как обновить этот трей, что-бы значок исчез (как при наведении на этот значок мышкой). Перебирал WM_PAINT и т.п., но может быть, параметры неверны.

← →
MikeZ © (2002-08-31 23:56) [1]

Вроде про трей все знают, но как обновить - никто.
Или, может, вспомните?

← →
Ученик © (2002-08-31 23:59) [2]

Если очень надо, а так пользоваться не стоит :-)

function FindTrayWnd : HWnd;
var
szClassName : array[0..255] of Char;
begin
Result := FindWindow("Shell_TrayWnd", "");
if Result <> 0 then begin
Result := GetWindow(Result, GW_CHILD);
while Result <> 0 do begin
GetClassName(Result, szClassName, 255);
if StrIComp(szClassName, "TrayNotifyWnd") = 0 then
Exit
else
Result := GetWindow(Result, GW_HWNDNEXT)
end
end
end;

procedure RefreshTrayWnd;
var
i, j : Integer;
Rect : TRect;
SavePos : TPoint;
TrayWnd : HWnd;
begin
TrayWnd := FindTrayWnd;
if TrayWnd <> 0 then begin
GetCursorPos(SavePos);
ShowCursor(False);
GetWindowRect(TrayWnd, Rect);
i := Rect.Left + 5;
while i < Rect.Right do begin
j := Rect.Top + 5;
while j < Rect.Bottom do begin
SetCursorPos(i, j); Sleep(0);
Inc(j, 15)
end;
Inc(i, 15)
end;
SetCursorPos(SavePos.X, SavePos.Y);
ShowCursor(True)
end
end;

← →
MikeZ © (2002-09-01 16:57) [3]

Да, была у меня идея про передвижение курсора, но подумал, что это слишко не удобно. Но раз все советуют... ;-)))

← →
MikeZ © (2002-09-01 16:57) [4]

Да, была у меня идея про передвижение курсора, но подумал, что это слишком не удобно. Но раз все советуют... ;-)))

Еще вариант:
http://www.madshi.net, madKernel, полный доступ к Tray, останется только разобраться как там это происходит

Действительно, доступ - полнее некуда. Только осуществляется он на очень материальной основе :-(
А приведенный выше код и так работает на ура. Спасибо

Обновить System Tray Найти похожие ветки