Иконка в трее в Win2k

← →
Brutusss (2003-03-20 11:29) [0]

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

← →
Игорь Шевченко © (2003-03-20 11:42) [1]

FAQ

← →
S.A.S (2003-03-20 13:03) [2]

Посмотри исходники 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 - разберешься, заодно и ограничение на запуск одной копии программы есть пример.

Иконка в трее в Win2k Найти похожие ветки