![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как поместить в трэй свою программу?? [D7, WinXP]
LEV'S © (2005-12-24 15:37:00)Помогите пожалуйста поместить программу в трэй
Джо (2005-12-26 14:38:00) [1][5] vidiv © (26.12.05 08:49)
> исчерпывающий агрумент.
В смысле?
vidiv (2005-12-26 08:49:00) [2]
> Джо © (24.12.05 18:42) [3]
> Схема:
>
> const
> WM_MYTRAYMESSAGE = WM_USER + 666;
>
> var
> FNotifyIconData: _NOTIFYICONDATA;
> ...
> FNotifyIconData.cbSize := SizeOf(_NOTIFYICONDATA);
> FNotifyIconData.Wnd := AWindowHandle;
> FNotifyIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
>
> FNotifyIconData.uID := IconID;
> FNotifyIconData.uCallbackMessage := WM_MYTRAYMESSAGE;
> FNotifyIconData.hIcon:= <Handle иконки>;
> FNotifyIconData.szTip := 'Hint';
> ...
> // показываем
> Shell_NotifyIcon(NIM_ADD,@FNotifyIconData);
> // скрываем
> Shell_NotifyIcon(NIM_DELETE,@FNotifyIconData);
>
> В оконной процедуре ловим наше сообщение WM_MYTRAYMESSAGE.
> В LParam будет находится WM_RBUTTONDOWN, WM_LBUTTONDOWN
> или WM_MOUSEMOVE в зависимости от того, что произошло с
> твоей иконкой в области уведомлений.
исчерпывающий агрумент.
и еще uses shellapi забыл.
П.С.
В самом деле проще компонент скачать.
azl (2005-12-25 13:52:00) [3]RxLybrary - RxTrayIcon
Джо (2005-12-24 18:42:00) [4]Схема:
const
WM_MYTRAYMESSAGE = WM_USER + 666;
var
FNotifyIconData: _NOTIFYICONDATA;
...
FNotifyIconData.cbSize := SizeOf(_NOTIFYICONDATA);
FNotifyIconData.Wnd := AWindowHandle;
FNotifyIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
FNotifyIconData.uID := IconID;
FNotifyIconData.uCallbackMessage := WM_MYTRAYMESSAGE;
FNotifyIconData.hIcon:= <Handle иконки>;
FNotifyIconData.szTip := 'Hint';
...
// показываем
Shell_NotifyIcon(NIM_ADD,@FNotifyIconData);
// скрываем
Shell_NotifyIcon(NIM_DELETE,@FNotifyIconData);
В оконной процедуре ловим наше сообщение WM_MYTRAYMESSAGE. В LParam будет находится WM_RBUTTONDOWN, WM_LBUTTONDOWN или WM_MOUSEMOVE в зависимости от того, что произошло с твоей иконкой в области уведомлений.
Antonn (2005-12-24 17:02:00) [5]LEV'S (24.12.05 15:37)
скачать компонент, типа CoolTray. на пример отсюда: http://www.torry.net/
или cходить на http://www.delphiworld.narod.ru/
Anatoly Podgoretsky (2005-12-24 16:46:00) [6]Там нет программ.