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

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

system tray [D7]

speed ©   (2004-11-04 10:41:00) 

Помогите, плиз. Нужно чтобы при сворачивании программы она постоянно висела в tray'e...
Заранее благодарен!

---

Sash   (2004-11-04 10:44:00) [1]

попробуй это

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;

---

Наверх