在Delphi控制台应用程序中在stdin/stdout上打开TStream

我试图写一个Delphi控制台应用程序创建一个TStream的标准输入，另一个TStream的标准输出。

(它将由主机应用程序启动，其输入和输出重定向到管道，并且将向/从该主机应用程序传递二进制数据，因此TStream将比ReadLn / WriteLn更适合任务)。

如何在标准输入或标准输出上打开TStream？

解决方法

离开我的头顶：

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

给一个去..