| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно добавить иконку в ;системный трей и обрабатывать событ. [D5, Win95/98, WinME, NT4, Win2k, WinXP]
MIRALATTE © (2002-06-07 11:31:00)Как можно через код добавить иконку моей программы в системный трей, и обрабатывать событие OnMouseClick?
Знаю, что этот вопрос уже стал очень популярным, но нигде нету нормального примера.
Смотрел в FAQ, есть функция:
function TaskBarAddIcon( hWindow : THandle; ID : Cardinal;
ICON : hicon; CallbackMessage : Cardinal; Tip : String ) : Boolean;
var
NID : TNotifyIconData;
begin
FillChar( NID, SizeOf( TNotifyIconData ), 0 );
with NID do begin
cbSize := SizeOf( TNotifyIconData );
Wnd := hWindow;
uID := ID;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
uCallbackMessage := CallbackMessage;
hIcon := Icon;
if Length( Tip ) > 63 then SetLength( Tip, 63 );
StrPCopy( szTip, Tip );
end;
Result := Shell_NotifyIcon( NIM_ADD, @NID );
end;
Но как ее вызвать, и как обрабатывать событие OnMouseClick?
Можно другой код, главное чтобы работал!
Очень буду благодарен за пример!
MIRALATTE (2002-06-07 15:00:00) [1]Thanks!
Song (2002-06-07 13:18:00) [2]http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1020241631
| |
