Discussion :

[jeanmy]

Bonjour,

Je voudrais pouvoir "icôniser mon application"

C'est a dire : En cliquant sur un bouton, je souhaite qu'un icône apparaît dans la bare des taches mes vers l'heure.

Je ne peux pas faire un service car je n'ai pas le droit administrateur sur le pc ou je dois installé application

[Linkin]

Et dans un français correct?

Sinon, j'utilise le composant TCoolTrayIcon de CoolDev.

[jeanmy]

je veins de trouver une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ShellAPI, ExtCtrls;
 
Const WM_MYMESSAGE=WM_USER+100; //juste en dessous des uses
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
    procedure TrayMessage(var Msg: TMessage); message WM_MYMESSAGE;
  public
    { Déclarations publiques }
    IconData : TNotifyIconData; 
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//mettez ce code dans formcreate 
  IconData.cbSize:=SizeOf(IconData);
  IconData.Wnd:=Handle;
  IconData.uID:=1;
  IconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  IconData.uCallbackMessage := WM_MYMESSAGE;
  IconData.hIcon := Form1.Image1.Picture.Icon.Handle;//icone qui apparaitra dans le systray.
  IconData.szTip:='Toto : pas bien jeanmy';
  Shell_NotifyIcon(NIM_ADD,@IconData);//ajoute la petite icône dans la barre des taches
 
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Visible:=False;
end;
 
 
procedure TForm1.TrayMessage(var Msg: TMessage);//procedure pour les action sur l'icone
begin
if (Msg.LParam=WM_RBUTTONDOWN)
  then form1.Visible:=True;
if (Msg.LParam=WM_LBUTTONDOWN)
  then form1.Visible:=True;
end;
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (@IconData<>NIL) then 
Shell_NotifyIcon(NIM_DELETE,@Icondata); // supprime la petite icône de la barre des taches 
end;
 
end.

Merci a tous quand même

[LadyWasky]

Dans la RXLib, il y a un composant pour ça.
On le retrouve dans le JVCL (Jedi Library) sous le nom de TJvTrayIcon (onglet de la palette de composants JV Non-Visual, si tu l'as installé)

C'est gratuit et ça marche très bien.

[LadyWasky]

Et tu as trouvé une réponse pendant que je rédigeais la mienne.

Elle est sympa ta solution

[Linkin]

Apparemment il y a plusieurs composants qui s'appellent TCoolTrayicon. Je parlais de ce TCoolTrayIcon (gratuit):

http://www.dukeweb.co.uk/delphi/freeware.shtml#2