як прибрати іконку з системного трея
kol-прога в треї закінчила (або її закінчили) роботу, а іконка залишилася
(Забирається якщо ткнути в неї мишей) .Як прибрати іконку програмно.
Інтенсивна робота коротких прог-і іконок в треї неміряно-недобре.
kol170 delphi5,7 win98
Active. Але якщо залишається, значить, на виході відбувається щось на зразок access violation.
TrayIcon.Activate: = False; -це не підходить.
Треба з іншого процесу (програми) .На цей момент мені відомо тільки якась програма залишила іконку в трее.Согласен що некоректно, але такі условія.Все з моїми сирцю, але не хотілося б переробляти, треба швидше, тим більше що прога, залишає іконку іноді завершує роботу з ран тайм еррор і цей дефект
підчищає інша прога.
Заздалегідь вдячний.
Чужий програми? Якщо зробите, скажіть, як. Мені ось інтерес кілька зворотне завдання: деякі досить розумні програми не вміє відновлювати свою іконку в треї при падінні провідника.
вийшло так
procedure TForm1.Button1Click (Sender: PObj);
var
# XA0; hWnd. THandle;
# XA0; R. TRect;
# XA0; I. Integer;
begin
# XA0; hWnd: = FindWindow ( "Shell_TrayWnd", NIL);
# XA0; hWnd: = FindWindowEx (hWnd, 0, "TrayNotifyWnd", NIL);
# XA0; GetWindowRect (hWnd, R);
# XA0; for I: = 1 to R.Right - R.Left do
# XA0; # XA0; # XA0; SendMessage (hWnd, WM_MOUSEMOVE, 0, I + (R.Bottom - R.Top) div 2 shl 16);
end;
Пам'ять: 0.72 MB
Час: 0.071 c