Discussion :

[Delphi-ne]

J'ai récupéré dans un autre sujet du forum le code suivant qui permet de lancer la calculette de Windows dans un panel.
Ce code fonctionne parfaitement et, au niveau de la barre de tâche je ne vois QUE mon application, pas la calculette.

En revanche si je remplace Calc.exe par un exécutable Delphi je vois ce second exécutable dans la barre de tâhe
Quel moyen permet de neutraliser cet affichage ?

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
procedure TForm1.Button4Click(Sender: TObject); 
const 
  TimeOut = 10000; // 10 secondes 
var 
  h: THandle; 
  t: DWORD; 
begin 
  // On lance la calculatrice 
  ShellExecute(self.Handle, 'Open', 'calc.exe', nil, nil, SW_SHOWNORMAL); 
 
  // On attend un peu jusqu'à ce que la fenêtre de la calculatrice soit visible 
  h:= 0; 
  t:= GetTickCount; 
  while (h = 0) and (GetTickCount - t < TimeOut) do 
  begin 
    h:= FindWindow(nil, 'Calculatrice'); 
    Application.ProcessMessages; 
  end; 
 
  if h <> 0 then 
  begin 
    // On change la taille de la fenêtre 
    SetWindowPos(h, 0, 0, 0, 320, 200, 0); 
 
    // On change le parent de la fenêtre par notre panel (par exemple) 
    Windows.SetParent(h, panel1.Handle); 
  end; 
end;

[Delphi-ne]

J'ai trouvé !

Il faut ajouter

Code :

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

   SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

dans l'évènement Create de la première fenêtre de l'application

Inutile de me faire des réflexions sur la nécessité d'effectuer une recherche avant de poster un sujet je mes les suis déjà faites.

[pinson]

Sinon tu peux utiliser les composants :
TkbTrayIcon
et ensuite tu fais :

Code :

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

1
2
 
  kbTryIcnServeur.ShowApplication := False;