我有以下批处理脚本：
dir | myapp.exe
该程序有这个来源(或多或少)：
procedure TForm1.FormCreate(Sender: TObject); var buff: String; begin Read(buff); Memo1.Lines.Text:=buff; end;
备忘录中的输出是：
Volume in drive C has no label.
我试过了：
>将读取部分放入以eof作为条件的循环中 – 以某种方式导致无限循环
>写一个循环来保持读数直到strlen(buff)为0 – 它出于某种原因退出第二次
>读取东西0.5秒(我正在考虑异步写入stdin),这也失败了
解决方法
GUI应用程序没有自动分配stdin,stdout或stderr.你可以这样做：
procedure TForm1.FormCreate(Sender: TObject);
var
Buffer: array[0..1000] of Byte;
StdIn: TStream;
Count: Integer;
begin
StdIn := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
Count := StdIn.Read(Buffer,1000);
StdIn.Free;
ShowMessageFmt('%d',[Count]);
end;
如果你这样做
dir *.pas | myapp.exe
您会看到一个带有数字>的消息框0,如果你这样做：
myapp.exe
您将看到一个带有0的消息框.在这两种情况下,都会显示该表单.