Ich denk mal ich bin wieder zu unübersichtlich...
K, Das mit der Batchdatei hat sich erledigt.
Die Batch wird gestartet, beendet sich selber und der Code wird weiter ausgeführt.
Da das Ganze dann voll automatisch ablaufen soll, soll eine MPEG-Datei (M2V) geöffnet werden,
ohne das der User den Pfad angeben muss oder per OpenDialog bestimmen muss.
Nach dem Zahlen in ein paar Edits geändert wurden soll die Batchdatei mit den geändertem Inhalt
auch ohne Zutun des Users gestarten werden.
Ich häng jetzt an dem Punkt fest, wie ich die M2V-Datei OHNE OpenDialog öffnen soll. Sie soll aber nicht
mit dem MediaPlayer abgespielt werden, sondern an den GET_FILE_SIZE Befehl weitergeleitet werden!
Irgend eine Idee?
Delphi-Quellcode:
procedure TForm12.Button7Click(Sender: TObject);
var ProcID: Cardinal;
a,b,c :real;
begin
ProcID := 0;
//if OpenDialog1.Execute then
RunProcess('C:\DRPEncPrediction.bat', SW_SHOW, TRUE, @ProcID);
//ShowMessage(IntToStr(ProcID));
listbox1.Items.add('Done');
//OpenFile('Hier irgendwie die MPEG-Datei öffnen...');
Edit8.Text:=GET_FILE_SIZE('Name der geöffneten Datei',true);
a:= StrToFloat(Edit8.text);
b:=(a / 1024) /1024;
c:= StrToFloat(Edit9.text);
listbox1.Items.add('This Pass has the filesize of ' +FloatToStr(b)+ ' MB');
if FloatToStr(b) < FloatToStr(c) then listbox1.Items.add('Higher the bitrate');
if FloatToStr(b) > FloatToStr(c) then listbox1.Items.add('Lower the bitrate');
end;