求教高手前辈！ 关于输入输出重定向的问题 ( 积分: 200 )

在下想用一个memo表示某个DOS或win32控制台程序的输入输出。在没有任何需要输入的时候程序运行的很正常，如执行dir之类的命令，但是在有需要输入的时候就无法响应了，这种输出的重定向该怎么写，望各位高手前辈指点！

我的输入重定向程序如下：
function GetDosOutput(const CommandLine:string;s:TStrings): string;
var
SA: TSecurityAttributes;
SI: TStartupInfo;
PI: TProcessInformation;
StdOutPipeRead, StdOutPipeWrite: THandle;
WasOK: Boolean;
Buffer: array[0..255] of Char;
BytesRead: Cardinal;
WorkDir, Line: String;
begin
with SA do
begin
nLength := SizeOf(SA);
bInheritHandle := True;
lpSecurityDescriptor := nil;
end;
CreatePipe(StdOutPipeRead, // read handle
StdOutPipeWrite, // write handle
@SA, // security attributes
0 // number of bytes reserved for pipe - 0 default
);
try
with SI do
begin
FillChar(SI, SizeOf(SI), 0);
cb := SizeOf(SI);
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
wShowWindow := SW_SHOW;
hStdInput := GetStdHandle(STD_INPUT_HANDLE); // don't redirect stdinput
hStdOutput := StdOutPipeWrite;
hStdError := StdOutPipeWrite;
end;

WorkDir := ExtractFilePath(CommandLine);
WasOK := CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil,
PChar(WorkDir), SI, PI);

CloseHandle(StdOutPipeWrite);

if not WasOK then
raise Exception.Create('Could not execute command line!')
else
try
Line := '';
repeat
WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);

if BytesRead > 0 then begin
Buffer[BytesRead] := #0;
s.Append(Buffer);
end;
until not WasOK or (BytesRead = 0);
WaitForSingleObject(PI.hProcess, INFINITE);
finally
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end;
finally
result:=Line;
CloseHandle(StdOutPipeRead);
end;
end;

在执行GetDosOutput('C:/WINDOWS/system32/attrib.exe',Memo1.Lines)时很正常，但是执行的是诸如这样的程序
writeln("hello!"
write("input : "
readln(x);
for i:=0 to x writeln(inttostr(i));
时该怎么向这个程序输入这个 x 呀?再进一步如果 x 很大我想用Ctrl+C结束又该如何?

在下想用一个memo表示某个DOS或win32控制台程序的输入输出。在没有任何需要输入的时候程序运行的很正常，如执行dir之类的命令，但是在有需要输入的时候就无法响应了，这种输出的重定向该怎么写，望各位高手前辈指点！

我的输入重定向程序如下：
function GetDosOutput(const CommandLine:string;s:TStrings): string;
var
SA: TSecurityAttributes;
SI: TStartupInfo;
PI: TProcessInformation;
StdOutPipeRead, StdOutPipeWrite: THandle;
WasOK: Boolean;
Buffer: array[0..255] of Char;
BytesRead: Cardinal;
WorkDir, Line: String;
begin
with SA do
begin
nLength := SizeOf(SA);
bInheritHandle := True;
lpSecurityDescriptor := nil;
end;
CreatePipe(StdOutPipeRead, // read handle
StdOutPipeWrite, // write handle
@SA, // security attributes
0 // number of bytes reserved for pipe - 0 default
);
try
with SI do
begin
FillChar(SI, SizeOf(SI), 0);
cb := SizeOf(SI);
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
wShowWindow := SW_SHOW;
hStdInput := GetStdHandle(STD_INPUT_HANDLE); // don't redirect stdinput
hStdOutput := StdOutPipeWrite;
hStdError := StdOutPipeWrite;
end;

WorkDir := ExtractFilePath(CommandLine);
WasOK := CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil,
PChar(WorkDir), SI, PI);

CloseHandle(StdOutPipeWrite);

if not WasOK then
raise Exception.Create('Could not execute command line!')
else
try
Line := '';
repeat
WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);

if BytesRead > 0 then begin
Buffer[BytesRead] := #0;
s.Append(Buffer);
end;
until not WasOK or (BytesRead = 0);
WaitForSingleObject(PI.hProcess, INFINITE);
finally
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end;
finally
result:=Line;
CloseHandle(StdOutPipeRead);
end;
end;

在执行GetDosOutput('C:/WINDOWS/system32/attrib.exe',Memo1.Lines)时很正常，但是执行的是诸如这样的程序
writeln("hello!"
write("input : "
readln(x);
for i:=0 to x writeln(inttostr(i));
时该怎么向这个程序输入这个 x 呀?再进一步如果 x 很大我想用Ctrl+C结束又该如何?

直接用DOS的重定向命令就可以么
type Memo.txt|your.exe

大致是这样，多年不玩DOS，记不确切了。

memo.txt里是要输入的数据，包括回车。比方上例的X ，写到MEMO.txt中就可以了。
输出可以放到另一个文本文件
type Memo.txt|your.exe>memo2.txt
如果要追加，就type Memo.txt|your.exe>>memo2.txt,就不会覆盖MEMO2.txt中已有的内容。

如果我说的能用，说明我记性还不坏。：）

Ctrl+C结束不一定能输进memo去，用CTRL+Z也可能一样。
看看能不能直接发给DOS。