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

      ProgRunning:=True;
      repeat
        AtWork:=WaitForSingleObject(ProcInfo.hProcess,100);
        Application.ProcessMessages;
        PeekNamedPipe(StdOutRead,nil,0,nil,@WaitSize,nil);
        if WaitSize > 0 then
        begin
          repeat
            BytesRead:=0;
            ReadFile(StdOutRead,Buffer[0],BufferSize,BytesRead,nil);
            Buffer[BytesRead]:=#0;
            OemToAnsi(Buffer,Buffer);
            Text:=Text+StrPas(Buffer);
          until BytesRead < BufferSize;
        end;
      until AtWork = 0;
      ProgRunning:=False;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  wr, sz: DWORD;
  pc: PChar;
begin
  if ProgRunning then
  begin
    if Key = chr(13) then
    begin
      pc:=PChar(Tasten+#13#10);
      sz:=Length(pc);
      WriteFile(StdInWrite,pc[0],sz,wr,nil);					

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

if CreatePipe(StdOutRead,StdOutWrite,@Security,0) then
  if CreatePipe(StdInRead,StdInWrite,@Security,0) then
  begin
    with StartInfo do
    begin
      cb:=SizeOf(StartInfo);
      hStdInput:=StdInRead;
      hStdOutput:=StdOutWrite;