🚀 go-pugleaf

Thank you Gambit. Your solution has given some error until I made a few 
corrections.
Now it's working like a tornado. You had your name written on the special 
thanks section of my program. Congratulations!

Let's share the code:

Add your form this items in design time:
Button1,  Button2,  Memo1, Timer1
and set Timer1 enabled false.

.h file:
private: // User declarations
HANDLE hProcess;
HANDLE hStdInRead;
HANDLE hStdInWrite;
HANDLE hStdOutRead;
HANDLE hStdOutWrite;
void __fastcall CloseHandles();

.cpp file:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
PROCESS_INFORMATION pi = {0};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
BOOL CALLBACK closeit(HWND hwnd,LPARAM lParam)
{
 DWORD hwnd_pid;
 GetWindowThreadProcessId(hwnd, &hwnd_pid);
 if (hwnd_pid == pi.dwProcessId) {
  SendMessage(hwnd, WM_CLOSE, 0,0);
  return false;
 }
 return true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CloseHandles()
{
 if(hProcess) {
  CloseHandle(hProcess);
  hProcess = NULL;
 }
 if(hStdInRead) {
  CloseHandle(hStdInRead);
  hStdInRead = NULL;
 }
 if(hStdInWrite) {
  CloseHandle(hStdInWrite);
  hStdInWrite = NULL;
 }
 if(hStdOutRead) {
  CloseHandle(hStdOutRead);
  hStdOutRead = NULL;
 }
 if(hStdInWrite) {
  CloseHandle(hStdOutWrite);
  hStdOutWrite = NULL;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 SECURITY_ATTRIBUTES sa = {0};
 sa.nLength = sizeof(SECURITY_ATTRIBUTES);
 sa.bInheritHandle = TRUE;
 sa.lpSecurityDescriptor = NULL;

 if(!CreatePipe(&hStdInRead, &hStdInWrite, &sa, 0)) {
  CloseHandles();
  RaiseLastWin32Error();
 }

 if(!CreatePipe(&hStdOutRead, &hStdOutWrite, &sa, 0)) {
  CloseHandles();
  RaiseLastWin32Error();
 }

 STARTUPINFO si = {0};
 si.cb = sizeof(STARTUPINFO);
 si.dwFlags = STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES;
 si.wShowWindow = SW_HIDE;
 si.hStdInput = hStdInRead;
 si.hStdOutput = hStdOutWrite;
 si.hStdError = hStdOutWrite;

 if(!CreateProcess("c:\\windows\\system32\\cmd.exe", NULL, NULL, NULL, TRUE, 
0,
 NULL, NULL, &si, &pi)) {
  CloseHandles();
  RaiseLastWin32Error();
 }

 CloseHandle(pi.hThread);
 hProcess = pi.hProcess;

 Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 if(!hStdInWrite) return;

 AnsiString Data = "ECHO THANK YOU GAMBIT!!!\n";
 char *ptr = Data.c_str();
 DWORD TotalBytes = Data.Length();
 DWORD BytesSent = 0;

 while(TotalBytes) {
  if(!WriteFile(hStdInWrite, ptr, TotalBytes, &BytesSent, NULL))
  RaiseLastWin32Error();

  ptr += BytesSent;
  TotalBytes -= BytesSent;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 DWORD TotalBytes = 0;
 if(!PeekNamedPipe(hStdOutRead, NULL, 0, NULL, &TotalBytes, NULL))
 RaiseLastWin32Error();

 if(TotalBytes) {
  char Data[1024];
  DWORD BytesRead = 0;

  while(TotalBytes) {
   if(!ReadFile(hStdOutRead, Data, sizeof(Data)-1, &BytesRead, NULL))
   RaiseLastWin32Error();

   Memo1->SelStart = Memo1->GetTextLen();
   Memo1->SelText = AnsiString(Data, BytesRead);
   TotalBytes -= BytesRead;
  }
 } else if(WaitForSingleObject(hProcess, 0) == WAIT_OBJECT_0) 
CloseHandles();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 EnumWindows((WNDENUMPROC)closeit, 0);
}
//---------------------------------------------------------------------------