forcer la fenêtre Dos sur un Tpanel D6 et Windows 10 en gardant la structure existante !

Version imprimable

Bonjour à toutes et à tous,

Depuis un moment j'essaie d'afficher avec mon code la fenêtre Dos dans un Tpanel en gardant cette structure.

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
 
begin
 
h:=0;
 
 ExecuteFile:='Monfichier.bat';
 
 FillChar(SEInfo, SizeOf(SEInfo), 0) ;
 SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
 
 with SEInfo do begin
 fMask := SEE_MASK_NOCLOSEPROCESS;
 Wnd := Application.Handle;
 
 lpFile := PChar(ExecuteFile) ;
 nShow := SW_SHOWNORMAL;
 end;
 
 if ShellExecuteEx(@SEInfo) then begin
 repeat
 
 Application.ProcessMessages;
 
end;

J'avais testé ceci :

Code:

1
2
3
4
5
6
7
 
try
  while h=0 do
   h:=findwindow('ConsoleWindowClass',FileMSDos);   // ConsoleWindowClass
   Windows.SetParent(h,Panel1.handle);
   SetWindowPos(h,HWND_TOP,-2,-2,panel1.width +0,panel1.height +0,SWP_SHOWWINDOW);
   form1.ActiveControl := panel1;//Donne le focus

Mais je n'arrive pas à le placer dans mon code

Si quelqu'un a une idée merci d'avance.

Excellent dimanche.

@+,

cincap

@ tous, voila une solution qui m'agrée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 if ShellExecuteEx(@SEInfo) then begin
 
//Ici
 try
 
  while h=0 do
   h:=findwindow('ConsoleWindowClass',FileMSDos);   // ConsoleWindowClass
   Windows.SetParent(h,Panel1.handle);
   SetWindowPos(h,HWND_TOP,-2,-2,panel1.width,panel1.height +0,SWP_SHOWWINDOW);
   finally
   form1.ActiveControl := panel1;//Donne le focus
//Fin
 repeat
 
Application.ProcessMessages;

@+,

cincap

Bonjour Cincap,

ce ne serait pas plutôt :

Code:

1
2
3
4
5
6
7
8
9
  While h=0 do
   Begin
     h:=findwindow('ConsoleWindowClass',FileMSDos);   // ConsoleWindowClass
     Windows.SetParent(h,Panel1.handle);
     SetWindowPos(h,HWND_TOP,-2,-2,panel1.width,panel1.height +0,SWP_SHOWWINDOW);
     finally
     form1.ActiveControl := panel1;//Donne le focus
     Application.ProcessMessages;
   End ;

Ton Try est incomplet et Repeat ne sert à rien (sinon c'est Repeat .... Until ..)
A+
Charly

27/06/2021, 15h40
Andnotor

Citation:

Envoyé par Charly910

ce ne serait pas plutôt :

Non, la boucle while ne sert qu'à attendre que la fenêtre soit créée, qu'un handle soit retourné. C'est la mauvaise indentation du code qui t'induit en erreur ;)
27/06/2021, 16h02
Charly910

Oh Oui Pardon pour le While avec une seule instruction !:oops:

A+
Charly

Ps : Il manque quand même le End du Try Finally ? (sauf si le Repeat incomplet est dans le Finally ?

@ Charly910 et @ Andnotor, merci pour votre participation mais le code n'étant pas complet, c'est normal qu'il suscite un commentaire sinon tout est bien présent :

Citation:

Depuis un moment j'essaie d'afficher avec mon code la fenêtre Dos dans un Tpanel en gardant cette structure.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 form1.ActiveControl := panel2;//Donne le focus Fin:=False; Repeat { On attend la fin de l'application } Case WaitForSingleObject(ProcessInfo.hProcess, 200)Of WAIT_OBJECT_0 :Fin:=True; { L'application est terminée, on sort } WAIT_TIMEOUT :; { elle n'est pas terminée, on continue d'attendre } End; { Mise à jour de la fenêtre pour que l'application ne paraisse pas bloquée. } Application.ProcessMessages; Until Fin; { C'est fini }
Sinon cela fonctionne correctement en fait c'est pour réaliser une conversion d'un fichier audio .wma vers un fichier audio .mp3 avec FFmpeg.

Cordialement,

@+,

cincap