Status von FFMPEG auslesen

[Gehstock]

Delphi-Quellcode:

procedure TForm1.DosCommand1NewLine(Sender: TObject; NewLine: string; OutputType: TOutputType);
begin
 Gauge1.MaxValue := 100;
 Gauge1.Progress := StrtoInt(GetB(NewLine,'f (','%)'));
end;

function TForm1.MakeVideo(EName,AName : String): Boolean;
var
  rs: TResourceStream;
  q : String;
begin
    rs := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
  try
    try
      rs.SaveToFile(ExtractFilepath(ParamStr(0)) + 'Engine.exe');
    except
      on E:Exception do
        MessageBox(Handle, PChar(E.Message), 'Fehler',MB_ICONSTOP);
    end;
  finally
    FreeAndNil(rs);
  end;
   begin
    case RadioGroup1.ItemIndex of
      0: q := 'xvid -xvidencopts bitrate=900';
      1: q := 'x264 -x264encopts crf=0.75';
      2: q := 'lavc -lavcopts vcodec=mpeg4';
    end;
  DosCommand1.CommandLine := 'Engine.exe '+'"'+EName+'"' + ' -o "'+AName+'"'+' -oac mp3lame -ovc '+ q;
  DosCommand1.Execute;
  Timer1.Enabled := True;
  Statusbar1.Panels[0].Text := 'Berechne Video';
   end;
end;

so hatte ich damals mal für den MEncoder gelöst