Bonjour,

Quelqu'un peut-il me dire ce qui cloche ?
CreateProcess renvoie bien TRUE, mais la commande n'est pas exécutée, et tree.com n'apparait effectivement pas, même furetivement dans le gestionnaire de tâches.
Si je copie la commande et l'exécute depuis une fenêtre DOS, pas de souci.
Idem si je copie la commande dans Démarrer->Exécuter (marche pas non plus).

Etrange...

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
 
vc_cmd := '"tree.com" c:\ > "c:\tree.txt" ';
      FillChar(StartInfo,SizeOf(StartInfo),#0);
      StartInfo.cb     := SizeOf(StartInfo);
      If CreateProcess(Nil,
                       PChar(vc_cmd),
                       Nil,
                       Nil,
                       False,
                       CREATE_NO_WINDOW,
                       Nil,
                       "c:\",
                       StartInfo,
                       ProcessInfo) Then begin
        vl_Fin:=False;
        Repeat
          { On attend la fin de l'application }
          Case WaitForSingleObject(ProcessInfo.hProcess, 200) Of
            WAIT_OBJECT_0 : vl_Fin:=True; { L'application est terminée, on sort }
            WAIT_TIMEOUT  :;          { elle n'est pas terminée, on continue d'attendre }
          End;
        Until vl_Fin;
      end;