#include <vcl.h>
#include <windows.h>

#pragma hdrstop
#pragma argsused

#include <tchar.h>
#include <stdio.h>
#include <conio.h>



bool IsWinNT()  //проверка запуска под NT
{
  OSVERSIONINFO osv;
  osv.dwOSVersionInfoSize = sizeof(osv);
  GetVersionEx(&osv);
  return (osv.dwPlatformId == VER_PLATFORM_WIN32_NT);
}

void  Log(AnsiString LogMessage)
{
OemToChar(LogMessage.c_str(),LogMessage.c_str());
  FILE * F;
  AnsiString LogFileName=ExtractFileName(Application->ExeName)+".log";

		 if((F=fopen(LogFileName.c_str(),"a+"))==NULL) return;
		 fwrite(LogMessage.c_str(),LogMessage.Length(),1,F);

         fclose(F);
}

void ErrorMessage(char *str)  //вывод подробной информации об ошибке
{

  LPVOID msg;

  FormatMessage(
    FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
    NULL,
    GetLastError(),
    MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // язык по умолчанию
    (LPTSTR) &msg,
    0,
	NULL
  );
  Log(String ((LPTSTR) &msg));
  printf("%s: %s\n",str,msg);
  LocalFree(msg);

}



#pragma argsused
int _tmain(int argc, _TCHAR* argv[])
{

//------------ CreateProcess и Anonymous Pipes------
#define bzero(a) memset(a,0,sizeof(a))

  char buf[1024];           //буфер ввода/вывода

  STARTUPINFO si;
  ZeroMemory(&si,sizeof(STARTUPINFO));
  SECURITY_ATTRIBUTES sa;
  SECURITY_DESCRIPTOR sd;        //структура security для пайпов
  PROCESS_INFORMATION pi;

  HANDLE newstdin,newstdout,read_stdout,write_stdin;  //дескрипторы
                                                      // пайпов


  if (IsWinNT())        //инициализация security для Windows NT
  {
    InitializeSecurityDescriptor(&sd,SECURITY_DESCRIPTOR_REVISION);
    SetSecurityDescriptorDacl(&sd, true, NULL, false);
    sa.lpSecurityDescriptor = &sd;
  }

  else sa.lpSecurityDescriptor = NULL;

  sa.nLength = sizeof(SECURITY_ATTRIBUTES);
  sa.bInheritHandle = true;       //разрешаем наследование дескрипторов


  if (!CreatePipe(&newstdin,&write_stdin,&sa,0))   //создаем пайп
                                                   // для stdin
  {
    ErrorMessage("CreatePipe");
    getch();
    return 0;
  }

  if (!CreatePipe(&read_stdout,&newstdout,&sa,0)) //создаем пайп
                                                  // для stdout
  {
    ErrorMessage("CreatePipe");
    getch();
    CloseHandle(newstdin);
    CloseHandle(write_stdin);
    return 0;
  }



  GetStartupInfo(&si);      //создаем startupinfo для
                            // дочернего процесса

  /*

  Параметр dwFlags сообщает функции CreateProcess
  как именно надо создать процесс.

  STARTF_USESTDHANDLES управляет полями hStd*.
  STARTF_USESHOWWINDOW управляет полем wShowWindow.

  */
  si.cb = sizeof (si);                                      //  STARTF_USESTDHANDLES|
  si.dwFlags =STARTF_USESTDHANDLES|STARTF_USESHOWWINDOW;
  si.wShowWindow =SW_HIDE;  // SW_SHOW   ;
  si.hStdOutput = newstdout;
  si.hStdError = newstdout;   //подменяем дескрипторы для
  si.hStdInput = newstdin;    // дочернего процесса
  si.lpDesktop=NULL;
  si.lpTitle = NULL;


  char app_spawn[] = "C:\\WINDOWS\\system32\\cmd.exe";

  //создаем дочерний процесс

  if (!CreateProcess(app_spawn,NULL,NULL,NULL,TRUE, NULL,
                      NULL ,NULL,&si,&pi))
 {
    ErrorMessage("CreateProcess");
    getch();
    CloseHandle(newstdin);
    CloseHandle(newstdout);
    CloseHandle(read_stdout);
    CloseHandle(write_stdin);
    return 0;
  }

  Log("\r\n__START__\r\n");

  unsigned long exit=0;  //код завершения процесса
  unsigned long bread;   //кол-во прочитанных байт
  unsigned long avail;   //кол-во доступных байт



  bzero(buf);

  for(;;)      //основной цикл программы
  {
    GetExitCodeProcess(pi.hProcess,&exit); //пока дочерний процесс
                                           // не закрыт
    if (exit != STILL_ACTIVE)
     break;

    PeekNamedPipe(read_stdout,buf,1023,&bread,&avail,NULL);

    //Проверяем, есть ли данные для чтения в stdout

    if (bread != 0)
    {
      bzero(buf);
      if (avail > 1023)
      {
        while (bread >= 1023)
        {
          ReadFile(read_stdout,buf,1023,&bread,NULL);  //читаем из
          Log(String ( buf));                                            // пайпа stdout
          printf("%s",buf);
          bzero(buf);
        }
      }

      else {
        ReadFile(read_stdout,buf,1023,&bread,NULL);
        Log(String ( buf));
        printf("%s",buf);
      }
    }

    if (kbhit())      //проверяем, введено ли что-нибудь с клавиатуры
    {
      bzero(buf);
      *buf = (char)getche();

      //printf("%c",*buf);
     Log(String ( buf));
      WriteFile(write_stdin,buf,1,&bread,NULL); //отправляем это
                                                // в stdin

     if (*buf == '\r' ||*buf == '\n' )
        {
        *buf = '\n';
        printf("%c",*buf);
        WriteFile(write_stdin,buf,1,&bread,NULL); //формирум конец
        Log(String ( buf));
         }                                          //строки, если нужно


    }
    Sleep(250);
  }

  CloseHandle(pi.hThread);
  CloseHandle(pi.hProcess);
  CloseHandle(newstdin);            //небольшая уборка за собой
  CloseHandle(newstdout);
  CloseHandle(read_stdout);
  CloseHandle(write_stdin);


  printf("PRESS ANY KEY TO EXIT - PIPE CATCHER PROCESS STOPPED");
  getch();
}