Fenêtre applicative incluse dans un TTabSheet

**Delphi-ne** · 23/02/2015, 15h15

Bonjour,

Je travaille sur une reprise d'application actuellement composée de plusieurs EXE (Delphi)
Dans l'immédiat je voudrais que l'EXE principal ouvre dans un onglet d'un classeur un EXE correspondant à un des EXE composant l'application actuelle

Cela fonctionne avec le code suivant :

Code :

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

1
2
3
4
5
6
   newtabsheet:=TTabSheet.Create(ClasseurOnglet);
   newtabsheet.pagecontrol:=ClasseurOnglet;
   ShellExecute(Application.Handle,'Open', PChar(LC_ProvisoireEXE), PChar(LC_ProvisoireParam), nil,SW_SHOWDEFAULT);
   while LO_ProvisoireHandle = 0 do LO_ProvisoireHandle := FindWindow(nil, PChar(LC_Caption));
   Windows.SetParent(LO_ProvisoireHandle, newtabsheet.Handle);
   Windows.ShowWindow(LO_ProvisoireHandle, SW_SHOWMAXIMIZED);

Mon problème intervient si l'utilisateur ferme l'EXE appelé par la croix de fermeture Windows.
Dans ce cas la fenêtre se ferme mais l'onglet apparaît vide dans l'application principale.

Je cherche l'evènement déclenché dans l'EXE principal sur lequel je pourrais mettre un code genre

Code :

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

ClasseurOnglet.ActivePage.Close;

Il me reste la possibilité d'un Timer qui exploire régulièrement les onglets vides mais cela ne me branche pas trop

Merci de vos idées

**anapurna** · 23/02/2015, 15h47

salut

utilise les méthodes onshow et onhide du TTabSheet

**Delphi-ne** · 23/02/2015, 16h01

Je viens d 'ajouter l'évenement OnShow au moment ou je créé l'onglet

Code :

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

 newtabsheet.OnShow  := TabSheet1Show;

Pas de problème il se déclenche bien au moment où l'onglet vient d'être créé et quand la fenetre contenant l'EXE s'affiche
Par contre quand la fenêtre se ferme l'évènement n'est pas appelé

**ShaiLeTroll** · 23/02/2015, 16h04

Utilise sinon un SendMessage
Si tu peux modifier le code des deux applications,
lorsque le sous-exe appelé par shellexecute ferme sa fenêtre,
cela envoi un SendMessage à l'application principale
le Handle du l'application principale peut être passé en comme paramètre dans le ShellExecute par exemple

tu peux utiliser RegisterWindowMessage pour obtenir un numéro de message commun entre l'appelant et l'appelé identifier par une chaine

**Delphi-ne** · 23/02/2015, 16h17

Merci.

Je voudrais ne pas modifier le code actuel des applications appelées.
Pour des raisons contractuelles surtout.

Je sais c'est pénible.

**anapurna** · 23/02/2015, 16h35

salut

ton problème n'est pas simple, si le programme principale n'as pas de moyen de savoir que le sous programme se ferme.

il va falloir que tu crée un boucle de surveillance avec la fonction IsWindowVisible
si ce n'est pas le cas tu ferme le tabsheet

**Delphi-ne** · 23/02/2015, 16h39

C'est un peu l'idée du TTimer que j'évoquais en commençant ?
Ca ne me fait pas sauter de joie mais si le TTabShhet contenant une TForm ne reçoit pas d'information quand elle se ferme je n'ai pas d'autres solution
D'autant que c'est temporaire, juste le temps de réécrire le tout.

Merci à vous

**ShaiLeTroll** · 23/02/2015, 16h47

IsWindowVisible est une bonne idée
Avec le FindWindow, cherche la fenêtre parent et cache là
soit par une position inaccessible par exemple,
soit par un SetVisible(FALSE) comme tu changes le parent, tes composants ne devraient pas être impacté (la disparation du composant ancrée est lié à la gestion mémoire de Delphi sur Controls[] et Components[])

Faudrait voir aussi un CreateProcess au lieu d'un ShellExecute
Avec CreateProcess dans un TThread, tu pourrais via WaitForSingleObjet surveiller la présence de l'exe, si l'exe disparait, ton onglet aussi

**Andnotor** · 23/02/2015, 17h14

Si le seul soucis est ce bouton de fermeture, autant supprimer la barre de titre

Code :

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

setWindowLong(Wnd, GWL_STYLE, WS_SIZEBOX);

A placer avant SetParent.

Envoyé par ShaiLeTroll

Avec CreateProcess dans un TThread, tu pourrais via WaitForSingleObjet surveiller la présence de l'exe, si l'exe disparait, ton onglet aussi

C'est le mieux

L'arrêt brutal par le gestionnaire de tâches est ainsi aussi supporté

Mais je préfère ShellExecuteEx qui permet aussi de supprimer cette boucle sur FindWindow en spécifiant SEE_MASK_WAITFORINPUTIDLE. Ce flag indique d'attendre la fin du démarrage du thread principal avant de continuer, la fiche principale est "normalement" créée au retour de ShellExecuteEx (sinon au moins mettre un sleep dans la boucle).

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
type
  TWaitProcessThread = class(TThread)
  private
    Process: THandle;
  protected
    procedure Execute; override;
  public
    constructor Create(aProcess :THandle; aOnTerminate :TNotifyEvent);
  end;
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  public
    procedure OnTerminate(Sender :TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses ShellAPI;
 
{$R *.dfm}
 
{ TWaitProcessThread }
 
constructor TWaitProcessThread.Create(aProcess: THandle; aOnTerminate: TNotifyEvent);
begin
  inherited Create;
 
  Process         := aProcess;
  OnTerminate     := aOnTerminate;
  FreeOnTerminate := TRUE;
end;
 
procedure TWaitProcessThread.Execute;
begin
  WaitForSingleObject(Process, INFINITE);
  CloseHandle(Process);
end;
 
{ TForm6 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Info :TShellExecuteInfo;
  Wnd  :hWnd;
begin
  ZeroMemory(@Info, SizeOf(Info));
  Info.cbSize := SizeOf(TShellExecuteInfo);
  Info.fMask  := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_WAITFORINPUTIDLE;
  Info.lpFile := 'notepad.exe';
 
  if ShellExecuteEx(@Info) then
  begin
    Wnd := FindWindow(nil, 'Sans titre - Bloc-notes');
 
    setWindowLong(Wnd, GWL_STYLE, WS_SIZEBOX);
    Windows.SetParent(Wnd, Handle);
    ShowWindow(Wnd, SW_SHOWMAXIMIZED);
 
    TWaitProcessThread.Create(Info.hProcess, OnTerminate);
  end;
end;
 
procedure TForm1.OnTerminate(Sender: TObject);
begin
  Caption := 'Terminé';
end;

**Delphi-ne** · 24/02/2015, 15h10

Merci

Je ne parviens pas à faire fonctionner l'exemple.
J'ai créé un projet de test.
La ligne setWindowLong(Wnd, GWL_STYLE, WS_SIZEBOX) empèche de retrouver l'handle et donc ne positionne pas l'EXE correctement. Compte tenu que cela sert à cacher la barre de titre je ne sais pas si on peut la laisser ou non

Par contre quand je ferme l'EXE appelé on ne rentre pas dans l'évènement onTerminate.

Voici le code. J'ai fait juste un copier/coller

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI, ExtCtrls;
 
type
  TWaitProcessThread = class(TThread)
  private
    Process: THandle;
  protected
    procedure Execute; override;
  public
    constructor Create(aProcess :THandle; aOnTerminate :TNotifyEvent);
  end;
 
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  public
    procedure OnTerminate(Sender :TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
 
{$R *.dfm}
 
{ TWaitProcessThread }
 
constructor TWaitProcessThread.Create(aProcess: THandle; aOnTerminate: TNotifyEvent);
begin
  inherited Create(true);
 
  Process         := aProcess;
  OnTerminate     := aOnTerminate;
  FreeOnTerminate := TRUE;
end;
 
procedure TWaitProcessThread.Execute;
begin
  WaitForSingleObject(Process, INFINITE);
  CloseHandle(Process);
end;
 
{ TForm6 }
 
procedure TForm1.Button1Click(Sender: TObject);
const
SEE_MASK_WAITFORINPUTIDLE =$2000000;
var
  Info :TShellExecuteInfo;
  Wnd  :hWnd;
 
begin
  ZeroMemory(@Info, SizeOf(Info));
  Info.cbSize := SizeOf(TShellExecuteInfo);
  Info.fMask  := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_WAITFORINPUTIDLE;
  Info.lpFile := 'C:\Developpements\Test_Delphi\TransfertMails\TransMail.exe';
 
  if ShellExecuteEx(@Info) then begin
    Wnd := 0;
    Sleep(100);
    Application.ProcessMessages;
    Sleep(100);
    Wnd := FindWindow(nil, PChar('TransMail'));
 
  //  setWindowLong(Wnd, GWL_STYLE, WS_SIZEBOX);
    Windows.SetParent(Wnd, Panel1.Handle);
    Windows.ShowWindow(Wnd, SW_SHOWMAXIMIZED);
 
    TWaitProcessThread.Create(Info.hProcess, OnTerminate);
  end;
end;
 
procedure TForm1.OnTerminate(Sender: TObject);
begin
  showmessage( 'Terminé');
end;
end.

**Andnotor** · 24/02/2015, 15h31

Envoyé par Delphi-ne

La ligne setWindowLong(Wnd, GWL_STYLE, WS_SIZEBOX) empèche de retrouver l'handle et donc ne positionne pas l'EXE correctement.

Ça n'a normalement aucun rapport. Peut-être un problème de repeinture

Envoyé par Delphi-ne

Par contre quand je ferme l'EXE appelé on ne rentre pas dans l'évènement onTerminate.

Ça ne risque pas puisque tu ne démarres pas le thread

Code :

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

1
2
3
constructor TWaitProcessThread.Create(aProcess: THandle; aOnTerminate: TNotifyEvent);
begin
  inherited Create(FALSE);

**Delphi-ne** · 24/02/2015, 15h52

Merci

Maintenant cela fonctionne et c'est exactement ce que je voulais proposer au client

Pour le paramètre à inherited Create c'est moi qui l'ai ajouté.
Il n'était pas dans l'exemple et cela me provoquait une erreur de compilation
J'ai valorisé au hazard sans comprendre l'utilité

Vraiment merci beaucoup

Fenêtre applicative incluse dans un TTabSheet

Composants VCL Delphi

Discussions similaires

Partager

Partager