program  Project1;
 {$APPTYPE CONSOLE} 

 uses 
  SysUtils;

 begin 
   try 
    // Writeln('Hello !!!!!!!!!!!!!'); 

   x + y = z;

   except 
    on E: Exception  do 
      Writeln(E.ClassName, ': ', E.Message);
   end ;

 end .

ReadLn(x);
ReadLn(y);
z := x+y;
WriteLn(z);

RunAndRedirectStdIo('c:\test.exe', pipe1, pipe2);
WriteLn(pipe1, x);
WriteLn(pipe1, y);
ReadLn(pipe2, z);

 program  Project1;
 {$APPTYPE CONSOLE} 

 uses 
  SysUtils;

 var 
  x, y: integer;

 begin 
   try 
    x := StrToIntDef(paramstr( 1 ),  0 );
    y := StrToIntDef(paramstr( 2 ),  0 );
    WriteLn(x * y);
    Write('Press Enter....');
    ReadLn;
   except 
    on E: Exception  do 
      WriteLn(E.ClassName, ': ', E.Message);
   end ;

 end .

 unit  Unit1;

 interface 

 uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

 type 
  TForm1 =  class (TForm)
    Button1: TButton;
     procedure  Button1Click(Sender: TObject);
   private 
     { Private declarations } 
   public 
     { Public declarations } 
   end ;

 var 
  Form1: TForm1;

 implementation 

 {$R *.dfm} 

 // ****************************************************************************** 
 function  ExecAndWait( const  FileName, Params:  String ;  const  WinState: Word): boolean; export;
 var 
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine:  String ;
 begin 
   // Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x 
  CmdLine := '"' + FileName + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), # 0 );
   with  StartInfo  do 
   begin 
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
   end ;

   // CreateProcess 
  Result := CreateProcess( nil , PChar(CmdLine),  nil ,  nil , false, CREATE_NEW_CONSOLE  or  NORMAL_PRIORITY_CLASS,  nil ,  nil , StartInfo, ProcInfo);

   // Ожидаем завершения приложения 
   if  Result  then 
   begin 
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
     // Free the Handles 
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
   end ;
 end ;

 // ****************************************************************************** 
 procedure  TForm1.Button1Click(Sender: TObject);
 var 
  FileName, Params:  String ;
 begin 
  FileName := 'console.exe';
  Params := '30 20';
  ExecAndWait(FileName, Params, SW_SHOWNORMAL);
 end ;

 // ****************************************************************************** 
 end .

 procedure  RunDosInMemo(CmdLine:  string ; AMemo: TMemo);
 const 
  ReadBuffer =  2400 ;
 var 
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: Pchar;
  BytesRead: DWord;
  Apprunning: DWord;
 begin 
  Screen.Cursor := CrHourGlass;
  Form1.Button1.Enabled := False;
   with  Security  do 
   begin 
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor :=  nil ;
   end ;
   if  Createpipe(ReadPipe, WritePipe,
    @Security,  0 )  then 
   begin 
    Buffer := AllocMem(ReadBuffer +  1 );
    FillChar(Start, Sizeof(Start), # 0 );
    start.cb := SizeOf(start);
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
    start.dwFlags := STARTF_USESTDHANDLES +
      STARTF_USESHOWWINDOW;
    start.wShowWindow := SW_HIDE;

     if  CreateProcess( nil ,
      PChar(CmdLine),
      @Security,
      @Security,
      true,
      NORMAL_PRIORITY_CLASS,
       nil ,
       nil ,
      start,
      ProcessInfo)  then 
     begin 
       repeat 
        Apprunning := WaitForSingleObject
          (ProcessInfo.hProcess,  100 );
        ReadFile(ReadPipe, Buffer[ 0 ],
          ReadBuffer, BytesRead,  nil );
        Buffer[BytesRead] := # 0 ;
        OemToAnsi(Buffer, Buffer);
        AMemo.Text := AMemo.text +  string (Buffer);

        Application.ProcessMessages;
       until  (Apprunning <> WAIT_TIMEOUT);
     end ;
    FreeMem(Buffer);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ReadPipe);
    CloseHandle(WritePipe);
   end ;
  Screen.Cursor := CrDefault;
  Form1.Button1.Enabled := True;
 end ;

 procedure  TForm1.Button1Click(Sender: TObject);
 begin 
  Memo1.Clear;
  RunDosInMemo('ping -t 192.168.28.200', Memo1);
 end ;

 function  ExecAndWait( const  FileName, Params: ShortString;  const  WinState: Word;  const  Output: TStringList): boolean; export;
 var 
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
  hPipeOutputRead: THANDLE;
  hPipeOutputWrite: THANDLE;
  hPipeErrorsRead: THANDLE;
  hPipeErrorsWrite: THANDLE;
  sa: TSECURITYATTRIBUTES;
  Stream: TMemoryStream;
  bTest: boolean;
  szBuffer:  array  [ 0  ..  255 ]  of  AnsiChar;
  dwNumberOfBytesRead: DWORD;
 begin 
  sa.nLength := SizeOf(sa);
  sa.bInheritHandle := True;
  sa.lpSecurityDescriptor :=  nil ;
  CreatePipe(hPipeOutputRead, hPipeOutputWrite, @sa,  0 );
  CreatePipe(hPipeErrorsRead, hPipeErrorsWrite, @sa,  0 );

   // Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x 
  CmdLine := '"' + FileName + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), # 0 );
  ZeroMemory(@ProcInfo, SizeOf(ProcInfo));
   with  StartInfo  do 
   begin 
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW  or  STARTF_USESTDHANDLES;
    wShowWindow := WinState;
    hStdInput :=  0 ;
    hStdOutput := hPipeOutputWrite;
    hStdError := hPipeErrorsWrite;
   end ;
  Result := CreateProcess( nil , PChar( String (CmdLine)),  nil ,  nil , True, CREATE_NEW_CONSOLE  or  NORMAL_PRIORITY_CLASS,  nil ,  nil , StartInfo, ProcInfo);
   // Ожидаем завершения приложения 
   if   not  Result  then 
   begin 
    CloseHandle(hPipeOutputRead);
    CloseHandle(hPipeOutputWrite);
    CloseHandle(hPipeErrorsRead);
    CloseHandle(hPipeErrorsWrite);
    Exit;
   end ;
  CloseHandle(hPipeOutputWrite);
  CloseHandle(hPipeErrorsWrite);

   // Read output pipe 
  Stream := TMemoryStream.Create;
   try 
     while  True  do 
     begin 
      bTest := ReadFile(hPipeOutputRead, szBuffer,  256 , dwNumberOfBytesRead,  nil );
       if   not  bTest  then 
        Break;
      Stream.Write(szBuffer, dwNumberOfBytesRead);
     end ;
    Stream.Position :=  0 ;
    Output.LoadFromStream(Stream);
   finally 
    Stream.Free;
   end ;

  WaitForSingleObject(ProcInfo.hProcess, INFINITE);
   // Free the Handles 
  CloseHandle(ProcInfo.hProcess);
  CloseHandle(ProcInfo.hThread);
  CloseHandle(hPipeOutputRead);
  CloseHandle(hPipeErrorsRead);
 end ;

 procedure  TForm1.Button1Click(Sender: TObject);
 var 
  FileName, Params: ShortString;
  lstOut: TStringList;
  i: Integer;
 begin 
  FileName := 'console.exe';
  Params := '10 20';
  lstOut := TStringList.Create;
   try 
    ExecAndWait(FileName, Params, SW_SHOWNORMAL, lstOut);
    Memo1.Lines.Clear;
     for  i :=  0   to  lstOut.Count -  1   do 
      Memo1.Lines.Add(lstOut[i]);
   finally 
    lstOut.Free;
   end ;
 end ;