Ausgabe eines DOS-Programmes

[CalganX]

Hi,
ich habe bereits gesucht und auch was [dp="CaptureDOSCommand"]gefunden[/dp]. Allerdings funktioniert das nicht, wenn der User Eingaben machen muss. Was durchaus vorkommen kann.
Also wollte ich mich dem alten DOS-Trick bedienen und mit Hilfe von > die Ausgaben in eine Datei umleiten, um die Ausgabe zu erhalten aber gleichzeitig die Abfragen mitzubekommen. Also habe ich mir den String zusammengebastelt, der den Befehl enthalten soll und die Parameter angefügt und versucht mit Hilfe von ShellExecute das ganze auszuführen. Das hat allerdings nicht funktioniert, weil die Ausgabe-Datei nicht erzeugt wurde.
Dann habe ich es wie in dem gefundenen Source mit CreateProcess versucht. Das sieht dann so aus:

Delphi-Quellcode:

var
  sCommand: string;
  Startup: TStartUpInfo;
  ProcessInfo: TProcessInformation;
begin
{...}
      FillChar(Startup,Sizeof(Startup),#0);
      Startup.cb          := SizeOf(Startup);
      Startup.dwFlags     := STARTF_USESTDHANDLES +
                             STARTF_USESHOWWINDOW;
      Startup.wShowWindow := SW_SHOW;

      CreateProcess(nil,
        PChar(sCommand),
        nil,
        nil,
        true,
        NORMAL_PRIORITY_CLASS,
        nil,
        nil,
        Startup,
        ProcessInfo);
{...}
end;

Allerdings funktioniert das mit der gleichen Folge nicht: die Datei wird nicht erstellt.
Das Problem ist nur, dass auch der Befehl an sich nicht ausgeführt wird, obwohl in dem Testfall keine Abfragen an den User gestellt werden.
Der Befehls-String sieht z.B. so aus:

Code:

xcopy.exe "D:\Coden\work in progress\Xcopy-GUI\Source\*.pas" "D:\Coden\work in progress\Xcopy-GUI\Temp\" /Y > output.log

Wenn ich das in der Eingabeaufforderung das ganze ausführe, funktioniert das wunderbar.

Hat jemand dafür eine Erklärung/Lösung des ursprünglichen Problems, dass ich die Ausgabe brauche, aber trotzdem die Abfragen des Programms eingeben will (meinetwegen auch automatisch)?

Danke für jede Hilfe,
Chris