Pb de paramétrage d'un CreateProcess()

Version imprimable

Bonjour à tous :)

Ce code de CreateProcess() n'attend pas la fin du processus fils pour continuer. Même avec le flag CREATE_SUSPENDED. Comment initialiser celui-ci ?

Le code :

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
 
  FillChar(Startupinfo,Sizeof(TStartupinfo),0);
  Startupinfo.cb:=Sizeof(TStartupInfo);
  StartupInfo.wShowWindow := SW_SHOWMAXIMIZED;
  StartupInfo.dwFlags := {STARTF_USESHOWWINDOW OR} CREATE_SUSPENDED;  // N'attend qd-même pas ! 
 
 
 
  Processus := 'NOTEPAD'; 
  Parametre := ''; 
 
  Retour := CreateProcess(nil,
                         nil; // PChar(Parametre),
  	 	         nil,
                         nil,
                         false,
                         normal_priority_class,
                         nil,
                         PChar(Rep),
                         Startupinfo,ProcessInfo);
 
 
  CASE Retour OF
      True :
          begin
 
//etc.

Y a-t-il moyen d'éviter cette API, avec Delphi ? Appeler un prog ET attendre qu'il rende la main ?

Merci :hello:

30/11/2012, 16h07
guillemouze

tu trouvera la solution ici : http://delphi.developpez.com/faq/?pa...oleapplication
30/11/2012, 16h28
bvsud

Bon sang ! :ccool:

On ne vous a jamais dit que vous avez du génie, sur ce forum ?
30/11/2012, 17h53
bvsud

Citation:

Envoyé par guillemouze

tu trouvera la solution ici : http://delphi.developpez.com/faq/?pa...oleapplication

C'est bizarre... Delphi me refuse les paramètres si je les utilise en variables :

http://data.imagup.com/10/1168960032.png

Pourquoi ?
30/11/2012, 19h34
guillemouze
peut être parce que c'est le mauvais ordre des paramètres, le 3ème est du type "LPSECURITY_ATTRIBUTES". Ne serait-ce pas
Code:

1 2 3 CreateProcess('"Notepad.exe"', '"c:\test.txt"', Nil, ...) plutot que CreateProcess(Nil, '"Notepad.exe"', '"c:\test.txt"', ...)
C'est quoi le message du compilateur ?

C'est bon ;)

Mon code (provisoire) :

Code:

1
2
3
4
5
6
7
8
9
10
 
  StartInfo.wShowWindow := SW_SHOWMAXIMIZED;
  FillChar(StartInfo,SizeOf(StartInfo),#0);
  StartInfo.cb     := SizeOf(StartInfo);
 
  Application.Minimize;
 
  { Lancement de la ligne de commande }
  If CreateProcess(Nil,'"c:\Program Files (x86)\IDM Computer Solutions\UltraEdit-32\UEDIT32.EXE" "Z-Net.TXT"'
                   , Nil, Nil, False, 0, Nil, Nil, StartInfo, ProcessInfo) then

... sauf que l'éditeur n'est pas paramétré SW_SHOWMAXIMIZED . Mais je vais y arriver. L'essentiel est de pouvoir utiliser des variable :)

Voici le code qui fonctionne, et stoppe bien mon appli en attendant le retour du processus appelé :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Procedure Appel_6;
Var  StartInfo   : TStartupInfo;
     ProcessInfo : TProcessInformation;
     Fin         : Boolean;
     Ligne_Cmd : string;
 
begin
 
  FillChar(StartInfo,SizeOf(StartInfo),#0);
  StartInfo.cb     := SizeOf(StartInfo);
 
  Form1.Visible := False;
 
  Ligne_Cmd := PCHar(Nom_Editeur)  + ' ' + PChar(F_Cible);
 
  If CreateProcess(Nil, PChar(Ligne_Cmd)
                   , Nil, Nil, False, 0, Nil, Nil, StartInfo, ProcessInfo) then
 
  Begin
      Fin := False;
 
      Repeat
        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;
 
        Application.ProcessMessages;
      Until Fin;
    End
  Else
      begin
          RaiseLastOSError;
          Form1.Visible := True;
          Application.ShowMainForm := True;
      end;
 
  Form1.Visible := True;
  SetForegroundWindow(Handle_App);
 
End;

Seul pépin : le prog appelé (UltraEdit32) n'apparaît pas en SHOW_MAXIMIZED. Après la routine, qui doit "déconfigurer" StartupInfo, UltraEdit apparaît systématiquement en mode "Non maximized" qd je l'appelle.

Plus que ce détail à revoir. Merci pour el coup de main :hello:

01/12/2012, 20h55
tourlourou

essaye en positionnant STARTF_USESHOWWINDOW dans TStartupInfo.dwFlags et SW_MAXIMIZE dans TStartupInfo.wShowWindow