Окно DOS (cmd) в окне программы

void CaptureConsoleOutput(String ACommand, String AParameters, TMemo *AMemo)
{
    const int CReadBuffer = 256;
    char pBuffer[CReadBuffer];
 
    SECURITY_ATTRIBUTES saSecurity = {0};
    saSecurity.nLength = sizeof(saSecurity);
    saSecurity.bInheritHandle = true;
    saSecurity.lpSecurityDescriptor = 0;
 
    HANDLE hRead, hWrite;
 
    if(::CreatePipe(&hRead, &hWrite, &saSecurity, 0))
    {
        STARTUPINFO suiStartup = {0};
        PROCESS_INFORMATION piProcess;
 
        suiStartup.cb = sizeof(suiStartup);
        suiStartup.hStdInput = hRead;
        suiStartup.hStdOutput = hWrite;
        suiStartup.hStdError = hWrite;
        suiStartup.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
        suiStartup.wShowWindow = SW_HIDE;
 
        if(::CreateProcess(0, (ACommand + " " + AParameters).c_str(), &saSecurity,
            &saSecurity, true, NORMAL_PRIORITY_CLASS, 0, 0, &suiStartup, &piProcess))
        {
            DWORD dRunning, dRead;
            do
            {
                dRunning = ::WaitForSingleObject(piProcess.hProcess, 100);
                Application->ProcessMessages();
                do
                {
                    dRead = 0;
                    ::ReadFile(hRead, pBuffer, CReadBuffer, &dRead, 0);
                    pBuffer[dRead] = 0;
                    // OemToAnsi(pBuffer, pBuffer);
                    AMemo->Lines->Add(pBuffer);
                } while(dRead >= CReadBuffer);
            } while(dRunning != WAIT_TIMEOUT);
 
            ::CloseHandle(piProcess.hProcess);
            ::CloseHandle(piProcess.hThread);
        }
        ::CloseHandle(hRead);
        ::CloseHandle(hWrite);
    }
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    CaptureConsoleOutput("D:\\test\\prog_001.exe", "", Memo1);
}

CaptureConsoleOutput("ping","cyberforum.ru", Memo1);