Systen Tray Refresh - как это сделать?

← →
Smok_er (2003-03-15 14:12) [0]

Собственно, сабж.
Нужно для того, чтобы после TerinateProcess убрать иконку приложения с трея.

← →
Nimbus © (2003-03-17 17:44) [1]

Вот так:

const
ISize = 16;
var
x,y,TrW,TrH: Integer;
TbWnd: HWnd;
TrRect: TRect;
begin
TbWnd := FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd",nil),0,"TrayNotifyWnd",nil),0,"ToolbarWindow32",nil);
if GetClientRect(TbWnd,TrRect) then
begin
TrW := TrRect.Right - TrRect.Left;
TrH := TrRect.Bottom - TrRect.Top;
x := 1;
while x < TrW do
begin
y := 1;
while y < TrH do
begin
SendMessage(TbWnd,WM_MOUSEMOVE,0,x or (y shl 16));
inc(y,ISize);
end;
inc(x,ISize);
end;
end;
end.

← →
Smok_er (2003-03-18 17:33) [2]

Большое спасибо!
После отправки сообщения только заметил, как много ошибок сделал. Спешил просто очень.

Systen Tray Refresh - как это сделать? Найти похожие ветки