Скачать: CL | DM;

как убрать иконку из системного трея   Найти похожие ветки 

← →
DSP ©   (2003-06-20 21:36) [0]

kol-прога в трее закончила(или ее закончили) работу,а иконка осталась
(убирается если ткнуть в нее мышей).Как убрать иконку программно.
Интенсивная работа коротких прог -и иконок в трее немеряно-нехорошо.
kol170 delphi5,7 win98

---

← →
BaRToV   (2003-06-20 22:20) [1]

TrayIcon.Activate := False;

---

← →
Vladimir Kladov   (2003-06-21 14:34) [2]

Active. Но если остается, значит, на выходе происходит что-то вроде access violation.

---

← →
DSP ©   (2003-06-23 08:50) [3]

TrayIcon.Activate := False; -это не подходит.
Надо из другого процесса(программы).На этот момент мне известно только какая программа оставила иконку в трее.Согласен что некорректно,но таковы условия.Все с моими сырцами,но не хотелось бы переделывать,надо побыстрее,тем более что прога, оставляющая иконку иногда завершает работу с ран тайм еррор и этот дефект
подчищает другая прога.
Заранее благодарен.

---

← →
Vladimir Kladov   (2003-06-23 21:04) [4]

Чужой программы? Если сделаете, скажите, как. Мне вот интересена несколько обратная задача: некоторые довольно умные программы не умеет восстанавливать свою иконку в трее при падении проводника.

---

← →
dsp ©   (2003-07-12 13:37) [5]

получилось так
procedure TForm1.Button1Click(Sender: PObj);
var
  hWnd : THandle;
  R : TRect;
  I : Integer;
begin
  hWnd := FindWindow( "Shell_TrayWnd", NIL );
  hWnd := FindWindowEx( hWnd, 0, "TrayNotifyWnd", NIL );
  GetWindowRect( hWnd, R );
  for I := 1 to R.Right - R.Left do
      SendMessage( hWnd, WM_MOUSEMOVE, 0, I + (R.Bottom - R.Top) div 2 shl 16 );
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c