Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Мигающая иконка в System Tray

Автор: heskey 24.5.2005, 16:53

Привет всем...собственно задача ясна из темы smile

Иконку в Трэй поместил..надо что б она мигала там..как при сообщении из ISQ smile

Жду ответов!
Добавлено @ 16:54
ICQ..черт неграмотный smile

Автор: Snowy 24.5.2005, 17:04

Смотря чем ты эту иконку туда засунул.
В любом случае задача сводится к замене иконки на другую с определенным интервалом времени.
Смотри в свой инструмент, ищи, как сделать замену иконки.
Естественно понадобится 2 варианта иконки - обычная и сигнальная.

Автор: heskey 24.5.2005, 17:07

Код


procedure TForm1.CreateTrayIcon(n:Integer);
var nidata : TNotifyIconData;
begin
 with nidata do
  begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := Self.Handle;
   uID := 1;
   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
   uCallBackMessage := WM_MYICONNOTIFY;
   hIcon := Application.Icon.Handle;
   StrPCopy(szTip,Application.Title);
  end;
  Shell_NotifyIcon(NIM_ADD, @nidata);
end;

засунул так..тока зачем мне 2 варианта..у меняодна иконка..а при мигании она же и остается..или ты не то имеешь в виду?

Автор: _hunter 24.5.2005, 17:16

не знаю как ICQ, но миранда показывает две иконки...
или что ты понимаеш под миганием?

Автор: Quadr0 24.5.2005, 22:53

Тот же RXTrayIcon позволяет это сделать. Создаёшь иконку и "пустышку" и засовываешь в RxTrayIcon.

Автор: Rouse_ 24.5.2005, 23:17

Попробуй вот это: http://rouse.front.ru/fwtray.zip
http://rouse.front.ru/fwtraybig.jpg
Может и подойдет...

Автор: Marriage 25.5.2005, 09:00

А для какой дельфи эта компанента ???
НА 5-ю как я понимаю ее не поставишь ...

Автор: Rouse_ 25.5.2005, 15:33

Ну я ее разрабатывал на шестерке, проверял на семерке и 2005-ом все работает...

Автор: Гость_BASIL 26.5.2005, 17:25

То, что надо есть в пакете Raize Components v3.10 компонент TRzTrayIcon. Кидаешь на него ImageList с нужными иконками и все. Можно заставить последовательно менять не только две, а и большее число иконок. Интервал смены задаешь сам.
У меня работает нормально.

p.s. Heskey, помнится, ты говорил, что у тебя есть что-то по пометке кластера винта как неперемещаемого (или BADа), Выложи в мой вопрос, плз.