批处理文件,窗口中显示

完整代码示例：
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------
String ExecuteApp(String sCmdline,TMemo *MyMemo)
{
    PROCESS_INFORMATION proc = {0};
    long ret;//,k=1
    bool bret;
    STARTUPINFO start = {0};
    SECURITY_ATTRIBUTES sa = {0};
    HANDLE hReadPipe ;
    HANDLE hWritePipe;
    String sOutput;
    String sBuffer;
    unsigned long lngBytesRead;
    char cBuffer[257];
    sa.nLength = sizeof(sa);
    sa.lpSecurityDescriptor=0;
    sa.bInheritHandle = TRUE;
    bret =::CreatePipe(&hReadPipe, &hWritePipe,&sa, 0);
    if (!bret)
    {
        sOutput="CreatePipe failed. Error: " + String(GetLastError());
        MyMemo->Lines->Add(sOutput);
        return sOutput;
    }
    start.cb = sizeof(STARTUPINFOA);
    start.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
    start.hStdOutput = hWritePipe;
    start.hStdError = hWritePipe;
    start.wShowWindow = SW_HIDE;
    sBuffer = sCmdline;
    ret =::CreateProcess(0, sBuffer.c_str(), &sa, &sa, TRUE, NORMAL_PRIORITY_CLASS, 0, 0, &start, &proc);
    if (ret == 0)
    {
        sOutput="Bad command or filename";
        MyMemo->Lines->Add(sOutput);
        return sOutput;
    }
    ::CloseHandle(hWritePipe);
    do
    {
        memset(cBuffer,'/0',sizeof(cBuffer));
        ret = ::ReadFile(hReadPipe, &cBuffer, 256, &lngBytesRead, 0);
        sBuffer=StrPas(cBuffer);
        sOutput = sOutput + sBuffer;
        MyMemo->Text=MyMemo->Text+sBuffer;
        Application->ProcessMessages();

    } while (ret != 0 );
    ::CloseHandle(proc.hProcess);
    ::CloseHandle(proc.hThread);
    ::CloseHandle(hReadPipe);
    return sOutput;
}
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//ExecuteApp("ping 127.0.0.1",Memo1);
ExecuteApp("DirCD.bat",Memo1);
}
//---------------------------------------------------------------------------