Использование memo как консоли

//---------------------------------------------------------------------------
 
#ifndef Dos2MemoH
#define Dos2MemoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMemo *MemoOutput;
    TLabel *Label1;
    TLabel *Label2;
    TMemo *MemoInput;
    TSplitter *Splitter1;
    void __fastcall MemoInputKeyPress(TObject *Sender, wchar_t &Key);
private:    // User declarations
    void Dos2MemoF(const AnsiString &sCommandLine);
 
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

// ---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
// ---------------------------------------------------------------------------
// standard
#include <memory>
#include <string>
#include <iostream>
#include <istream>
// vcl
#include <IOUtils.hpp>
#include <StrUtils.hpp>
// header
#include "Dos2Memo.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
}
 
// ---------------------------------------------------------------------------
void AddOemLine(TStrings *AStrings, std::ifstream & /* out */ ifile) {
    std::string sLine = "";
    std::getline(ifile, sLine);
    char *chBuff = new char[sLine.size() + 1];
    OemToAnsi(sLine.c_str(), chBuff);
    AStrings->Add(chBuff);
    delete[]chBuff;
}
 
// ---------------------------------------------------------------------------
void CMD2Memo(TStrings *AStrings, const AnsiString &sCommandLine) {
    // корневая директория программы
    const AnsiString sRootDir = ExtractFilePath(Application->ExeName);
    // временные файлы, куда будем перенаправлять консоль
    const AnsiString sTempFileName = sRootDir + "temp_file_name~.cmd";
    const AnsiString sOutputFile = sRootDir + "stdout~.txt";
    // командную строку записываем в батник
    TFile::WriteAllText(sTempFileName, sCommandLine);
 
    // переменная которая будет показывать, что батник ещё исполняется
    DWORD dwAppRunning = 0;
 
    SECURITY_ATTRIBUTES sa;
    sa.nLength = sizeof(sa);
    sa.bInheritHandle = TRUE;
    sa.lpSecurityDescriptor = NULL;
 
    // создаём файл, куда будет перенаправляться вывод из консоли
    HANDLE hFile = CreateFileA(sOutputFile.c_str(), GENERIC_WRITE | GENERIC_READ,
        FILE_SHARE_READ | FILE_SHARE_WRITE, &sa, CREATE_ALWAYS, 0, NULL);
 
    SetFilePointer(hFile, 0, NULL, FILE_END);
 
    STARTUPINFOA si = {
        sizeof(STARTUPINFOA)
    };
 
    si.hStdOutput = hFile;
    si.hStdError = hFile;
    si.dwFlags = STARTF_USESTDHANDLES;
    si.wShowWindow = SW_HIDE;
 
    PROCESS_INFORMATION pi;
 
    // открываем созданный файл для чтения
    std::ifstream ifile(sOutputFile.c_str());
    if (!ifile.is_open()) {
        return;
    }
 
    // запускаем батник
    bool bSuccess = CreateProcessA(NULL, sTempFileName.c_str(), NULL, NULL, TRUE, 0, 0, 0, &si,
        &pi);
    if (bSuccess) {
        do {
            // проверяем, выполняется ли ещё процесс
            dwAppRunning = WaitForSingleObject(pi.hProcess, 100);
 
            // качаем порцию информации из файла
            if (ifile.good()) {
                AddOemLine(AStrings, ifile);
            }
 
            // даём возможность приложению обработать команду
            Sleep(5);
            Application->ProcessMessages();
 
        }
        while (dwAppRunning == WAIT_TIMEOUT);
    }
 
    // после того, как процесс завершён, окончательно допишем остатки информации из файла
    while (ifile.good()) {
        AddOemLine(AStrings, ifile);
    }
    ifile.close();
    CloseHandle(hFile);
 
    // добавляем текущую директорию
    AStrings->Add(GetCurrentDir() + ">");
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::MemoInputKeyPress(TObject *Sender, wchar_t &Key) {
    if (Key == '\n') {
 
        MemoOutput->Lines->Add("===========================================");
        MemoOutput->Lines->Add(MemoInput->Lines->Text);
        MemoOutput->Lines->Add("===========================================");
 
        /* Так как команда CD не влияет на текущую директорию нашего процесса,
        то необходима продублировать выполнение смены директории самостоятельно */
        for (int i = 0; i < MemoInput->Lines->Count; i++) {
            std::auto_ptr<TStringList>AStringList(new TStringList());
            AStringList->StrictDelimiter = true;
            AStringList->Delimiter = ' ';
            AStringList->DelimitedText = MemoInput->Lines->Strings[i];
 
            if (AStringList->Count >= 2) {
                const UnicodeString sCommand = AStringList->Strings[0].UpperCase();
                if (sCommand == "CD" || sCommand == "CHDIR") {
                    const UnicodeString sChangeDir = AStringList->Strings[1].UpperCase();
                    if (sChangeDir == "/D") {
                        AStringList->Delete(1);
                    }
                    AStringList->Delete(0);
 
                    SetCurrentDir(AStringList->DelimitedText);
                }
            }
        }
 
        // выполняем командную строку
        CMD2Memo(MemoOutput->Lines, MemoInput->Lines->Text);
 
        // чистим поле для ввода
        MemoInput->Lines->Clear();
        Key = NULL;
 
    }
}
 
// ---------------------------------------------------------------------------

typedef AnsiStringT<866> OEMString;    //  Строка в кодировке cp_666 ( OEM )

OEMString OEMS;
String S = OEMS