1:
2:
3:

AllocConsole();
 _snprintf(idleTitle, sizeof(idleTitle), "SetiStashConsoleWindow%d", GetCurrentProcessId());
 SetConsoleTitle(idleTitle);					

1:
2:
3:
4:
5:
6:
7:

GetStdHandle( Value: DWord ): THandle;
{
Value: 
 - STD_INPUT_HANDLE Handle to the standard input device. Initially, this is a handle to the console input buffer, CONIN$. 
 - STD_OUTPUT_HANDLE Handle to the standard output device. Initially, this is a handle to the active console screen buffer, CONOUT$. 
 - STD_ERROR_HANDLE Handle to the standard error device. Initially, this is a handle to the active console screen buffer, CONOUT$. 
}					

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

private
  aPI       : TProcessInformation;

var
  aSI: TStartupInfo;

// auszuführender DOS-Befehl
    // TStartupInfo-Datenstruktur initialisieren 
    FillChar(aSI, Sizeof(aSI), #0); 
    with aSI do begin 
      cb := Sizeof(aSI); 
      dwFlags := STARTF_USESHOWWINDOW; 
      wShowWindow := SW_SHOWDEFAULT; 
    end; 
    // DOS-Programm als neuen Process starten 
    CreateProcess(nil, 'F:\seti.exe', nil, nil, False,
      CREATE_SEPARATE_WOW_VDM or NORMAL_PRIORITY_CLASS, 
      nil, nil, aSI, aPI);