Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Tray   Найти похожие ветки 

 
TURKDL   (2004-01-06 15:12) [0]

Подскажите!!Как можно спрятать иконку своей программы в трей?


 
kor@lex ©   (2004-01-06 15:27) [1]

procedure TForm1.CreateTrayIcon(n:Integer);
var nidata : TNotifyIconData;
begin
with nidata do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle; //HWND вашего окна (окна принимающего обратные сообщения)
uID := 1; // номер значка
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; //обрабатываемые флаги
uCallBackMessage := WM_MYICONNOTIFY;
hIcon := Application.Icon.Handle; // то откуда сдергивается значек это может быть и ImageList и т.д.
StrPCopy(szTip,Application.Title); // всплывающая строка, может быть любой string главное с нулевым окончанием
end;
Shell_NotifyIcon(NIM_ADD, @nidata); // добавление значка
end;
Для того чтобы удалить иконку из трея надо:
Shell_NotifyIcon(NIM_delete, @nidata);



Страницы: 1 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.029 c
3-43350
GogaStar
2004-02-16 13:52
2004.03.14
Как побороть


3-43293
radix
2004-02-12 09:42
2004.03.14
Firebird тормозит на Win2003 ?


7-43927
Mihin
2003-12-25 08:29
2004.03.14
Печать в текстовом режиме


1-43576
Fishka
2004-02-27 10:29
2004.03.14
Запуск внешней программы и ожидание ее результатов


1-43479
Makhanev A.S.
2004-03-02 15:00
2004.03.14
RichEdit: индексы начала/конца видимых символов