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

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

Системный трей [D7, XP]


Страницы:   1 2 3 4

DimOk ©   (2007-08-29 09:39:00) 

Добрый день всем. Подскажите пожалусто как программу свернуть в системный трей.
Заранее всем благодарен.


Anatoly Podgoretsky   (2007-08-29 10:08:00) [61]

Ну наконец то, а то я думал, что с выходом Д2006 эти вопросы канули в небытие.


DimOk   (2007-08-29 10:08:00) [62]


> abfComponents ищи

Нашел, скачал, установил. Спасибо :)


DimOk   (2007-08-29 10:06:00) [63]


>  NID: TNotifyIconData;

[Error] MainFormUnit.pas(535): Undeclared identifier: 'TNotifyIconData'
На этапе компиляции


DimOk   (2007-08-29 09:54:00) [64]


> alshtam

Спасибо :)


alshtam   (2007-08-29 09:53:00) [65]

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;


DimOk   (2007-08-29 09:52:00) [66]


> abfComponents ищи

А без этого....?


Человек   (2007-08-29 09:50:00) [67]

abfComponents ищи


DimOk   (2007-08-29 09:47:00) [68]


> Я ожидал в другой ветке :) Ищи Запуздырить в трей

Оригинально...... :)


iXT   (2007-08-29 09:44:00) [69]

Я ожидал в другой ветке :) Ищи Запуздырить в трей


Страницы:   1 2 3 4

Наверх

Титульная страница Поиск, карта сайта Написать письмо