打开标准输入/ T流一个在德尔福控制台应用程序标准输出

Question

我试图写为它的标准输入创建一个T流一个Delphi控制台应用程序，而另一个T流对于它的标准输出。

（它会通过与它的输入和重定向到管道输出的宿主应用程序被启动，并且将来自该主机应用程序传递的二进制数据到/，所以T流会更好地适合于比ReadLn / WriteLn的任务。 ）

我如何去有关标准输入或标准输出打开一个T流？

Answer 1

关我的头的顶部：

  InputStream := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
  OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));

给一个去..