servico con icono

[fox]

Estoy implementando un servicio que se conecta con otros ordenadores para actualizar una base de datos, pero no consigo enseñar un icono al lado del relog. ¿como puedo hacer esto?.
El servicio esta creado e instalado y funciona bien pero no logro que saque el icono y me gustaria hacerlo y que este icono cambie cuando tenga algo para actualizar.
Gracias, Un saludo.

[juanlaplata]

Declaraciones

Código Delphi [-]
  private
    { Private declarations }
    IconData: TNewNotifyIconData;
    procedure SysTrayIconMsgHandler(var Msg: TMessage); message TRAY_CALLBACK;
    procedure AddSysTrayIcon;
    procedure ShowBalloonTips(titulo,mensage:string;Icono:integer);
    procedure DeleteSysTrayIcon;

Este procedimiento crea el icono en la bandeja del sistema y muchas cosas mas que no se demasiado.

Código Delphi [-]
procedure TForm1.AddSysTrayIcon;
begin
  IconData.cbSize := SizeOf(IconData);
  IconData.Wnd := AllocateHWnd(SysTrayIconMsgHandler);
  {SysTrayIconMsgHandler is then callback message' handler}
  IconData.uID := 0;
  IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  IconData.uCallbackMessage := TRAY_CALLBACK;   //user defined callback message
  IconData.hIcon := Application.Icon.Handle;    //an Icon's Handle
  IconData.szTip := '   Titulo de la Aplicacion   ';
  if not Shell_NotifyIcon(NIM_ADD, @IconData) then
    ShowMessage('add fail');
end;

Este procedimiento maneja tanto ballon message como popupMenu en dicho icono, clicks derecho izq, etc

Código Delphi [-]
procedure TForm1.SysTrayIconMsgHandler(var Msg: TMessage);
var Pt: TPoint;
begin
  case Msg.lParam of
    WM_MOUSEMOVE:;
    WM_LBUTTONDOWN:;
    WM_LBUTTONUP:
        begin
        GetCursorPos(Pt);
        SetForeGroundWindow(Application.Handle);
        Application.ProcessMessages;
        PopupMenu1.Popup(Pt.X,Pt.Y);
        end;
    WM_LBUTTONDBLCLK:;
    WM_RBUTTONDOWN:;
    WM_RBUTTONUP:
        begin
        GetCursorPos(Pt);
        SetForeGroundWindow(Application.Handle);
        Application.ProcessMessages;
        PopupMenu1.Popup(Pt.X,Pt.Y);
        end;
    WM_RBUTTONDBLCLK:;
    //followed by the new messages
    NIN_BALLOONSHOW:;
    {Sent when the balloon is shown}
//  ShowMessage('NIN_BALLOONSHOW');
    NIN_BALLOONHIDE: ;
    {Sent when the balloon disappears?Rwhen the icon is deleted,
    for example. This message is not sent if the balloon is dismissed because of
    a timeout or mouse click by the user. }
//  ShowMessage('NIN_BALLOONHIDE');
    NIN_BALLOONTIMEOUT:;
    {Sent when the balloon is dismissed because of a timeout.}
//  ShowMessage('NIN_BALLOONTIMEOUT');
    NIN_BALLOONUSERCLICK:;

    {Sent when the balloon is dismissed because the user clicked the mouse.
    Note: in XP there's Close button on he balloon tips, when click the button,
    send NIN_BALLOONTIMEOUT message actually.}
//    ShowMessage('NIN_BALLOONUSERCLICK');
  end;
end;

Proc. para eliminar el icono

Código Delphi [-]
procedure TForm1.DeleteSysTrayIcon;
begin
  DeallocateHWnd(IconData.Wnd);
  if not Shell_NotifyIcon(NIM_DELETE, @IconData) then
    ShowMessage('delete fail');
end;

En el create del form

Código Delphi [-]
self.AddSysTrayIcon;

En el Destroy

Código Delphi [-]
self.DeleteSysTrayIcon;

Obviamente al no saber mucho de todo esto no lo idee yo, lo encontre buscando "agregar icono en bandeja de sistema".
Espero te sirva, suerte.

[[seoane]]

El problema es que el servicio y el usuario no comparten el mismo escritorio, de hecho lo normal es que el servicio se inicie incluso antes de que el usuario inicie sesión.

Existen varias soluciones, la mas simple, pero también la mas chapucera, es indicar en las opciones del servicio que puede "interactuar con el escritorio". Lo malo de esta opción es que si intentas colocar el icono antes de que el usuario inicie su sesión, te encontraras que no hay ninguna barra de tareas, así que debes tener en cuenta cuando el usuario abre y cierra sesión o cuando se cambia de usuario (son barras de tareas diferentes). Es decir un lío, además es muy posible que no te funcione en vista, ya que según tengo entendido no permite que los servicios interactúen con el escritorio.

La otra solución, la mas usada, es crear otro programa que se ejecute como un programa normal y que sera el encargado de mostrara el icono y comunicarse con el servicio por medio de sockets, tuberías, códigos de control, etc ... .

[fox]

Perdon por la tardanza.
He estado probando todo lo que me dijisteis, y tambien algo mas y encontre algo que hace justo lo que necesito, en las librerias rx el rxtrayicon. Funciona a las mil maravillas.
Mucas gracias por vuestra ayuda.