executer une application dans une tform existante

Je cherche à lancer une application à partir d'une application delphi par winexec ou create process , mais je veux que cette application soit liée à la forme active un peu comme une fiche enfant mdi.

Je ne sais pas si c'est réalisable.

Merci de votre aide
Marc Salama

Comme ça, par exemple ?

Code:

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;

Je l'avais récupéré sur le forum ...

Merci beaucoup.
Je ne l'avais pas trouvé sur le forum, c'est exactement ce dont j'ai besoin