| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Иконка в трее в Win2k [D6, Win2k]

Brutusss ©   (2003-03-20 11:29:00) 

Вот где-то статью читал про работу с иконкой в трее. Но под Win2k это оказалось неработоспособным. Подскажите плииз! Где можно нарыть статей про свертывание в трей в Win2000?

---

S.A.S   (2003-03-20 13:03:00) [1]

Посмотри исходники Borland Socket Server (..DelphiDir\Source\VCL\scktcrvr.dpr). В ScktMain.pas процедура AddIcon. Все везде работает. "if not NT351 then" - можешь убрать оставь :

with FIconData do
begin
cbSize := SizeOf(FIconData);
Wnd := Self.Handle;
uID := $DEDB;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon := Forms.Application.Icon.Handle;
uCallbackMessage := WM_MIDASICON;
StrCopy(szTip, PChar(Caption));
end;
Shell_NotifyIcon(NIM_Add, @FIconData);

Определишь: const WM_MIDASICON = $0400 + 1;

В общем посмотри ScktMain.pas - разберешься, заодно и ограничение на запуск одной копии программы есть пример.

---

Игорь Шевченко   (2003-03-20 11:42:00) [2]

FAQ

---

Наверх