TShellExecuteInfo --> CMDShow Command Box beim schlissen hindern

[ATS3788]

Moin Gutes und tolles 2014
Hallo ich habe diese tolle Funktion
ich glaube von hier.

Meine Frage

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

CmdShow != SW_SHOW;

Gibt es eine Möglichkeit den Text abzufangen der kurzweilig in der COMMAND Box
angezeigt wird, für Debug Zwecke.

Delphi-Quellcode:

function ShellExecAndWait(const FileName, Directory, Parameters, Verb: string; CmdShow: Integer): Boolean;
var
   SEI: TShellExecuteInfo;
begin
   FillChar(SEI, SizeOf(SEI), #0);
   SEI.cbSize := SizeOf(SEI);
   SEI.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS;
   SEI.lpFile := PCharOrNil(FileName);
   SEI.lpDirectory := PCharOrNil(Directory);
   SEI.lpParameters := PCharOrNil(Parameters);
   SEI.lpVerb := PCharOrNil(Verb);
   SEI.nShow := CmdShow;
   Result := ShellExecuteEx(@SEI);
   if Result then
   begin
     WaitForInputIdle(SEI.hProcess, INFINITE);
     WaitForSingleObject(SEI.hProcess, INFINITE);
     CloseHandle(SEI.hProcess);
   end;
end;

Hall Admin kannst Du bitten den Rechtschreibfehler in der Überschrift korrigieren