CreateProcess sur tree.com
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:
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; |
