1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

BOOL CreateProcess(

    LPCTSTR lpApplicationName,  // pointer to name of executable module 
    LPTSTR lpCommandLine,  // pointer to command line string
    LPSECURITY_ATTRIBUTES lpProcessAttributes,  // pointer to process security attributes 
    LPSECURITY_ATTRIBUTES lpThreadAttributes,  // pointer to thread security attributes 
    BOOL bInheritHandles,  // handle inheritance flag 
    DWORD dwCreationFlags,  // creation flags 
    LPVOID lpEnvironment,  // pointer to new environment block 
    LPCTSTR lpCurrentDirectory,  // pointer to current directory name 
    LPSTARTUPINFO lpStartupInfo,  // pointer to STARTUPINFO 
    LPPROCESS_INFORMATION lpProcessInformation   // pointer to PROCESS_INFORMATION  
   );                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure Blabla;
var 
  hOutput : Integer;
  STUI : STARTUPINFO
begin

...
  STUI.dwFlags := STARTF_USESTDHANDLES

  {Für Input und Fehlermeldungen die Standard-Handels}
  STUI.hStdInput := GetStdHandle(STD_INPUT_HANDLE);
  STUI.hStdError := GetStdHandle(STD_ERROR_HANDLE);

  {Datei öffnen}
  hOutPut := FileOpen('xyz.txt');

  STUI.hStdOutput := hOutput;

  CreateProcess(...);

...
end;