Код:
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;
Админ: Пользуемся тегами для оформления кода!