консольный ввод/вывод в программу

[Человек_Борща]

Всем доброго времени суток!

Появилась мысль запускать консольную программу, прятать окно и получать консольный вывод в memo далее ввод в консоль перенаправить на edit.


Как это реализуется?
В гугл, drkb, DW и прочие источники, не посылать... уже был, нашё тучу кодов. Толку мало. В большинстве только вывод в memo про ввод ничего не накопал..

Далее интересует вопрос с посылкой комманд в консольное окно и олучать вывод оттуда же.

[GoodDA]

читает из консоли в мемо, и пишет в консоль,
но "ентер" так и несмог передать(

type TAttachConsole = function (dwProcessId: DWORD): LongBOOL stdcall;
var
  AttachConsole: TAttachConsole;
  mProcessID, Wnd, Hcwnd, chRead: Cardinal;
  BufInfo: _CONSOLE_SCREEN_BUFFER_INFO;
  lpCh: PChar;
  Coord: _COORD;
  i: Integer;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  cb : DWORD;
  h : THandle;
  s : string;
begin
  @AttachConsole:= GetProcAddress(GetModuleHandle('kernel32.dll'), 'AttachConsole');
  if @AttachConsole = nil then
  begin
    MessageBox(0, 'Ïðîãðàììà ðàáîòàåò òîëüêî ïîä Windows XP è âûøå!', 'Error', 16);
    Halt(1);
  end;
  Wnd:= FindWindow(nil, 'C:\WINDOWS\system32\cmd.exe');
  GetWindowThreadProcessId(Wnd, @mProcessID);
  s:='11111testing';
  if AttachConsole(mProcessID) then
  begin
    Hcwnd:= GetStdHandle(STD_OUTPUT_HANDLE);
//    WriteConsole(Hcwnd, (pchar(s+#13#10)), Length(s)+2, cb, nil);//åíòåð êðèâîé((
    WriteConsole(Hcwnd, (pchar('wiriteConsole'+s)), Length('wiriteConsole'+s), cb, nil);
//    WriteFile(Hcwnd, pchar('wiriteFile_'+s)^, length('wiriteFile_'+s), cb, nil);


    GetConsoleScreenBufferInfo(Hcwnd, BufInfo);
    GetMem(lpCh, BufInfo.dwMaximumWindowSize.X+1);
    try
      for i:=0 to BufInfo.dwSize.Y-12 do begin
         Coord.X := 0;
         Coord.Y := i;
         ReadConsoleOutputCharacter(Hcwnd, lpCh, BufInfo.dwMaximumWindowSize.X, Coord, chRead);
         mmo1.Lines.Add(lpCh);
      end;
    finally
      FreeMem(lpCh, BufInfo.dwMaximumWindowSize.X+1);
    end;
  end;
end;

[GunSmoker]

STARTUPINFO.hStdInput и STARTUPINFO.hStdOutput

Написание кода за тебя - 1000 рублей.

[Timeon]

Если еще интересует, то могу кинуть готовый модуль для работы с консолью.

[Человек_Борща]

Боюсь, поздновато будет. Уже умею =)

[chinger]

Натолкнулся на ту же проблему - как передать символ перевода каретки, чтобы получающее консольное приложение выполнило readln?