BCB中调用DOS程序

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char readBuf[5000];
        DWORD bytesRead=0;
        HANDLE hReadPipe,hWritePipe;
        PROCESS_INFORMATION pi;
        LPPROCESS_INFORMATION lppi;
        SECURITY_ATTRIBUTES lsa;        //安全属性
        STARTUPINFO myStartup;

        lsa.nLength = sizeof(SECURITY_ATTRIBUTES);
        lsa.lpSecurityDescriptor = NULL;
        lsa.bInheritHandle = true;

        lppi = π
        //创建管道
        if(CreatePipe(&hReadPipe,&hWritePipe,&lsa,0))
                ShowMessage("Pipe Created OK ./n");
        else{
                ShowMessage("Pipe Creation Error");
                return;
        }

        memset(&myStartup,0,sizeof(STARTUPINFO));
        myStartup.cb = sizeof(STARTUPINFO);
        myStartup.dwFlags = STARTF_USESHOWWINDOW|STARTF_USESTDHANDLES;
        myStartup.wShowWindow = SW_HIDE;
        myStartup.hStdOutput = hWritePipe;

      if(!CreateProcess("d://test.exe",NULL,NULL,NULL,true,CREATE_NEW_CONSOLE,
                      NULL,NULL,&myStartup,&pi)){
                ShowMessage("CreateProcess error:"+IntToStr(GetLastError()));
                return;
      }

        while(true){
                bytesRead = 0;
                if(!PeekNamedPipe(hReadPipe,readBuf,1,&bytesRead,NULL,NULL))
                        break;
                if(bytesRead){
                        if(!ReadFile(hReadPipe,readBuf,4096,&bytesRead,NULL))
                                break;
                        readBuf[bytesRead] = 0;
                        Memo1->Text = Memo1->Text+ "Read " + IntToStr(bytesRead)
                                + "bytes from pipe" + readBuf;
                }else{
                        if(WaitForSingleObject(pi.hProcess,0)==WAIT_OBJECT_0)
                                break;
                        Sleep(256);
                }
        }

        CloseHandle(hReadPipe);
        CloseHandle(pi.hThread);
        CloseHandle(pi.hProcess);
        CloseHandle(hWritePipe);