#include <stdio.h> 

int main (void) 
{ 
    FILE* file = fopen("test.txt", "w"); 
    char ch[ 1000 ]; 
    scanf("%s", &ch); 
    fprintf(file, "%s\n", ch); 
    fclose(file); 
    return  0 ; 
} 

#include <windows.h> 
#include <conio.h> 
  
#define BUFSIZE  4096  
#define PROGA "test.exe" 

DWORD main(int argc, char *argv[]) 
{ 
    SECURITY_ATTRIBUTES saAttr; 
    saAttr.nLength = sizeof(SECURITY_ATTRIBUTES); 
    saAttr.bInheritHandle = TRUE; 
    saAttr.lpSecurityDescriptor = NULL; 
    
    HANDLE hChildStdinRd, hChildStdinWr; 
    BOOL boo = CreatePipe(&hChildStdinRd, &hChildStdinWr, &saAttr,  0 ); 

    HANDLE hChildStdinWrDup; 
    BOOL fSuccess = DuplicateHandle( 
        GetCurrentProcess() 
        , hChildStdinWr 
        , GetCurrentProcess() 
        , &hChildStdinWrDup 
        ,  0  
        , FALSE 
        , DUPLICATE_SAME_ACCESS 
        ); 
    CloseHandle(hChildStdinWr); 

    PROCESS_INFORMATION piProcInfo; 

    STARTUPINFO siStartInfo; 
    siStartInfo.cb = sizeof(STARTUPINFO); 
    siStartInfo.lpReserved = NULL; 
    siStartInfo.lpDesktop = NULL; 
    siStartInfo.lpTitle = NULL; 
    siStartInfo.dwFlags = STARTF_USESTDHANDLES; 
    siStartInfo.cbReserved2 =  0 ; 
    siStartInfo.lpReserved2 = NULL; 

    siStartInfo.hStdInput = hChildStdinRd; 
    siStartInfo.hStdError = NULL; 
    siStartInfo.hStdOutput = NULL; 
    
    BOOL bFuncRetn = ::CreateProcess( 
        NULL 
        , PROGA       // command line 
        , &saAttr          // process security attributes 
        , NULL          // primary thread security attributes 
        , TRUE          // handles are inherited 
        ,  0              // creation flags 
        , NULL          // use parent's environment 
        , NULL          // use parent's current directory 
        , &siStartInfo  // STARTUPINFO pointer 
        , &piProcInfo);  // receives PROCESS_INFORMATION 
  
    if (bFuncRetn) 
    { 
        DWORD dwWritten; 
        CHAR chBuf[BUFSIZE] = "IV"; 
        WriteFile(hChildStdinWrDup, chBuf, strlen(chBuf), &dwWritten, NULL); 
        
        // если закрыть этот hChildStdinWrDup, то прога закроется точно также, как при 
        // CreateFile или <. Но, мне нужно дождаться работы программы А, поэтому, 
        // я жду 15 минут 
        //Sleep(15*60*1000); 
        //CloseHandle(hChildStdinWrDup); 
        // либо сделаю так 
        //DWORD dwWaitResult = ::WaitForSingleObject(piProcInfo.hProcess, INFINITE); 
        // как именно сделаю, я еще не знаю, т.к. не могу протестировать это под Win98 
        // сейчас для скорости 
        Sleep( 1000 ); 
        CloseHandle(hChildStdinWrDup); 
        
        CloseHandle(piProcInfo.hThread); 
        CloseHandle(piProcInfo.hProcess); 
    } 
  
    return  0 ; 
}