begin process at 2010 02 10 12:48:17
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

API

 > METTRE SON APPLICATION DANS LE SYSTEM TRAY LORSQU'ON LA MINIMISE

METTRE SON APPLICATION DANS LE SYSTEM TRAY LORSQU'ON LA MINIMISE


 Information sur la source

Note :
5,67 / 10 - par 3 personnes
5,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Niveau :Débutant Date de création :18/12/2002 Date de mise à jour :18/12/2002 21:59:29 Vu :5 598

Auteur : Butthead

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Ce code existe déja partiellement sur le site mais j'ai du passer quelques petites heures de recherche pour le faire fonctionner correctement.
Ce est décomposé en plusieurs actions
1. minimiser l'application et faire apparaitre une icone dans la barre des taches.
2. lorsqu'on doubleclique sur l'icone, l'appli se restaure et l'icone disparait.

Source

  • a coller apres le uses :
  • Const WM_MYMESSAGE=WM_USER+100;
  • ----------------------------------------------
  • variables globales :
  • notifyStruc:TNotifyIconData;
  • --------------------------------------------------------
  • //fonction qui minimize et cache la fenetre
  • //declaration
  • procedure Minimize(Sender: TObject);
  • //corps de la fonction :
  • procedure MACLASSE.Minimize(Sender: TObject);
  • begin
  • notifyStruc.cbSize:=SizeOf(notifyStruc);
  • notifyStruc.Wnd:=Handle;
  • notifyStruc.uID:=1;
  • NotifyStruc.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  • NotifyStruc.uCallbackMessage := WM_MYMESSAGE;
  • NotifyStruc.hIcon := WD_MAIN.Image1.Picture.Icon.Handle;//icone qui apparaitra dans le systray. composant Timage
  • NotifyStruc.szTip:='le texte a afficher lorsque on passe la souris devant l'icone';
  • Shell_NotifyIcon(NIM_ADD,@NotifyStruc);//ajoute la petite icône dans la barre des taches
  • application.minimize;
  • ShowWindow(Application.Handle, SW_HIDE); //application invisible de la barre de tâches.
  • end;
  • ----------------------------------------------------------
  • //fonction qui restaure l'application: (a coller dans les déclaration de fonctions de classe)
  • //declaration :
  • procedure TrayMessage(var Msg: TMessage); message WM_MYMESSAGE;
  • //corps de la fonction :
  • procedure MACLASSE.TrayMessage(var Msg: TMessage);
  • begin
  • if (Msg.lparam=WM_LBUTTONDBLCLK) then //double click sur l'icone
  • begin
  • application.restore;
  • ShowWindow(Application.Handle, SW_SHOW);
  • if (@NotifyStruc<>NIL) then
  • Shell_NotifyIcon(NIM_DELETE,@NotifyStruc); // supprime la petite icône de la barre des taches
  • end;
  • end;
a coller apres le uses : 
Const WM_MYMESSAGE=WM_USER+100;
----------------------------------------------
variables globales : 
notifyStruc:TNotifyIconData;
--------------------------------------------------------
//fonction qui minimize et cache la fenetre
//declaration
procedure Minimize(Sender: TObject);
//corps de la fonction :
procedure MACLASSE.Minimize(Sender: TObject);
begin
 notifyStruc.cbSize:=SizeOf(notifyStruc);
 notifyStruc.Wnd:=Handle;
 notifyStruc.uID:=1;
 NotifyStruc.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
 NotifyStruc.uCallbackMessage := WM_MYMESSAGE;
 NotifyStruc.hIcon :=    WD_MAIN.Image1.Picture.Icon.Handle;//icone qui apparaitra dans le systray. composant Timage
 NotifyStruc.szTip:='le texte a afficher lorsque on passe la souris devant l'icone';
 Shell_NotifyIcon(NIM_ADD,@NotifyStruc);//ajoute la petite icône dans la barre des taches
 application.minimize;
 ShowWindow(Application.Handle, SW_HIDE);    //application invisible de la barre de tâches.
end;
----------------------------------------------------------
//fonction qui restaure l'application: (a coller dans les déclaration de fonctions de classe)
//declaration : 
procedure TrayMessage(var Msg: TMessage); message WM_MYMESSAGE;

//corps de la fonction : 

procedure MACLASSE.TrayMessage(var Msg: TMessage);
begin
 if (Msg.lparam=WM_LBUTTONDBLCLK) then //double click sur l'icone
 begin
  application.restore;
  ShowWindow(Application.Handle, SW_SHOW);
  if (@NotifyStruc<>NIL) then
   Shell_NotifyIcon(NIM_DELETE,@NotifyStruc);  // supprime la petite icône de la barre des taches

 end;
end;



 Sources de la même categorie

Source avec Zip NEXTGENS -> UNITÉS DE TYPES ÉVOLUÉS NOUVELLE GÉNÉRATION (DE... par f0xi
Source avec Zip Source avec une capture AUTO-COMPLÉTION D'UN CONTRÔLE DE SAISIE par Bacterius
Source avec Zip CARDS GAME SDK 1.0.0.0 par f0xi
Source avec Zip Source avec une capture TRAYICON - VOTRE ICONE DANS LA BARRE DES TACHES par Bacterius
Source avec Zip Source avec une capture WINHIDER _ CACHER UN PROGRAMME DE L'ÉCRAN ET DE LA BARRE DE ... par soldier8514

Commentaires et avis

Commentaire de Delphiprog le 18/12/2002 23:05:36 administrateur CS

Pour ceux qui utilisent la bibliothèque RxLib, rappelons que le composant TRxTrayIcon réalise tout celà en ajoutant de nombresues fonctionnalités (voir démos fournies), le tout très simplement .

Pour info, Ray KONOPKA a publié un article intéressant sur le sujet sur le site Raize.com et plus précisément : http://www.raize.com/DevTools/DelphiByDesign/Articles/DbD50.htm
Les codes sources y sont disponibles.

Commentaire de djboom84 le 04/01/2003 12:55:59

Je viens de telecharger un logiciel de capture de texte et d'ecrans nomé espion mais il ne marche pas,j'aimerai avoir une reponse S.V.P

Commentaire de fidji le 10/01/2003 19:11:23

j'aimerai bien avoir la version complette
je suis relatuivment débutant et cela dépasse mes compétances
merci @+

Commentaire de noichi le 23/05/2004 10:36:38

j'ai du mal à utiliser cette source je n'est pas d'erreur pourtant l'application ne se place pas en systray. y'a t'il une source complete pour que je puisse la confronter à ce que j'ai fait

Merci

Commentaire de thonyboy le 13/01/2005 11:48:38

Bon j'ai enfin réussi a utiliser ce bout de code.

L'auteur a oublié de dire 2 ou 3 choses :

Il faut ajouter dans la section uses : ShellApi

Ensuite il faut intercepter l'evenement onminize de l'appli, afin d'appeler la procedure quand l'utilisateur réduit l'appli.
Pour cela il faut ajouter a l'évenement OnCreate de la form principale l'appel a la fonction minimize


procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMinimize := Minimize;
end;

Enfin, mais là ce n'estpas un oubli de l'auteur, si vous preferez simplement utiliser l'icone de l'appli vous pouvez remplacer la ligne :

NotifyStruc.hIcon :=WD_MAIN.Image1.Picture.Icon.Handle;//icone qui apparaitra dans le systray. composant Timage

Par

NotifyStruc.hIcon :=   LoadIcon(HInstance, 'MAINICON');

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,484 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales