Discussion :

[keusty78]

bonsoir,

tout d'abord je voudrais m'excuser si ma question est stupide mai sincèrement je ne trouve pas de réponse a celle ci donc je voulais savoir comment faire pour exécuter un programme externe en tant que fenêtre fille avec ShellExecute

pour être plus précis je voudrais que le fichier.exe s'affiche a l’intérieur de la fenêtre(Form1) principal

voici le code en question ou je me suis arreter :

Code :

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

ShellExecute(Form1, "open", "D://ProjetBorland//aplic//applic2//fichier.EXE", NULL, NULL, SW_SHOWNORMAL);

merci a vous,

[ShaiLeTroll]

confusion / et \ dans les chemins
Le Premier pour le monde linux ou web
le Second pour windows

confusion / et \ comme caractère d'échappement
/ est un caractère normal
\ est utilisé comme caractère d'échappement

conclusion remplace les // par \\

[keusty78]

confusion / et \ dans les chemins
Le Premier pour le monde linux ou web
le Second pour windows

confusion / et \ comme caractère d'échappement
/ est un caractère normal
\ est utilisé comme caractère d'échappement

conclusion remplace les // par \\

Merci a toi ShaiLeTroll je savais pas pourtant les 2 solutions marche pareil mai je vais quand même suivre ton conseil merci, ceci dis je ne sais toujours pas si on peut ouvrir un fichier .exe externe en tant que fenêtre fille

[ShaiLeTroll]

Utilise CreateProcess avec le Handle retourné tu pourras utiliser un EnumWindows ou CreateToolhelp32Snapshot pour trouver la fenêtre voulu puis faire un SetParent

Sinon, avec ShellExecute, FindWindow et SetParent c'est possible, mais le contexte d'execution est plus "risquée"


Afficher une autre application dans un exe
Fenêtre dans une autre?
[D7] Ouvrir Excel dans une form

[keusty78]

Utilise CreateProcess avec le Handle retourné tu pourras utiliser un EnumWindows ou CreateToolhelp32Snapshot pour trouver la fenêtre voulu puis faire un SetParent

Sinon, avec ShellExecute, FindWindow et SetParent c'est possible, mais le contexte d'execution est plus "risquée"

oulaaa!!! sa a l'aire plus compliquer que je le pensais je vais faire des recherche sur CreateProcess pour voir comment sa se place dans le code mais sinon tu entend quoi par plus "risquée"?

en tous cas je te remercie de m'avoir répondu je teste tout ça et je te tien au courant

[ShaiLeTroll]

sa a l'aire ou cela à l'air ?

Si l'on devait s'arrêter à chaque obstacle, tu as en plus choisi le C++, c'est un langage très utilisé mais pas le plus simple par rapport au Visual Basic ou au Delphi !

Le CreateProcess fait que ton programme est propriétaire de l'exe lancé, si on arrête ton programme, normalement, cela arrête l'autre aussi (à tester selon les options de Startup), tu dois d'ailleurs pouvoir empêcher sa fermeture plus facilement car tu as déjà tous les identifiants utilies dans lpProcessInformation et tu peux en détourner les Pipes (pratique pour une application console)

le ShellExecute lance le programme mais c'est l'explorer le propriétaire de l'exe, comme le programme est indépendant, il faut faire gaffe à ce que l'on ne ferme pas le programme alors que tu as détourné la fenêtre, violation d'accès assuré sinon !
Mais tu dois pouvoir aussi masquer l'exe pour éviter qu'on le ferme, c'est juste plus pénible car il faut retrouver les handles nécessaires aux API

Les deux méthodes peuvent provoqués des Violations d'Accès, la modification du Parent via _WINDOWS_::SetParent est une bidouille !
Le plus propre serait que ton programme appelé fournisse un Control ActiveX (DLL) le contexte d'execution sera différent (partage de la mémoire grandement facilité)

[keusty78]

salut ShaiLeTroll

je voulais dire cela a l'aire... lol mais bon je suis pas du genre a m’arrêter devant un obstacle j'adore les défit c'est ce qui me fait avancer.

Donc pour revenir a mon petit problème j'ai réussis a faire ce que je voulais a une chose près, le problème c'est que je doit d'abord ouvrir le fichier.exe pour que le bouton dans mon programme le prenne en charge dans mon form1

ce qui ne sert strictement a rien si je doit d'abord l'ouvrir pour qu'il apparaisse dans mon forme1

y aurait il une erreur dans mon code s'il te plait si tu peu m'aider encore un peu?

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
STARTUPINFO startupInfo;
PROCESS_INFORMATION procInfo;
memset(&startupInfo, 0, sizeof(STARTUPINFO));
memset(&procInfo, 0, sizeof(PROCESS_INFORMATION));
startupInfo.cb = sizeof(STARTUPINFO);
startupInfo.lpReserved = NULL;
startupInfo.dwFlags = STARTF_USESHOWWINDOW;
startupInfo.wShowWindow = SW_SHOWNORMAL;
 
 
AnsiString teste=CreateProcess( NULL,
				"C:\\Users\\keusty\\Desktop\\teste\\fichier.exe",
				NULL,
				NULL,
				FALSE,
				NORMAL_PRIORITY_CLASS,
				NULL,
				NULL,
				&startupInfo,
				&procInfo);
 
HWND HWindow = FindWindow(NULL, "fichierexe");
HWND HNewParent =  Form1->Handle;
if (HWindow != NULL && HNewParent != NULL)
::SetParent(HWindow, HNewParent);

merci encore

[ShaiLeTroll]

le problème c'est que je doit d'abord ouvrir le fichier.exe

Que veux tu dire ?
CreateProcess lance le programme, tu devrais utiliser SW_HIDE au lieu de SW_SHOWNORMAL, ton programme sera invisible, c'est surement cela que tu décris, en même temps, il serait bon d'étudier le code que tu écris (ou copies)


Puis tu capture sa fenêtre via SetParent
Au besoin, tu force un ShowWindow(HWindow, SW_SHOW) après le SetParent

[keusty78]

CreateProcess lance le programme, tu devrais utiliser SW_HIDE au lieu de SW_SHOWNORMAL, ton programme sera invisible, c'est surement cela que tu décris, en même temps, il serait bon d'étudier le code que tu écris (ou copies)

c est exactement ça pourtant j'ai supprimé tout le reste et garder que le createprocess et remplacer SW_SHOWNORMAL par SW_HIDE mais rien y fait le programme est toujours visible je comprend pas je vais encore chercher, si tu a une petite idée je suis preneur

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
 
STARTUPINFO startupInfo;
PROCESS_INFORMATION procInfo;
memset(&startupInfo, 0, sizeof(STARTUPINFO));
memset(&procInfo, 0, sizeof(PROCESS_INFORMATION));
startupInfo.cb = sizeof(STARTUPINFO);
startupInfo.lpReserved = NULL;
startupInfo.dwFlags = STARTF_USESHOWWINDOW;
startupInfo.wShowWindow = SW_HIDE;
 
CreateProcess( NULL,
				"C:\\Users\\keusty\\Desktop\\teste\\fichier.exe",
				NULL,
				NULL,
				FALSE,
				NORMAL_PRIORITY_CLASS,
				NULL,
				NULL,
				&startupInfo,
				&procInfo);

[ShaiLeTroll]

Essaye avec Notepad ou Explorer, ainsi qu'un tout petit programme Delphi !
Tu verras que le programme Delphi devrait ignorer SW_HIDE (à mes souvenirs, cela peut dépendre de la version) alors que Notepad ou Explorer vont s'y plier !

Si tu peux modifier le programme appelé, ajoute un paramètre sur la ligne de commande pour le forcer à faire ShowMainForm à false ou alors utilise GetStartupInfo()

j'ai évoqué le phénomène de certains programmes réticents à ShowWindow SW_HIDE via CreateProcess

Essaye de le faire comme ceci
on va brièvement voir la fenêtre !

Code :

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

1
2
3
4
5
6
7
8
9
10
HWND HWindow = FindWindow(NULL, "fichierexe");
if (HWindow)
  ::ShowWindow(HWindow, SW_HIDE); 
 
HWND HNewParent =  Form1->Handle;
if (HWindow != NULL && HNewParent != NULL)
{
  ::SetParent(HWindow, HNewParent);
  ::ShowWindow(HWindow ,SW_SHOW); 
}

[keusty78]

Merci ShaiLeTroll je viens d'essayer aussi avec le code que tu m'a donner rien y fait le programme s’exécute quand même, et disparait pour apparaitre dans mon Form1 seulement quand je clic sur le bouton, de plus quand il es dans mon Form1 et que je le ferme il ne s'ouvre plus après le clic je suis toujours obliger de l’exécuté manuellement en dehors de mon programme pour qu'il réagit au clic du bouton qui se trouve dans mon Form1 la je crains que je ne puisse plus avancé je suis vraiment bloquer

Si tu peux modifier le programme appelé, ajoute un paramètre sur la ligne de commande pour le forcer à faire ShowMainForm à false ou alors utilise GetStartupInfo()

et en ce qui concerne le paramètre pour le forcer a faire un ShowMainForm à false je n'ai aucune idée de "ou je dois le placer ni comment" j'ai été voir sur le lien que tu m'a donner mai je suis sincèrement désolé je n'y comprend rien et j'ai visité d'autre site et je n'est rien trouver qui puisse me faire comprendre un peu mieux le fonctionnement de ce ShowMainForm et de ce GetStartupInfo() en tout cas je te remercie sincèrement d'avoir pris la peine d'essayer de m'aider encore un grand merci

[ShaiLeTroll]

consulte la documentation :
ShowMainForm
GetStartupInfo

Tu semble être l'auteur de l'application lancée "fichier.exe", cela facilite grandement les choses !

Le code fourni lance le programme puis capture sa fenêtre !
As-tu essayé avec NotePad ou Explorer, le comportement est-il meilleur ?
si oui, c'est qu'il faut modifier le programme "fichier.exe", tu ne pourras pas faire mieux depuis l'extérieur !

Après je ne comprends pas ton histoire de bouton !

tu dois faire le CreateProcess\FindWindow\SetParent dans la même fonction pour que la capture soit la plus rapide que possible et que l'on est presque pas le temps de voir l'application d'origine !

[DjmSoftware]

Hello,
ci -dessous un exemple avec l'exécution d'un fenêtre fille de Notepad

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
 
 
.....
startupInfo.wShowWindow = SW_HIDE;
startupInfo.dwX=0;
startupInfo.dwY=0;
startupInfo.dwXSize=Form1->Width;  // on fixe la largeur de la fenêtre fille
startupInfo.dwYSize=Form1->Height;  // on fixe la Hauteur de la fenêtre fille
startupInfo.dwFlags =STARTF_USESHOWWINDOW|STARTF_USESIZE|STARTF_USEPOSITION;
ProcessCreated=CreateProcess( NULL,
				"C:\\Windows\\System32\\Notepad.exe",
				NULL,
				NULL,
				FALSE,
				NORMAL_PRIORITY_CLASS,
				NULL,
				NULL,
				&startupInfo,
				&procInfo);
 if(ProcessCreated) Sleep(100);
 HWND HWindow = FindWindow(NULL, "Sans titre- Bloc-notes"); // Caption de la fenêtre
 HWND HNewParent =  Form1->Handle;
  if (HWindow != NULL && HNewParent != NULL)
   {
	::SetParent(HWindow, HNewParent);
	ShowWindow(HWindow,SW_SHOW); // on affiche la fenêtre fille
   }
 
 
....
// ne pas oublier de tuer le process créé auparavant,   par exemple dans le destructeur de la Form
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  // procInfo est un membre privé de la classe TForm 
  TerminateProcess(procInfo.hProcess,0); // on termine le process
  WaitForSingleObject( procInfo.hProcess, INFINITE ); // on attend sa fermeture
  CloseHandle( procInfo.hProcess ); // libération des Handles créés
  CloseHandle( procInfo.hThread );
 
}

cdlt