Discussion :

[sinfoni]

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;

[ShaiLeTroll]

CREATE_NO_WINDOW n'en serait-il pas la cause ?
Essaye CREATE_NEW_CONSOLE

[sinfoni]

Finalement, j'ai écrit ma propre procédure imitant "tree.com" en delphi dans mon projet... Au moins je suis sûr que le format sera toujours le même....

Merci.