Форум: "Система";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
ВнизИконка в трее в 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 - разберешься, заодно и ограничение на запуск одной копии программы есть пример.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c