Minimiser une application dans la zone de notification

Soyez le premier à donner votre avis sur cette source.

Vue 16 122 fois - Téléchargée 1 571 fois

Description

Ce code montre tout simplement comment faire pour minimiser une application dans la zone de notification. La fenêtre disparait alors de la barre des tâches et une icone apparait à coté de l'horloge. Si vous cliquez sur cette icone avec le bouton droit, un menu contextuel apparait.

Il existe plusieurs composants qui permettent de gérer ces étapes. Mais comme ce n'est pas compliqué, c'est toujours mieux de le coder soi-même pour une meilleure compatibilité.

Source / Exemple :


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.

Conclusion :


Comme japee me l'a fait remarquer, les fonctions ne sont pas de moi. Je les ai trouvées sur différents tutoriels mais je n'avais pas encore trouvé de code tout fait pour montrer le fonctionnement. De plus, aucun tutoriel ne prévoit que l'application se minimise automatiquement dans la zone de notification.

Maintenant que je connais l'auteur original de la majorité du code : Merci à Nono40

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_couf

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.