Узнать доступен ли ввод в консоль.

[Kix.IV]

А ты не думал что я тебе код только как пример дал?

Понятно, что пример.

Ты в курсе что его стоит доработать - доправить получение ошибок из stderr как минимум?
Или ты думаешь что я вот так вот с потолка прожую за тебя и в рот положу?
Да код не со всеми командами работает, это только потому что я не старался все писать за тебя.

Я и не просил за меня сделать. Чуть выше я выложил всё что смог сделать, там уже реализован ввод и вывод, можно и чтение из stdErr добавить легко. Даже можно "отвечать" на запросы от команд типа del.
Всё, что мне нужно - это сделать её похожей на cmd, так что бы отличить нельзя. Именно это я не знаю как сделать и прошу помощи на форуме.

[Stilet]

Т.е. тебе цвета нужно подобрать?
Ничего не понимаю, если у тебя все есть то что еще нужно?
Ладно, другой вопрос: Ты делаешь оконку? верно? А почему не сделать консольную программу, но свою? Тогда и схожесть не придется подбирать.

[Kix.IV]

Т.е. тебе цвета нужно подобрать?

Ну цвета подобрать не трудно, на скрине уже версия с подобранными шрифтами и размерами.

Ладно, другой вопрос: Ты делаешь оконку? верно? А почему не сделать консольную программу, но свою? Тогда и схожесть не придется подбирать.

Мне надо будет кое-что изменить. Консоль не подходит.

Ничего не понимаю, если у тебя все есть то что еще нужно?

Вот смотрите, что будет если ввести два раза подряд без остановки ping localhost в cmd и в моей оболочке:

Получается, что cmd адекватно воспринимает ввод при выполнении команды, а моя оболочка нет. И я не знаю как это исправить.

[Kix.IV]

Перезалил, теперь лучше видно.
Вот ещё один скрин:

Здесь я зажал Enter.

[waleri]

Сообщение от Kix.IV

И я не знаю как это исправить.

cmd.exe читает данные все время и пересылает их на стандартный ввод процесса. Если процесс не читает, все остается в буфере и будет прочитано следующим процессом.

Это уже упоминалось, ищите redirect stdin/stdout и CreatePipe()

[Kix.IV]

Сообщение от waleri

cmd.exe читает данные все время и пересылает их на стандартный ввод процесса. Если процесс не читает, все остается в буфере и будет прочитано следующим процессом.

Пробовал уже. Отсылал каждый введёный символ с клавиатуры, но так и не смог добится работы backspace и delete(Вместо стирания появляется что-то непонятное). Может быть подскажите, что нужно сделать? Вот так оно выглядит:

Это уже упоминалось, ищите redirect stdin/stdout и CreatePipe()

Искал уже, ничего толкового не нашёл.

[waleri]

А backspace/delete сами работать не будут... ктото должен делать редакцию командной строки. Обычно консоль считывает строку до Enter и тогда шлет на вход. Например попробуйте запустить sort.exe из cmd.exe

[Kix.IV]

А backspace/delete сами работать не будут... ктото должен делать редакцию командной строки. Обычно консоль считывает строку до Enter и тогда шлет на вход. Например попробуйте запустить sort.exe из cmd.exe

Вы меня не поняли. Я имел в виду, как мне удалить символы из буфера. Если послать в буфер Backspace или Delete, то вместо удаления добавятся новые.
Сейчас я пытаюсь реализовать это через ReadFile. Он ведь удаляет прочитанное.
UPD:Пытался прочитать все 4 хендла:
CA.hStdInputWr - возвращает в буфере "Error 5".
CA.hStdInputRd - виснет, при чём на PeekNamedPipe.
CA.hStdOutputWr - возвращает в буфере "Error 5".
CA.hStdOutputRd - возвращает вывод консоли.

[waleri]

А зачем PeekNamedPipe? Это для named pipes, вам такое не надо.
Вам нужен обычный CreatePipe() + ReadFile() + WriteFile()

[Kix.IV]

PeekNamedPipes использую для получения размера буфера, т.к. если использовать ReadFile на пустом буфере, то программа ждёт пока он наполнится(зависает на веки). Может быть предложите другой способ чтения(что бы работал и на буфере ввода)?
Сейчас читаю так:

PHP код:

const  BUFSIZE = 1024;

type
  TCA = record
    hStdInputWr, hStdInputRd, hStdOutputWr, hStdOutputRd: THandle;
    hProcess: THandle;
    CmdLine: WideString;
    dwProcessId: Cardinal;
  end;
.....
function ReadCA(CA: TCA): AnsiString;
var
  Buf: array [1..BUFSIZE] of AnsiChar;
  rdBuf: Cardinal;
begin
  Result := '';
  PeekNamedPipe(CA.hStdOutputRd, nil, 0, nil, @rdBuf, nil);
  if rdBuf = 0 then Exit;
  if not ReadFile(CA.hStdOutputRd, Buf, BUFSIZE, rdBuf, nil) then
  begin
    Result := 'Error: ' + IntToStr(GetLastError);
    Exit;
  end;
  OemToAnsi(@Buf, @Buf);
  Result := Copy(Buf, 1, rdBuf);
end; 


UPD: Хоть функия называется PeekNamedPipes, она нормально работает(и должна) для анонимных пайпов. Пруф: "Copies data from a named or anonymous pipe into a buffer without removing it from the pipe."