[cronenberg]

Код:

begin
   SysTray.UpdateInfo;
   try
    for b := 0 to SysTray.IconCount-1 do
     if (pos('Текст tip чужой программы', SysTray.IconItem[b].szTip)=1) then
      begin
        hMenuHandle:=GetMenu(SysTray.IconItem[b].hWnd);
      end;
   except
end;

Админ: Пользуемся тегами для оформления кода!