Daemon
Le Roi Soleil | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Буду писать на Делфях. Переведешь потом во что хочешь.
1. Определяешь тип:
TNotifyIconData = record
cbSize: DWord;
Wnd: HWND;
uID: Uint;
uFlags: Uint;
uCallbackMessage: Uint;
hIcon: HIcon;
szTip: array [0..63] of AnsiChar;
end;
Затем у тебя есть главная форма. Определяешь ее создание так:
constructor TfrmMain.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
FNotifyIconData.cbSize:= SizeOf(TNotifyIconData);
FNotifyIconData.hIcon:= Application.Icon.Handle;
StrPCopy(FNotifyIconData.szTip,Application.Title);
FNotifyIconData.uCallbackMessage:= TRAY_MSG;
FNotifyIconData.uFlags:= NIF_MESSAGE or NIF_ICON or NIF_TIP;
FNotifyIconData.uID:=1;
FNotifyIconData.Wnd:= frmMain.Handle;
Shell_NotifyIcon(NIM_ADD,@FNotifyIconData);
end;
(В данном случае главная форма СРАЗУ сворачивается в SysTray и необходимо сделать еще в проекте Application.ShowMainForm:= False)
Что не понятно - пиши т.к. это в кратце. Но у меня все работает.
А вообще посмотри в "Делфи 5 Руководство разработчика" - великая книга!
----------
Каждый имеет то, что он заслуживает |
|
есть где нить статьи или можешь рассказать поподробнее но уже и за это стпасибо! 
