Return value van external command line application

[Verwijderd]

Ik ben al een hele poos opzoek naar een oplossing om een return value van een external command line application op te vangen in mijn delphi application.

Ik gebruik ShellExecuteEx om het externe programmatje te starten, wanneer het programma succesvol verloopt returnt het een 0 als er fouten optreden wordt -1 teruggegeven. Alleen krijg ik nergens gevonden hoe ik deze return value kan afvangen. Het enige wat ik tegen kom is een return value van de ShellExecute zelf en niet van het programma wat daarmee wordt gerunt.

Mijn code die ik op dit moment gebruik:

code:

var
  SEInfo: TShellExecuteInfo; //contains the info of the shellexecute api
  ExitCode: DWORD;
  execFile, params, dir : String;
  resultCode : Integer;
begin
  execFile := 'testapp.exe';
  params := '--direction ' + way + ' --device ' + device + ' --data-file ' +
  xmlfile + ' --config-file testconfig..xml';
  dir := 'externalSoftware/';

  // Setup the ShellExecute info
  FillChar(SEInfo, SizeOf(SEInfo), 0) ;
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecFile);
    lpParameters := PChar(params);
    lpDirectory := PChar(dir);
    nShow := SW_HIDE;
  end;

  // Start the shell executen and wait for it to finish
  if(ShellExecuteEx(@SEInfo)) then
  begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until(ExitCode <> STILL_ACTIVE) or Application.Terminated;
          result := True
  end
  else
    result := False;

Heeft iemand enig idee of ervaring met dit probleem?

Alvast enorm bedankt!

[MSalters]

Je programma werkt al, alleen krijg je blijkbaar niet de waarde die je verwacht. GetExitCodeProcess() geeft in ExitCode de daadwerkelijke waarde terug. Ik snap alleen niet wat "until Application.Terminated" zou moeten doen. Welke application denk je dat 'Application" is?

[Verwijderd]

GetExitCodeProcess geeft dus juist de return value van ShellExecuteEx terug. niet van de applicatie die daardoor gestart is. En ik ben er niet in geinteresseerd of shellexecuteex goed verloopt, ik wil weten wat de externe applicatie opleverd..

[elevator]

Ik heb zelf geen ervaring met ShellExecute te gebruiken hiervoor maar gebruikte hier CreateProcess() voor.

[MSalters]

Verwijderd schreef op dinsdag 17 februari 2009 @ 10:08:
GetExitCodeProcess geeft dus juist de return value van ShellExecuteEx terug. niet van de applicatie die daardoor gestart is. En ik ben er niet in geinteresseerd of shellexecuteex goed verloopt, ik wil weten wat de externe applicatie opleverd..

Nee - de return value van ShellExecuteEx is de waarde van x, na het statement x=ShellExecuteEx(argumenten);

Ik vermoed dat je niet bekend met de gebruikelijke terminologie. Wat wil je nu eigenlijk hebben?

[Verwijderd]

Je hebt gelijk, jammer alleen dat je zo reageerd. Een mens kan nou eenmaal fouten maken..

ik heb het uiteindelijk zo opgelost:

code:

repeat
  Application.ProcessMessages;
  GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until(ExitCode <> STILL_ACTIVE);
  if(ExitCode = 0) then;
    result := True;
  end
    else
      result := False;

[.oisyn]

Je kunt beter MsgWaitForMultipleObjects() gebruiken - nu zal je loop altijd 100% CPU-tijd gebruiken. Maar een process handle is ook een waitable object - als je daarop een van de wait functies aanroept dan wacht ie tot het proces is afgesloten. Vervolgens gebruik je dan natuurlijk MsgWaitForMultipleObjects ipv WaitForSingleObject omdat je ook nog messages wil processen en niet alleen op het proces wilt wachten.

Dat wordt dan zoiets (let wel, ik ben geen Delphi expert)

Delphi:

repeat
  Application.ProcessMessages;
until(MsgWaitForMultipleObjects(1, @SEInfo.hProcess, TRUE, INFINITE, QS_ALLEVENTS) <> WAIT_OBJECT_0);
GetExitCodeProcess(SEInfo.hProcess, ExitCode);

[ Voor 25% gewijzigd door .oisyn op 17-02-2009 12:14 ]