Afficher la form d'une autre application dans un TPanel( ou autre composant)

Version imprimable

15/03/2009, 00h28
Aloneghost

Afficher la form d'une autre application dans un TPanel( ou autre composant)

Amis programmeurs, bien le bonsoir !

Je suis en train de coder une appli qui necessite l'utilisation d'un autre programme, en l'incorporant dans sa propre form.

Je m'explique, je désire afficher la form du second programme dans un composant de mon programme.

Voici ce que je fais jusqu'ici mais cela ne fonctionne pas :S

Pour mieux comprend ce qui bug et ce qui ne bug pas je pose 3 boutons.

Le premier ouvre mon programme secondaire :

Code:

ShellExecute(Application.Handle,'OPEN','Demoniak3D.exe', Nil, Nil, SW_SHOW);

Mon second récupère le Handle de l'instance de ce programme :

Code:

Hand := FindWindow(nil,'Demoniak3D.exe');

Et mon troisieme affiche le programme dans un Panel :

Code:

Windows.SetParent(hand, Panel1.Handle);

Mon soucis est que le handle retourné est toujours égal à 0, et rien ne s'affiche dans mon panel :S

J'ai bien eut une compilation qui m'a affiché mon menu démarer dans mon Panel :aie: mais ca n'était pas vraiment recherché... (mauvais Handle récupéré?)

Donc si vous pouviez m'aidez à afficher mon second programme dans mon panel je vous en serais reconnaissant :D
15/03/2009, 01h20
shell13010

je pense que tu as recuperer le mauvais handles moi je te conseille de voir avec le tres bon produit qui se nomme process explorer il te donnera toute en detail

le lien et tien nous au courant
15/03/2009, 01h54
Aloneghost
Effectivement, je récupere le mauvais handle puisque en mettant un
Code:

1 2 Hand := FindWindow(nil,'Demoniak3D.exe'); Showmessage(Inttostr(Hand));
J'obtient toujours un beau '0' ce qui est assez pénible, je devrais certainement utiliser une autre fonction que FindWindow, ou alors je l'utilise mal je ne sais pas.

le programme que tu m'as conseillé me sera utile lorsque j'arriverais à récupérer autre chose qu'un 0 :S (Mais merci ! Je le met dans mes petit outils à ne pas jeter :p)

Salut;

voilà ce que j'avais fait dans le temps :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure ShowPanel(APanel, PanelMenuFond: TPanel);
var
  i : Integer;
  AControl : TControl;
begin
  APanel.Parent := PanelMenuFond;
  APanel.Left := 0;
  APanel.Top := 0;
  APanel.Visible := True;
  for i := 0 to PanelMenuFond.ControlCount - 1 do
  begin
    AControl := PanelMenuFond.Controls[I];
    if (AControl is TPanel) and (AControl <> APanel) then
       AControl.Visible := False;
  end;
end;

simple mais efficace.

15/03/2009, 09h56
evarisnea
:salut:
Citation:
Envoyé par Aloneghost

Effectivement, je récupere le mauvais handle puisque en mettant un

Code:

1 2 Hand := FindWindow(nil,'Demoniak3D.exe'); Showmessage(Inttostr(Hand));

J'obtient toujours un beau '0' ce qui est assez pénible, je devrais certainement utiliser une autre fonction que FindWindow, ou alors je l'utilise mal je ne sais pas.
Demoniak3D.exe est-il bien le titre de l'application ou juste le nom de son fichier exécutable ?
le deuxième paramètre de la fonction FindWindow attend le titre de la fenêtre en question (propriété Caption des form delphi).

Citation:
Envoyé par Just-Soft
Salut;

voilà ce que j'avais fait dans le temps :D
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure ShowPanel(APanel, PanelMenuFond: TPanel); var i : Integer; AControl : TControl; begin APanel.Parent := PanelMenuFond; APanel.Left := 0; APanel.Top := 0; APanel.Visible := True; for i := 0 to PanelMenuFond.ControlCount - 1 do begin AControl := PanelMenuFond.Controls[I]; if (AControl is TPanel) and (AControl <> APanel) then AControl.Visible := False; end; end;
simple mais efficace.
peut-être que ma solution n'étant pas claire alors j'ajoute ceci : il faut juste que ta forme contienne un Panel dont les autres compo sont déposés. puis tu appel la procédure depuis un forme général (comme le main d'un prog p.e) en luis spécifiant le panel de l'autre forme :

Code:

ShowPanel(Form2.APanel, PanelMenuFond)

rien que ça !

15/03/2009, 12h36
Aloneghost

Merci pour vos réponses :)

Evarisnea a mis le doigt sur mon soucis, il me fallait donner le caption de la fiche du second programme, et en faisant ainsi, j'arrive à "capturer" ce programme dans mon Panel ^^

Maintenant, il va me falloir trouver comment "effacer" les menus de l'application et son cadre window mais je devrais m'en sortir :)

Merci à vous !