Discussion :

[oli82]

Bonjour,

J'ai fait une petite application avec Delphi 7.
Cette application se compose d'une fenêtre qui affiche des infos concernant le pc.

Lorsque l'application est en route, elle est présente dans la barre des taches.
J'aurais voulu savoir si c'était possible de réduire l'application pour qu'elle s'affiche près de l'heure dans la barre des taches. (Comme la fenêtre MSN par exemple).

Si quelqu'un pourrais me dire si c'est possible de faire cela avec delphi ?

Merci d'avance.

[Pedro]

Salut
Réponses dans la
http://delphi.developpez.com/faq/?pa...n#iconesystray
et
http://delphi.developpez.com/faq/?pa...querapplibarre

[cfalcot]

Bonjour,

J'essaie d'utiliser les procedures données dans la source fournie mais je ne comprend pas comment la procedure MessageIcone se declanche. Lorsque j'adapte le tout a mon code, il ne se passe rien quand je click sur l'icone...

Merci.

[denokan]

il existe plusieurs composants déjà tout fait http://www.torry.net/quicksearchd.ph...tray&Title=Yes

[anapurna]

salut

voila un exemple complet de l'utilisation d'une
systray avec en prime un demarage automatique au relancement de ta machine si tu le desir et une modification de design du menu popup

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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
unit UMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Menus,
  ShellAPI,StdCtrls;
 
Const
  wm_GetTraitement = WM_USER + 100;
  WM_ICONTRAY =  WM_USER + 1;
 
type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Mnu: TPopupMenu;
    HideForm: TMenuItem;
    ShowForm: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    procedure CheckBox1Click(Sender: TObject);
    procedure HideFormClick(Sender: TObject);
    procedure ShowFormClick(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Exit1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
    procedure Exit1DrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; Selected: Boolean);
    procedure ShowFormDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; Selected: Boolean);
    procedure HideFormDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; Selected: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
    TrayIconData: TNotifyIconData;
  public
    { Déclarations publiques }
    procedure WmICONTRAY(var Msg: TMessage); message WM_ICONTRAY;
    Procedure MinimizeClick(Sender:TObject);
    procedure DrawBar(ACanvas: TCanvas);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 Uses Registry,IniFiles;
 
 
procedure Delay(ms : longint) ;
var
  TheTime : LongInt;
begin
  TheTime := GetTickCount + ms ;
  while GetTickCount < TheTime do
    Application.ProcessMessages ;
end ;
 
function ExisteDansBDR(Nom,Valeur : String) : Boolean;
var
  Reg: TRegistry;
begin
  Result := False;
  Reg := TRegistry.Create;
  With Reg do
  begin
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
      if ReadString(Nom) = Valeur then
          Result := True;
      CloseKey;
    finally
      Free;
    end;
  end;
end;
 
 
procedure TForm1.DrawBar(ACanvas: TCanvas);
var
  lf : TLogFont;
  tf : TFont;
begin
  with ACanvas do begin
    Brush.Color := clGray;
    FillRect(Rect(0,0,20,92));
    Font.Name := 'Tahoma';
    Font.Size := 7;
    Font.Style := Font.Style - [fsBold];
    Font.Color := clWhite;
    tf := TFont.Create;
    try
      tf.Assign(Font);
      GetObject(tf.Handle, sizeof(lf), @lf);
      lf.lfEscapement := 900;
      lf.lfHeight := Font.Height - 2;
      tf.Handle := CreateFontIndirect(lf);
      Font.Assign(tf);
    finally
      tf.Free;
    end;
    TextOut(2, 58, 'ANAPURNA');
  end;
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
var
  Registre: TRegistry;
  nomdelakey: string;
  programme:string;
begin
  // on définie le nom de la clé qui sera dans le registre
  nomdelakey := 'KEYANAPURNA';
   // on définie le chemin de destination du programme
  programme := applicaTion.exename;
  // on crée la clé dans la registre
  Registre:=TRegistry.Create;
  Registre.RootKey:=HKEY_LOCAL_MACHINE;
  Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run\',True);
  if (sender as TCheckBox).Checked then
    Registre.WriteString(nomdelakey,programme)
  else Registre.DeleteValue(nomdelakey);
 
  Registre.CloseKey;
  Registre.Free;
end;
 
Procedure TForm1.MinimizeClick(Sender:TObject);
begin
  Self.hide;
end;
 
procedure TForm1.HideFormClick(Sender: TObject);
begin
  Self.hide;
end;
 
procedure TForm1.ShowFormClick(Sender: TObject);
begin
  Self.Show;
end;
 
procedure TForm1.Exit1Click(Sender: TObject);
begin
  Application.Terminate;
end;
 
procedure TForm1.Exit1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  Width := 120;
end;
 
procedure TForm1.Exit1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  if Selected then
    ACanvas.Brush.Color := clHighlight
  else
    ACanvas.Brush.Color := clMenu;
 
  ARect.Left := 25;
  ACanvas.FillRect(ARect);
  DrawText(ACanvas.Handle, PChar('Exit'), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE or DT_NOCLIP);
  DrawBar(ACanvas);
end;
 
procedure TForm1.ShowFormDrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  if Selected then
    ACanvas.Brush.Color := clHighlight
  else
    ACanvas.Brush.Color := clMenu;
 
  ARect.Left := 25;
  ACanvas.FillRect(ARect);
  DrawText(ACanvas.Handle, PChar('Show Form'), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE or DT_NOCLIP);
end;
 
procedure TForm1.HideFormDrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  if Selected then
    ACanvas.Brush.Color := clHighlight
  else
    ACanvas.Brush.Color := clMenu;
 
  ARect.Left := 25;
  ACanvas.FillRect(ARect);
 
  DrawText(ACanvas.Handle, PChar('Hide Form'), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE or DT_NOCLIP);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  nomdelakey ,programme  : String;
begin
  nomdelakey := 'KEYANAPURNA';
  programme := applicaTion.exename;
  Mnu.OwnerDraw:=True;
  CheckBox1.Checked := ExisteDansBDR(nomdelakey ,programme);
  Caption := Caption+' - ['+programme+']';
  with TrayIconData do
  begin
    cbSize := SizeOf(TrayIconData);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage := WM_ICONTRAY;
    hIcon := Application.Icon.Handle;
    StrPCopy(szTip, Application.Title);
  end;
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);
  Application.OnMinimize:= MinimizeClick;
end;
 
{------------------------------------------------------------------------------}
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE, @TrayIconData);
end;
 
procedure TForm1.WmICONTRAY(var Msg: TMessage);
var
  p : TPoint;
begin
  case Msg.lParam of
    WM_LBUTTONDOWN:
    begin
      self.Show;
    end;
    WM_RBUTTONDOWN:
    begin
       SetForegroundWindow(Handle);
       GetCursorPos(p);
       Mnu.Popup(p.x, p.y);
       PostMessage(Handle, WM_NULL, 0, 0);
    end;
  end;
end;
 
end.

@+ Phil