Ver Mensaje Individual
  #1  
Antiguo 17-01-2012
pape19 pape19 is offline
Miembro
 
Registrado: jul 2010
Posts: 96
Reputación: 16
pape19 Va por buen camino
Minimizar aplicación al Área de Notificación de Windows

Buenas, les comento mi problema.

Necesito que mi aplicación se ejecute al iniciar Windows, esto ya lo hace. Sin embargo, luego de ejecutarse, necesito que se minimice al área de notificación de windows(a la izquierda de la hora). Probé de varias maneras, pero se minimiza a la barra de tareas y esto no me sirve.

La aplicación, si apretamos el botón minimizar del formulario, SI se minimiza al área de notificación por medio de este procedimiento:

Código Delphi [-]
procedure TPrincipal.Minimizar;
begin
  with IconData do
  begin
    cbSize := sizeof( IconData );
    Wnd := Handle;
    uID := 100;
    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage := WM_USER + 1;

    // Usamos de icono el mismo de la aplicación
    hIcon := Application.Icon.Handle;

    // Como Hint del icono, el nombre de la aplicación
    StrPCopy( szTip, Application.Title );
  end;

  // Ponemos el icono al lado del reloj
  Shell_NotifyIcon( NIM_ADD, @IconData );

  // Ocultamos el formulario
  Hide;
end;


procedure TPrincipal.WMSysCommand( var Msg: TWMSysCommand );
begin
  if Msg.CmdType = SC_MINIMIZE then
    Minimizar
  else
    DefaultHandler( Msg );
end;

Lo que no puedo lograr es que esto que realiza al apretar el botón, se realice de manera automática cuando inicia la aplicación al iniciar el sistema. Alguna solucion??? Gracias!!!
Responder Con Cita