Discussion :

[Aloneghost]

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 :

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

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

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

Code :

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

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

Et mon troisieme affiche le programme dans un Panel :

Code :

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

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 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

[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

[Aloneghost]

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

Code :

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

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)

[Just-Soft]

Salut;

voilà ce que j'avais fait dans le temps

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
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.

[evarisnea]

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

Code :

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

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).

[Just-Soft]

Salut;

voilà ce que j'avais fait dans le temps

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
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 :

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

ShowPanel(Form2.APanel, PanelMenuFond)

rien que ça !

[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 !