MINIMISER UNE APPLICATION DANS LA ZONE DE NOTIFICATION

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ShellApi, StdCtrls;

//numéro du message envoyé à l'application par le système lors q'un événement souris sur l'icone
const wm_AppelMessage=1025+102;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Ouvrir1: TMenuItem;
    N1: TMenuItem;
    Quitter1: TMenuItem;
    Memo1: TMemo;
    procedure Ouvrir1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Quitter1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure Minimiser(Sender:TObject); //appelée lorsque l'on minimise la fenêtre
    procedure AjouteIcone(); //ajoute l'icone de la zone de notification
    procedure SupprimeIcone; //supprime l'icone de la zone de notification
    procedure WMAppelMessage(var msg : TMessage); message wm_AppelMessage; //appelée lors d'un événement souris sur l'icone
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//****************************************************************************
//                Crée l'icone dans la zone de notification
//****************************************************************************
procedure TForm1.AjouteIcone();
var
  Info:TNotifyIconData;
begin
  // cbSize doit contenir la taille de la structure
  Info.cbSize := SizeOf(Info);
  // Wnd doit contenir le Handle de la fenêtre qui recevra les messages de
  // notification d'évènement de la souris
  Info.Wnd    := Handle;
  // uID Numéro d'icone, c'est utile si plusieurs icones sont affichées en
  // simultané dans la barre des tâches. Car c'est ce numéro qui permettra
  // ensuite de modifier celle que l'on veut.
  Info.uID    := 1;
  // szTip contient le texte de l'info bulle affiché au dessus de l'icone
  Info.szTip  := 'Exemple de texte';
  // hIcon contient le handle de l'icône qui doit être affichée
  // Ici nous affichons l'icone de l'application
  Info.hIcon  := Application.Icon.Handle;
  // uCallBackMessage contient le message qui sera retourné à la fenêtre
  // donnée par Wnd quand un évènement de souris apparaît sur l'icone
  Info.uCallbackMessage := wm_AppelMessage;
  // uFlags doit contenir la liste des champs utilisés dans la structure
  // parmi les champs szTip,hIcon et uCallBackMessage
  Info.uFlags := NIF_TIP Or NIF_ICON Or NIF_MESSAGE;

  // Appel de la fonction API ajoutant l'icone
  Shell_NotifyIcon(NIM_ADD,@Info);
end;

//****************************************************************************
//                Supprime l'icone de la zone de notification
//****************************************************************************
procedure TForm1.SupprimeIcone;
var
  Info:TNotifyIconData;
begin
  Info.cbSize := SizeOf(Info);
  Info.Wnd    := Handle;
  Info.uID    := 1;
  Shell_NotifyIcon(NIM_DELETE,@Info);
end;

//****************************************************************************
// Minimise l'application en ajoutant l'icone dans la zone de notification et
//                en la supprimant de la barre des tâches
//****************************************************************************
procedure TForm1.Minimiser(Sender:TObject);
begin
  AjouteIcone();
  ShowWindow(Application.Handle, SW_HIDE); //masque la fenêtre de la barre des tâches
end;

//****************************************************************************
//  Fonction appelée lors d'un clic sur l'icone dans la zone de notification
//****************************************************************************
procedure TForm1.WMAppelMessage(var msg : TMessage);
var
  Curs:TPoint;
begin

  //double clique gauche on ouvre l'application
  if msg.LParam=WM_LBUTTONDBLCLK then
    Ouvrir1.Click()
  else
    //Clique droit de la souris on fait apparaitre le menu contextuel
    if msg.LParam=Wm_RButtonDown then
    begin
      SetForegroundWindow(Handle);
      GetCursorPos(Curs); //Récupère les coordonnées de la souris
      PopupMenu1.Popup(Curs.X,Curs.Y); //Ouvre le menu surgissant à l'emplacement spécfié par les coordonnees de la souris
      PostMessage(Handle,WM_NULL,0,0);
    end;
end;

//****************************************************************************
// Fait réapparaitre l'application lors du clic sur le bouton "ouvrir" du menu
//                   contextuel de la zone de notifiation
//****************************************************************************
procedure TForm1.Ouvrir1Click(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_SHOW); //affiche la fenêtre dans la barre des tâches
  Application.Restore; // restore la fenêtre
  SupprimeIcone(); // supprime l'icone
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //on associe l'action de minimiser l'application à notre fonction
  Application.OnMinimize := Minimiser;
end;

//****************************************************************************
//       Supprime l'icone de la zone de notification lors de la fermeture
//    de l'application. Si l'icone n'existe pas, la fonction ne produit rien
//****************************************************************************
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   SupprimeIcone();
end;

//****************************************************************************
//     Ferme l'application lors du clic sur le bouton "Quitter" du menu
//                  contextuel de la zone de notifiation
//****************************************************************************
procedure TForm1.Quitter1Click(Sender: TObject);
begin
  close;
end;

end.