Параметры из ком. строки

[MalCer]

Здраствуйте!!!
Я пишу свою IDE для компилятора TASM(в общем-то не важно к чему пишу), параметры для командной строки я передаю через ShellExecute. Все нормально работает. Допустим я сделал в листинге ошибку, нажал на кнопку компиляции и соответственно прога не компилируется и ошибка компиляции. Хотелось бы вывести эти ошибки из консоли в, например, listbox или другой подобный компонент. Подскажите как это сделать?

[Utkin]

Через файл.

[MalCer]

Я тоже так думал, вопрос как это сделать? проблема заключается в том чтобы, т.е. как получить те строки?

[Stilet]

Вот предложение:
http://www.programmersforum.ru/showt...ExecConsoleApp

[MalCer]

Спасибо, Stilet теперь буду разбираться

Подогнал под свой код
Пример работает для 32 битных прог(в моём случае TASM32.EXE), а для 16 битных нет(TASM.EXE) Как быть?

[Stilet]

Вот про 16 битки я уже и думать забыл, так что...
Разве что перенаправляй вывод компилятора в файл
tasm.exe... >fileout.txt
Получишь файл с ошибками. Ну и пытайся его грузить в Мемо

[MalCer]

Спасибо всем кто помог. Для 16 биток в файл сделал так(может кому пригодится)

{$APPTYPE CONSOLE}
{$O-,T+}
uses
  SysUtils, Windows;
type
  Runner=object
    fChildStdoutRd, fChildStdinWr, fChildStdoutWr, fChildStdinRd:tHandle;
    procedure ExecConsoleApp(CommandLine: AnsiString);
    procedure Terminate;
    function Read(Timeout: Integer): string;
    function Write(data:String):Boolean;
  end;
var Runner1:Runner;
    str:String;
procedure Runner.ExecConsoleApp(CommandLine: AnsiString);
var
  fsaAttr: TSECURITYATTRIBUTES;
  tmp1, tmp2:tHandle;
function CreateChildProcess(cmd:String; stdin, stdout:tHandle):Boolean;
var si: tStartupInfo;
    pi: TProcessInformation;
begin
  ZeroMemory(@si, SizeOf(TStartupInfo));
  si.cb := SizeOf(TStartupInfo);
  si.hStdInput := StdIn;
  si.hStdOutput := StdOut;
  si.dwFlags := STARTF_USESTDHANDLES;
  Result := CreateProcess(nil, PChar(cmd), nil, nil, TRUE, 0, nil, nil, si, pi);
end;
begin
  FsaAttr.nLength := SizeOf(SECURITY_ATTRIBUTES);
  FsaAttr.bInheritHandle := True;
  FsaAttr.lpSecurityDescriptor := nil;
  assert(CreatePipe(FChildStdoutRd, FChildStdoutWr, @FsaAttr, 0), '[STDOUT CREATING FAILED]');
  assert(CreatePipe(FChildStdinRd, FChildStdinWr, @FsaAttr, 0), '[STDIN CREATING FAILED]');
  assert(DuplicateHandle(GetCurrentProcess(), FChildStdoutRd,
    GetCurrentProcess(), @Tmp1, 0, False, DUPLICATE_SAME_ACCESS), '[STDOUT DUPLICATE FAILED]');
  assert(DuplicateHandle(GetCurrentProcess(), FChildStdinWr,
    GetCurrentProcess(), @Tmp2, 0, False, DUPLICATE_SAME_ACCESS), '[STDIN DUPLICATE FAILED]');
  CloseHandle(fChildStdoutRd);
  CloseHandle(fChildStdinWr);
  fChildStdoutRd:=tmp1;
  fChildStdinWr:=tmp2;
  CreateChildProcess(CommandLine, FChildStdinRd, FChildStdoutWr);
end;

procedure Runner.Terminate;
begin
  CloseHandle(fChildStdoutRd);
  CloseHandle(fChildStdoutWr);
  CloseHandle(fChildStdinRd);
  CloseHandle(fChildStdinWr);
end;
function Runner.Write(data: string):Boolean;
var
  dwWritten, BufSize: DWORD;
  chBuf: PChar;
begin
  chBuf := PChar(Data + Chr($0D) + Chr($0A));
  BufSize := Length(chBuf);
  Result := WriteFile(FChildStdinWr, chBuf^, BufSize, dwWritten, nil);
  Result := Result and (BufSize = dwWritten);
end;

function Runner.Read(Timeout: Integer): string;
var
  i: Integer;
  dwRead, BufSize, DesBufSize: DWORD;
  chBuf: PChar;
  Res: Boolean;
begin
  BufSize := 0;
  New(chBuf);
  repeat
    for i := 0 to 9 do
    begin
      Res := PeekNamedPipe(FChildStdoutRd, nil, 0, nil, @DesBufSize, nil);
      Res := Res and (DesBufSize > 0);
      if Res then
        Break;
      Sleep(Round(Timeout / 10));
    end;
    if Res then
    begin
      if DesBufSize > BufSize then
      begin
        FreeMem(chBuf);
        GetMem(chBuf, DesBufSize);
        BufSize := DesBufSize;
      end;
      Res := ReadFile(FChildStdoutRd, chBuf^, BufSize, dwRead, nil);
      Result := Result + Copy(chBuf, 1, dwRead);
    end;
  until not Res;
end;

var
    f:textFile;
begin
    Runner1.ExecConsoleApp('C:\TASM\BIN\TASM32.EXE C:\TASM\BIN\1.asm');

    assignfile(f,'set.txt');
    rewrite(f);
    writeln(f,runner1.Read(100));// время выполнения
    closefile(f);

  //writeln(runner1.Read(1000));
 // readln;
end.