Delphi + Kommandozeile, Kernel32.dll Fehler

[torro]

Hi,
ich versuche gerade aus meinem Delphi Programm heraus ein Pythonscript zu starten und zu steuern.
Um über die CMD mit dem script zu kommunizieren habe ich fertigen Code gefunden (ja ich habe cmd auch mal durch comman.con ausgetauscht). Ziel ist es ein Pythonscript im interaktiven Modus von meinem Programm zu steuern.

Delphi-Quellcode:

function GetConsoleOutput(const Command: string;
  Output, Errors: TStringList): Boolean;
var
  Buffer: array [0 .. 255] of Char;
  CreationFlags: DWORD;
  NumberOfBytesRead: DWORD;
  PipeErrorsRead: THandle;
  PipeErrorsWrite: THandle;
  PipeOutputRead: THandle;
  PipeOutputWrite: THandle;
  ProcessInfo: TProcessInformation;
  SecurityAttr: TSecurityAttributes;
  StartupInfo: TStartupInfo;
  Stream: TMemoryStream;
begin
  // Initialisierung ProcessInfo
  FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);

  // Initialisierung SecurityAttr
  FillChar(SecurityAttr, SizeOf(TSecurityAttributes), 0);
  SecurityAttr.nLength := SizeOf(TSecurityAttributes);
  SecurityAttr.bInheritHandle := True;
  SecurityAttr.lpSecurityDescriptor := nil;

  // Pipes erzeugen
  CreatePipe(PipeOutputRead, PipeOutputWrite, @SecurityAttr, 0);
  CreatePipe(PipeErrorsRead, PipeErrorsWrite, @SecurityAttr, 0);

  // Initialisierung StartupInfo
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := SizeOf(TStartupInfo);
  StartupInfo.hStdInput := 0;
  StartupInfo.hStdOutput := PipeOutputWrite;
  StartupInfo.hStdError := PipeErrorsWrite;
  StartupInfo.wShowWindow := SW_HIDE;
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;

  CreationFlags := CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS;

  if CreateProcess(nil, PChar(Command), nil, nil, True, CreationFlags, nil, nil,
    StartupInfo, ProcessInfo) then  // Debugger hält hier
  begin
    Result := True;
    // Write-Pipes schließen
    CloseHandle(PipeOutputWrite);
    CloseHandle(PipeErrorsWrite);

    // Ausgabe Read-Pipe auslesen
    Stream := TMemoryStream.Create;
    try
      while ReadFile(PipeOutputRead, Buffer, 255, NumberOfBytesRead, nil) do
      begin
        Stream.Write(Buffer, NumberOfBytesRead);
      end;
      Stream.Position := 0;
      Output.LoadFromStream(Stream);
    finally
      Stream.Free;
    end;
    CloseHandle(PipeOutputRead);

    // Fehler Read-Pipe auslesen
    Stream := TMemoryStream.Create;
    try
      while ReadFile(PipeErrorsRead, Buffer, 255, NumberOfBytesRead, nil) do
      begin
        Stream.Write(Buffer, NumberOfBytesRead);
      end;
      Stream.Position := 0;
      Errors.LoadFromStream(Stream);
    finally
      Stream.Free;
    end;
    CloseHandle(PipeErrorsRead);

    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    CloseHandle(ProcessInfo.hProcess);
  end
  else
  begin
    Result := False;
    CloseHandle(PipeOutputRead);
    CloseHandle(PipeOutputWrite);
    CloseHandle(PipeErrorsRead);
    CloseHandle(PipeErrorsWrite);
  end;
end;

Mitgeliefert wurde ein Bsp:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Output : TStringList;
  Errors : TStringList;
begin
  Output := TStringList.Create;
  Errors := TStringList.Create;
  try
    if GetConsoleOutput('cmd /c dir c:', Output, Errors) then
      Memo1.Lines.AddStrings(Output);
  finally
    Output.free;
    Errors.free;
  end;
end;

Beim ausführen erhalte ich jedes mal folgende Fehlermeldung:
Screenshot der Fehlermeldung

Wenn man den Debugger ausführt sieht man, dass das Programm an folgender Stelle hält:

Delphi-Quellcode:

  if CreateProcess(nil, PChar(Command), nil, nil, True, CreationFlags, nil, nil,
    StartupInfo, ProcessInfo) then

Nun meine Frage: Wieso?

Danke im vorraus.

[torro]

Kann Closed werden / gelöscht werden.

[Bernhard Geyer]

Und wieso sollten wir das Löschen?
Hast du es gelöst? Teilst du uns auch mit was du falsch gemacht hast?

[DeddyH]

Und woran lag es? Vielleicht hat jemand anderes dieses Problem ja auch einmal und ist an der Lösung interessiert.

[edit] Roter Kasten, wo bist Du? @Bernhard: [/edit]

[Der schöne Günther]

Interessant wäre jetzt der Wert von Command und der Inhalt der entsprechenden Strukturen für CreateProcess gewesen...

[baumina]

Hier war schon mal so ein Problem mit Lösung, vielleicht hilfts dir ja auch:
http://www.delphipraxis.net/168425-a...teprocess.html