1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
begin
  JvCreateProcess1.Run; // Startet die Console
  JvCreateProcess1.WriteLn('mencoder E:\ARBEITEN\Film.avi -srate 48000 -oac mp3lame -lameopts aq=3:cbr=128: -ovc copy -of rawaudio -o E:\ARBEITEN\Film.mp3');
  // Wandelt den Soundfile im Film1.avi zu Film1.mp3 um.
end;

procedure TForm1.JvCreateProcess1Read(Sender: TObject; const S: string; const StartsOnNewLine: Boolean);
var a: integer;
begin
  Memo1.Lines.Append(s); // Übernimmt jede Zeile der Console, solange sie arbeitet.
  a:= Pos(':', s); // Sucht den Doppelpunt an der 4. Stelle in jeder Zeile,
  if a= 4 then Progessbar1.Position:= StrToInt(Copy(S, 22, 2)); //  und kopiert ab dem 22. Buchstabe 2 Zeichen. Übernimmt den "gefundenden + umgewandelteten Wert in
  // die  Progressbar.
end;