Fórum skin ou template ?? #287162

const
  wm_IconMessage = wm_User;

NID : TNotifyIconData; // <- esta linha

procedure TForm1.FormCreate(Sender: TObject);
begin
  nid.cbSize := sizeof(nid); // define o tamanho de Nid
  nid.wnd := Handle; // define que Nid pertence ao Form1.Handle
  nid.uID := 1; // código do ícone
  nid.uCallBAckMessage := wm_IconMessage;
  nid.hIcon := Form1.Icon.Handle; // define que o ícone a ser mostrado é o do Form1
  // obs.: quando se trata de uma propriedade do form em que estamos

  // trabalhando, podemos omitir o nome dele, por exemplo:
  // nid.hIcon := Icon.Handle; -> sem "Form1.", também está correto.
  nid.szTip := ´Exemplo de TrayIcon´+#13+´Teste segunda Linha´+13+´Que tal mais uma linha?´;
  // define o tamanho do Hint
  nid.uFlags := nif_Message or nif_Icon or nif_Tip; // especifica o que será modificado
  Shell_NotifyIcon (NIM_ADD, @nid); // envia mensagem ao Windows para atualizar o TrayIcon
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  nid.uFlags := 0;
  Shell_NotifyIcon (NIM_DELETE, @nid);
end;