Discussion :

[JJJJJ]

Bonjour,

Il s'agit d'une application qui est lancée et stopée automatiquement par d'autres programmes, selon leurs états d'avancement.
L'utilisateur n'a aucune action sur cette application qui affiche à l'écran des informations de suivi et des avertissements pour la gestion des autres programmes.
Cette application ne doit pas être arrêtée par l'utilisateur : c'est le point essentiel.
Pour cela, sa Form principale ne comporte pas de bouton d'arrêt(BorderStyle : bsnone).
Mais la mention de cette application apparait dans la barre des tâches de Windows XP. L'utilisateur peut donc y accéder et arrêter l'exécution de l'application (et il cesse donc d'être averti d'interventions qu'il doit exécuter sur d'autres programmes dans certains cas particuliers).
La question est : comment empêcher que la mention de l'application n'apparaisse dans la barre des tâches lorsque cette application est en cours d'exécution ?

[Droïde Système7]

Salut,


http://www.garystimson.co.uk/delphi.html

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  iExtendedStyle: Integer;
 
begin
  Application.Initialize;
 
  iExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, iExtendedStyle or
                     WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
 
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end;

Edit : Complément
http://delphi.developpez.com/faq/?pa...querapplibarre

@+

[JJJJJ]

OK., ca marche ! Merci
Grâce à cette bonne indication, voilà ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
    iExtendedStyle: Integer;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
	{ ... }
end;
             { ensuite, les autres procédures }
             {et ajouté à la fin : }
begin 
       iExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE); 
       SetWindowLong(Application.Handle, GWL_EXSTYLE, iExtendedStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); 
end.