Área de Notificação do Windows

[Claudio Cardenas 0]

Olá pessoal, tenho uma duvida tipica de novato em programação e gostaria é claro de uma ajudinha para saná-la. Já tenho um pequeno aplicativo feito em Delphi e gostaria que o icone dele aparecesse na barra de tarefas do windows, na àrea de notificação para ser mais exato e tambem se possivel toda vez que o windows iniciasse ele carregasse meu aplicativo junto.Valeu galera :lol:

[Claudio Cardenas 0]

Pessoal é aqueles icones que aparecem na barra de tarefas do windows, de lado do relogio.

[Pezzin 0]

Tenho esse código mas nunca testei...

 

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,ShellAPI, Menus; const  wm_IconMessage = wm_User; type  TForm1 = class(TForm)  PopupMenu1: TPopupMenu;  Lloyd1: TMenuItem;  close1: TMenuItem;  procedure FormCreate(Sender: TObject);  procedure close1Click(Sender: TObject);  procedure FormDestroy(Sender: TObject);  procedure Lloyd1Click(Sender: TObject);   private  procedure IconTray (var Msg: TMessage);  message wm_IconMessage;  { Private declarations }  public  { Public declarations }  nid: TNotifyIconData;  end; var  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject);begin  // carrega o ícone inicial  Icon.Handle := LoadIcon (HInstance, 'MAINICON');  // preenche os dados da estrutura NotifyIcon  nid.cbSize := sizeof (nid);  nid.wnd := Handle;  nid.uID := 1; // Identificador do ícone  nid.uCallBAckMessage := wm_IconMessage;  nid.hIcon := Icon.Handle;  nid.szTip := 'LloydSoft';  nid.uFlags := nif_Message or  nif_Icon or nif_Tip;  Shell_NotifyIcon (NIM_ADD, @nid);end; procedure TForm1.IconTray (var Msg: TMessage);var  Pt: TPoint;begin  if Msg.lParam = wm_rbuttondown then  begin  GetCursorPos (Pt);// SetForegroundWindow (Handle);  PopupMenu1.Popup (Pt.x, Pt.y);  end;end; procedure TForm1.close1Click(Sender: TObject);beginform1.close;end; procedure TForm1.FormDestroy(Sender: TObject);begin  nid.uFlags := 0;  Shell_NotifyIcon (NIM_DELETE, @nid);end; procedure TForm1.Lloyd1Click(Sender: TObject);beginShowmessage('LloydSoft é D+'); {Menu Popup}end;end.