Comment récupérer le message et le code de retour d'une fonction envoyée sur le terminal (cmd.exe)

Version imprimable

Bonjour à tous,

Aujourd'hui je m'essaye à récupérer le message et le code de retour d'une fonction envoyée sur le terminal (cmd.exe)
J'ai essayé un nombre important de solutions à partir de la commande CreateProcess sans parvenir à un résultat cohérent
par exemple :
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 if CreateProcess(nil, PChar('cmd.exe /c ' + CommandLine), nil, nil, True, CREATE_NO_WINDOW, nil, nil, StartupInfo, ProcessInfo) then begin // ------ essai 1 ---- lire aOutput, devrait renvoyer le code d'erreur WaitForSingleObject(ProcessInfo.hProcess, INFINITE); GetExitCodeProcess(ProcessInfo.hProcess, aOutPut); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); // ------ essai 2 ---- lire OutputStr devrait renvoyer le message ZeroMemory(@Buffer, SizeOf(Buffer)); CloseHandle(StdOutPipeWrite); while ReadFile(StdOutPipeRead, Buffer, SizeOf(Buffer) - 1, BytesRead, nil) and (BytesRead > 0) do begin Buffer[BytesRead] := #0; OutputStr := OutputStr + string(Buffer); end; WaitForSingleObject(ProcessInfo.hProcess, INFINITE); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); Result := Trim(OutputStr); end;
Et à chaque fois, le message renvoyé dit que "n'est pas reconnu ..."

J'essaye la commande : java -version
Dans le terminal, pas de soucis quand j'envoie la commande "cmd.exe /c java -version" mais avec le code, ça ne fonctionne pas.

Vous pouvez m'aider ?

25/05/2025, 10h26
XeGregory

2 pièce(s) jointe(s)

Citation:

Envoyé par patrice@

Et à chaque fois, le message renvoyé dit que "n'est pas reconnu ..."

Bonjour patrice
Vérifie si la variable est présente dans les variables de l'environnement Windows.

Pièce jointe 667625
https://commentouvrir.com/tech/comme...us-windows-10/

cmd.exe /c java -version
Pièce jointe 667626
25/05/2025, 10h33
patrice@

1 pièce(s) jointe(s)

Bonjour XeGregory, oui, j'ai bien mis dans le path les accès ...

Il n'y a que dans le code Delphi que ça ne fonctionne pas, en direct via le terminal tout est ok :calim2:

Pièce jointe 667628

Je pense que c'est l'utilisation de CreateProcess qui pose problème ou alors le renvoie et le traitement de l'info, mais je ne vois pas où :koi:

Citation:

Envoyé par patrice@

Bonjour XeGregory, oui, j'ai bien mis dans le path les accès ...
Il n'y a que dans le code Delphi que ça ne fonctionne pas, en direct via le terminal tout est ok :calim2:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
procedure ExecuteCommand(const CommandLine: String; out OutputMsg: String; out ExitCode: DWORD);
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  SecurityAttr: TSecurityAttributes;
  hRead, hWrite: THandle;
  Buffer: array[0..255] of AnsiChar;
  BytesRead: DWORD;
  Cmd: string;
begin
  OutputMsg := '';
  SecurityAttr.nLength := SizeOf(TSecurityAttributes);
  SecurityAttr.bInheritHandle := True;
  SecurityAttr.lpSecurityDescriptor := nil;
 
  if not CreatePipe(hRead, hWrite, @SecurityAttr, 0) then
    raise Exception.Create('Impossible de créer le pipe.');
 
  try
    ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
    StartupInfo.cb := SizeOf(StartupInfo);
    StartupInfo.hStdOutput := hWrite;
    StartupInfo.hStdError  := hWrite;
    StartupInfo.dwFlags    := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow:= SW_HIDE;
 
    Cmd := 'cmd.exe /c ' + CommandLine;
    if not CreateProcess(nil, PChar(Cmd), nil, nil, True,
      CREATE_NO_WINDOW, nil, nil, StartupInfo, ProcessInfo) then
      raise Exception.Create('Erreur lors de la création du processus.');
 
    try
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
 
      if not GetExitCodeProcess(ProcessInfo.hProcess, ExitCode) then
        raise Exception.Create('Impossible de récupérer le code de retour.');
 
      CloseHandle(hWrite);
      hWrite := 0;
 
      repeat
        if ReadFile(hRead, Buffer, SizeOf(Buffer) - 1, BytesRead, nil) then
        begin
          Buffer[BytesRead] := #0;
          OutputMsg := OutputMsg + string(Buffer);
        end;
      until BytesRead < (SizeOf(Buffer) - 1);
    finally
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
    end;
  finally
    if hRead <> 0 then CloseHandle(hRead);
    if hWrite <> 0 then CloseHandle(hWrite);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Msg: String;
  Code: DWORD;
begin
  ExecuteCommand('java -version', Msg, Code);
  ShowMessage('Message : ' + Msg + sLineBreak + 'Code de retour : ' + IntToStr(Code));
end;

25/05/2025, 10h49
patrice@

1 pièce(s) jointe(s)

Pièce jointe 667629

Merci pour le code XeGregory,
Punaise, j'y comprends rien! Qu'est qui cloche ?

Je viens d'essayer avec un simple "dir" et là ça fonctionne parfaitement bien. Donc il y a une déclaration quelque part qui ne passe pas mais où ?
25/05/2025, 10h54
XeGregory

Citation:

Envoyé par patrice@

Pièce jointe 667629

Merci pour le code XeGregory,
Punaise, j'y comprends rien! Qu'est qui cloche ?

À mon avis, le souci provient de la variable d'environnement CreateProcess qui ne parvient pas à récupérer la variable d'environnement.

Essaie pour voir si tu parviens à récupérer la variable

Code:

ShowMessage(GetEnvironmentVariable('Java'));
25/05/2025, 11h56
patrice@

Citation:

Essaie pour voir si tu parviens à récupérer la variable
ShowMessage(GetEnvironmentVariable('Java'));

Vide ... :calim2:

Il paraît que je suis éclairé (c'est pas moi qui le dit) mais là ... la lumière ne vient pas 8O
25/05/2025, 13h26
XeGregory

Citation:

Envoyé par patrice@

Il paraît que je suis éclairé (c'est pas moi qui le dit) mais là ... la lumière ne vient pas 8O

:D

Même en exécutant en tant qu'administrateur ?
26/05/2025, 06h07
patrice@

Comment on exécute Delphi en mode administrateur ?
26/05/2025, 07h52
XeGregory

Citation:

Envoyé par patrice@

Comment on exécute Delphi en mode administrateur ?

Non l'application

Certainement un problème de redirection.
Ton app 32 bits lance cmd.exe 32 bits alors qu'en le lançant "à la main" c'est la version 64 bits. Les chemins dépendant de Wow64 sont redirigés et celui de Java ne peut pas être résolu.

Essaie de compiler ton code en 64 bits ou désactive temporairement la redirection :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 function Wow64DisableWow64FsRedirection(var OldValue: LongBool): LongBool; stdcall; external Kernel32 delayed; function Wow64RevertWow64FsRedirection(var OldValue: LongBool): LongBool; stdcall; external Kernel32 delayed; var OldValue :LongBool; begin if Wow64DisableWow64FsRedirection(OldValue) then begin if CreateProcess(...) then ...; Wow64RevertWow64FsRedirection(OldValue); end; end;

26/05/2025, 12h59
Invité

Dans la commande tu peux fixer le chemin par défaut de cmd.exe:

cmd.exe /c cd C:\Program Files\Java\.votre version\bin && ' + CommandLine

ou via set path

cmd.exe /c SET PATH=%PATH%;C:\Program Files\Java\.votre version\bin && ' + CommandLine
26/05/2025, 18h58
patrice@

Alors ... j'ai re copié le code de XeGregory et j'ai réessayé
ben ça fonctionne 8O
Je note quand même tout ce qui a été dit dans ce post, et si les galères des uns peuvent servir à d'autres ...
Merci à tous d'avoir pris du temps