| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как программно перерисовать всё содержимое SysTray [D5, Win2k]

Nimbus ©   (2002-07-11 00:08:00) 

Подскажите, plz, кто сталкивался с данной проблемой -
убиваю чужую прогу, а иконка от неё остаётся в Tray, пока над ней не появится указатель мыши (как сделать Refresh или что-то типа этого всей области SysTray сразу после "убийства проги").
Заранее благодарю.

---

Nimbus   (2002-07-16 14:16:00) [1]

Спасибо огромное!Работает на 100%! Если что - в долгу не останусь. :-)

---

paul_shmakov   (2002-07-12 13:19:00) [2]

так можно симулировать движение мышки :) вот только что попробовал под w2k.

program refresh;

uses Windows, Messages;

procedure RefreshTray;
const
IconSize = 16;
var
TrayWnd: HWnd;
TrayNotifyWnd: HWnd;
ToolbarWnd: HWnd;
X, Y, TrayWidth, TrayHeight: Integer;
TrayRect: TRect;
begin
TrayWnd := FindWindow("Shell_TrayWnd", nil);
if TrayWnd <> 0 then
begin
TrayNotifyWnd := FindWindowEx(TrayWnd, 0, "TrayNotifyWnd", nil);
if TrayNotifyWnd <> 0 then
begin
ToolbarWnd := FindWindowEx(TrayNotifyWnd, 0, "ToolbarWindow32", nil);
if ToolbarWnd <> 0 then
begin
if GetClientRect(ToolbarWnd, TrayRect) then
begin
TrayWidth := TrayRect.Right - TrayRect.Left;
TrayHeight := TrayRect.Bottom - TrayRect.Top;

X := 1;
while X < TrayWidth do
begin
Y := 1;
while Y < TrayHeight do
begin
SendMessage(ToolbarWnd, WM_MOUSEMOVE, 0, X or (Y shl 16));
Inc(Y, IconSize);
end;

Inc(X, IconSize);
end;
end;
end;
end;
end;
end;

begin
RefreshTray;
end.


---

Наверх