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

Убить эту чёртову иконку в трее   Найти похожие ветки 

← →
Smart Crazy   (2004-09-17 18:17) [0]

Как уничтожить иконку в трее ЧУЖОГО приложения. Проблема - когда процесс, имеющий иконку в трее, "погибает" она там остаётся, пока курсором не ткнёшь.

---

← →
Ученик   (2004-09-17 22:44) [1]

Может что-то изменилось

function FindChild(aParent: HWnd; aClassName: PChar): HWnd;
var
 Child: HWnd;
 szClassName: array[0..255] of Char;
begin
 Child := GetWindow(aParent, GW_CHILD);
 while Child <> 0 do begin
   if GetClassName(Child, szClassName, 255) > 0 then begin
     if StrIComp(szClassName, aClassName) = 0 then
       Result := Child
     else
       Result := FindChild(Child, aClassName);
     if Result <> 0 then Exit
   end;
   Child := GetWindow(Child, GW_HWNDNEXT)
 end;
 Result := 0
end;

function FindTrayWnd : HWnd;
var
 ToolbarWnd: HWnd;
begin
 Result := FindWindow("Shell_TrayWnd", "");
 if Result <> 0 then begin
   Result := FindChild(Result, "TrayNotifyWnd");
   if Result <> 0 then begin
     ToolbarWnd := FindChild(Result, "ToolbarWindow32");
     if ToolbarWnd <> 0 then Result := ToolbarWnd
   end
 end
end;

procedure RefreshTray;
var
 i, j : Integer;
 Rect : TRect;
 TrayWnd : HWnd;
begin
 TrayWnd := FindTrayWnd;
 if TrayWnd <> 0 then begin
   GetWindowRect(TrayWnd, Rect);
   i := Rect.Left + 5;
   while i < Rect.Right do begin
     j := Rect.Top + 5;
     while j < Rect.Bottom do begin
       SendMessage(TrayWnd, WM_MOUSEMOVE, 0, MakeLong(i - Rect.Left, j - Rect.Top));
       Inc(j, 10)
     end;
     Inc(i, 10)
   end
 end
end;

---

← →
Smart Crazy   (2004-09-18 13:57) [2]

Попробую

---

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

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



Память: 0.45 MB
Время: 0.052 c