[WIN32][D7] Application invisible

**Herk77** · 27/10/2006, 14h10

Salut,
Je voudrais faire une application qui ne s'affiche pas dans la barre des tâches, mais plutôt avec un icône dans le systray (là où y a l'heure dans la barre des tâches

). Quelqu'un a-t-il une idée ?

**TicTacToe** · 27/10/2006, 14h14

un petit tour dans la

plus précisément ici pourrait t'aider je pense

**Herk77** · 27/10/2006, 15h26

J'ai déjà regarder la FAQ

Mettre un icon dans le systray c'est la partie facile.

Le problème c'est d'avoir une appli invisible dans la barre des tâches et qui le reste (invisible

), même si on a des forms filles.

**Cl@udius** · 27/10/2006, 15h52

Salut,

Si ton appli ne possède pas de bouton 'Réduire' et 'Agrandir' et qu'elle ne s'affiche pas maximisée, tu peux ajouter ceci dans le OnCreate de la form principale:

Code :

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

1
2
 
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

@+

**Herk77** · 27/10/2006, 16h39

Pour clarifier mes propos

voici mon code :

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FormFille: TForm2;
    procedure AppMinimize(Sender: TObject);
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AppMinimize(Sender: TObject);
begin
  Visible := False;
  FormFille.Show;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := AppMinimize;
  FormFille := TForm2.Create(Self);
  FormFille.Hide;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle,SW_HIDE);
  SetWindowLong(application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  ShowWindow(application.Handle, SW_SHOW);
end;
 
end.

Si on enlève le

Code :

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

FormFille.Show

ça fonctionne bien (trop bien même

) : quand on réduit la form elle est complètement invisible (ni barre des tâches, ni petit bout de fenêtre reduite sur le bureau, du coup on y a plus accès

), mais si on veut afficher la form fille paf ma form principale apparaît en tout petit sur le bureau.

Evidemment, j'ai pas encore mis l'icone dans le systray.

Avant de me lancer dans des grands projets je voudrais savoir si c'est possible de faire ce que je veux faire.