Подскажите как DELPHI … исполняемую программу поместить в трей ?

Подскажите как DELPHI … исполняемую программу поместить в трей ?Подскажите как DELPHI … исполняемую программу поместить в трей ?

[YAS]

В пакете RX есть специальный компонент для этого. Вечером выложу пример использования.

Можешь попробовать так:
const
WM_TRAYMSG = WM_USER+1;
....


type
TForm1 = class(TForm)
......
public
IconData: NotifyIconData;
procedure WMTrayMsg(var msg:TMsg); message WM_TRAYMSG;
end;
.......
procedure TForm1.FormCreate(Sender: TObject);
begin
.....
//------------------
fillchar(IconData,Sizeof(IconData),0);
IconData.cbSize:=Sizeof(IconData);
IconData.Wnd:=Handle;
IconData.hIcon:=Loadicon(HInstance,'MAINICON');
IconData.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
IconData.szTip:='Chat';
IconData.uCallbackMessage:=WM_TRAYMSG;
Shell_NotifyIcon(NIM_ADD,@IconData);
//----------------------
....
end;

procedure TForm1.WMTrayMsg(var msg: TMsg);
var
p:tpoint;
i,g:integer;
begin
case msg.wParam of
WM_LBUTTONDOWN:
begin

// Твой код

end;
WM_RBUTTONDOWN:
begin

// твой код

end;
end;
end;

P.S.
Выдирал из своей проги - если что-то забыл или не поидет
- сообщай

[helldomain]

Privet. Wot tebe spisok tray komponentow pod delhpi.
http://www.torry.net/trayicons.htm

[YAS]

вот и обещанный пример

А что за компонент …. RxTrayIcon …..?
Мож подсказать ?

[YAS]

Kostet
Будь внимательнее! Я уже писал, что компонент RxTrayIcon находится в составе пакета Rx.
http://www.torry.net/huge.htm

Спасибо за помощь …………… !!!!!!
Все получилось !!!))))

[YAS]

Ну, раз все остались довольны, тему можно закрыть.

[nikoTEEN]

Поставим вопрос подругому. Как программу убрать из панели задач. В трей мне её не наду сувать. Главно чтоб в панели небыло, когда она запущена.

[helldomain]

Pered tem kak snimat, nado postawit wopros, a kak ti ee tuda zagnal...

[nikoTEEN]

helldomain
????

nikoTEEN
ээээ..... может, это диспетчер задач?....

[helldomain]

Nikoteen, chto-to woobsche ne wjehal, chto ti hochesh iz treya ubrat.

[nikoTEEN]

helldomain
мне не из трея нужно убрать, а с панели задач.

[RaZEr]

ShowWindow(Application.Handle,SW_HIDE);

[nikoTEEN]

RaZEr
пасибо. это то, что нужно. лови голос =))

[helldomain]

Hmm... Razer, a eto ne peredaetsya formam prilojeniya?

[nikoTEEN]

да ну и пофик, даже если передается. мне же лучше =)

[helldomain]

Gi. Prikolist.