Récupérer le code retour d'un exe lancer par CreateProcessRésolu

Question

bonjour,
depuis une application Delphi, je lance un ex&#233;cutable C++avec un fichier de donn&#233;es comme param&#232;tr. Cet exe C++  retourne un entier qui permet de savoir si l'ex&#233;cution s'est bien d&#233;roul&#233;e ou non (-1 : OK, sinon un nombre entier )

J'aimerais r&#233;cup&#233;rer ce code retour dans mon code delphi pour traiter ensuite les erreurs potentielles.

comment faire?

merci beaucoup

CI-joint mon code delphi :
var
{ Variables li&#233;es &#224; l'ex&#233;cution d'un ex&#233;cutable externe }
  StartInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  Fin: Boolean;
  processALancer: string;


   lpExitCode: Longword;
  {Fin Variables li&#233;es &#224; l'ex&#233;cution d'un ex&#233;cutable externe }

begin
...
        { Mise &#224; z&#233;ro de la structure StartInfo }
          FillChar(StartInfo, SizeOf(StartInfo), #0);


          { Seule la taille est renseign&#233;e, toutes les autres options }
          { laiss&#233;es &#224; z&#233;ro prendront les valeurs par d&#233;faut }
          StartInfo.cb := SizeOf(StartInfo);


          processALancer := nomPathExe + nomModelExe + ' ' + nomFichierSelectionne;
    
          { Permet de cacher l'application externe appel&#233;e}
           StartInfo.dwFlags:=STARTF_USESHOWWINDOW;
           StartInfo.wShowWindow:=SW_HIDE;

        { Lancement de la ligne de commande }
          if CreateProcess(nil, PAnsiChar(processALancer), nil, nil, False,
            0, nil, nil, StartInfo, ProcessInfo) then
           begin
              // L'application est bien lanc&#233;e, on va en attendre la fin
              // ProcessInfo.hProcess contient le handle du process principal de l'application
              Fin := False;
              repeat
                // On attend la fin de l'application
                case WaitForSingleObject(ProcessInfo.hProcess, 200) of
                  WAIT_OBJECT_0: Fin := True; // L'application est termin&#233;e, on sort
                  WAIT_TIMEOUT: ; // elle n'est pas termin&#233;e, on continue d'attendre
                end;
                // Mise &#224; jour de la fen&#234;tre pour que l'application ne paraisse pas bloqu&#233;e.
                Application.ProcessMessages;
              until Fin;
            end
          else RaiseLastOSError;
end;

Cirec · Accepted Answer

Salut,
j'ai fait quelques testes et voici ce que j'ai trouv&#233; :

Var lpExitCode : Cardinal

    WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
// avant de refermer les handles ce que normalement tu devrais faire 
// tu utilises la fonction GetExitCodeProcess
    GetExitCodeProcess(ProcessInformation.hProcess, lpExitCode);
    CloseHandle( ProcessInformation.hProcess );
    CloseHandle( ProcessInformation.hThread );
// exemple pour afficher le r&#233;sultat
    Form1.Label1.Caption := IntToStr(lpExitCode); 

j'ai fait un prog que je termine soit par halt(0) o&#249; halt(1) o&#249; halt(2) et j'ai &#224; chaques fois j'ai r&#233;cuper&#233; le code de sortie. 
Mais avec un code de sortie = &#224; -1 je ne sais pas si &#231;a fonctionne puisque halt n'accepte que des valeurs positives

@+
Cirec

Récupérer le code retour d'un exe lancer par CreateProcess

1 réponse

Votre réponse

Discussions similaires