перехват консольного ввода\вывода

[Izhic]

Если мы знаем этот формат то да:

Например: chkdsk; отображает сколько завершено изменяется в одной строке. потом фиксирует на 100% переходит на новую строку. На этап 2.

if [Format: проверенно : n%] then
TMemo.Lines[текущая]:=s
else
TMemo.Lines[следющая]:=s

Однако допустим мы формата не знаем тогда и происходит проблема.

Может можно сделать привязку к текущему местоположению в памяти, а лучше к памяти определённой строки Cmd? Т.е. если информация на том же месте в памяти(читай строке), иначе если в новой строке....

[BOBAH13]

Я чтот не пойму проблема прочитать строку и найти нужное место с процентами и куда там их вывести или перевести или проблема в том что вы пишете программу которая незнает что запускает и незнает где и как читать строку ? Ну если вариант два тогда я не в помошь Сформулируйте пожалуйста вопрос что именно у вас есть как в это получаите и что надо получить на выводе !
Какая еще строка памяти CMD. Как вы себе представляите искать указатель на эту строку... это бессмысленно.

[Izhic]

программу которая незнает что запускает

а точнее одну но где нет строгого формата.

Какая еще строка памяти CMD

Не знаю Я такого не нашёл. Однако это же не значит что такого нет :-D
Поэтому Я и спрашиваю, может Вы знаете.

[BOBAH13]

Ну факт остается фактом, что вы пишите прогу которая собирается читать формат строки который неизвествно каким может быть... это не реально! Когда поймете чего хотите и что пишите тогда обращайтесь.

[GreenIdea]

ПОМОГИТЕ, ЛЮДИ, PLEASE...))) Консоль только запускается и сразу же закрывается...Не могу понять что не так???

var
Form1: TForm1;
stinfo : TStartupInfo;
prinfo : TProcessInformation;
ReadPipe,WriteToCommand,ReadFromCommand,WritePipe, ReadP, WriteP: THandle;
SecAtt : PSecurityAttributes;
PipeLab: integer;
ChildProc : TChildProc;
implementation

{$R *.dfm}
function TChildProc.CreateChildProcess(ExeName, CommandLine: string;
ReadP,WriteP: THandle): Boolean;
var
piProcInfo: TProcessInformation;
siStartInfo: TStartupInfo;
SecAtr : PSecurityAttributes;

begin

// Set up members of STARTUPINFO structure.
ZeroMemory(@siStartInfo, SizeOf(TStartupInfo));
siStartInfo.cb := SizeOf(TStartupInfo);
siStartInfo.hStdInput := ReadP;
siStartInfo.hStdOutput := WriteP;
siStartInfo.wShowWindow := SW_SHOW;
siStartInfo.dwFlags :=STARTF_USESHOWWINDOW+STARTF_USESTDHANDLES;
// Create the child process.
Result := CreateProcess(nil,
PChar(ExeName + ' ' + CommandLine), // command line
SecAtt, // process security attributes
SecAtt, // primary thread security attributes
TRUE, // handles are inherited
REALTIME_PRIORITY_CLASS, // creation flags
nil, // use parent's environment
nil, // use parent's current directory
siStartInfo, // STARTUPINFO pointer
piProcInfo); // receives PROCESS_INFORMATION



end;


procedure TForm1.Button1Click(Sender: TObject);
var Tmp1, Tmp2 : THandle; sErr : string;
begin
sErr:='Error';

if (Edit1.Text='CreatePipe') and (PipeLab<>1) then
begin
PipeLab:=1;
New(SecAtt);
SecAtt.nLength := SizeOf(PSecurityAttributes);
SecAtt. bInheritHandle := True;
SecAtt.lpSecurityDescriptor := nil;
if not ((CreatePipe(ReadPipe, WriteToCommand, SecAtt, 0)) or
(CreatePipe(ReadFromCommand, WritePipe, SecAtt, 0))) then

Edit1.Text:='Fuck:)' else
begin




DuplicateHandle(GetCurrentProcess(), ReadPipe,
GetCurrentProcess(), @Tmp1, 0, False, DUPLICATE_SAME_ACCESS);




DuplicateHandle(GetCurrentProcess(), WritePipe,
GetCurrentProcess(), @Tmp2, 0, False, DUPLICATE_SAME_ACCESS);



CloseHandle(ReadPipe);
CloseHandle(WritePipe);
ReadPipe := Tmp1; //И воткнем их места НЕ наследуемые дубликаты
WritePipe := Tmp2;

Edit1.Text:='Ok';


end;
end
else if (Edit1.Text='Cmd') and (PipeLab=1) then
begin

if ChildProc.CreateChildProcess('cmd.exe', '',
ReadPipe, WritePipe)
then
Begin

PipeLab:=2;
Edit1.Text:='Process starts';
end else Edit1.Text:='Can not start process';
end