CLI Programm in einem eigenen Fenster (Avidemux_cli.exe)

[aramintaros]

Hallo liebe Gemeinde,

seit 3 Tagen reiße ich mir ein Bein aus und lese und lese.... :shock: bin mitnerweile soweit und verstehe die Wichtigkeit der StartupInfo (CreateProcess), ihrer einzelnen Flags, und wie man diese benutzt.

Klappt soweit auch toll, wer hätte das gedacht :bounce1: Nun bin ich darüber gestolpert, daß ich die run.exe, nicht in mein Programmfenster bekomme.
(habe die avidemux2_cli.exe nur in run.exe umbenannt, ist kürzer, werde sie später wieder richtig bennen)

Habe dazu folgenden Code geschrieben.
Die Variablen h und j sind als globale Variablen bekannt, aber auch als "lokale" funzt es nicht.

Delphi-Quellcode:

var
                     Form1: TForm1;
                      h, j: Thandle;
   AviCmdLine, WindowsName: TEdit;

implementation
{$R *.dfm}

// Klappt wenn die Eingabeaufforderung auf dem Desktop ist. Setzt die Box ind die richtige Ecke und gibt Ihr die Länge und Höhe.
procedure TForm1.Button1Click(Sender: TObject);
begin
  h:=FindWindow(nil,'Eingabeaufforderung');
  If h<>0 then SetWindowPos(h,0, 0, 0, 670, 100, SWP_NOZORDER);
  edit1.Text:= GetCurrentDir + '  '+ IntToStr(GetActiveWindow);
end;

// Klappt auch wenn die Eingabeaufforderung auf dem Desktop ist, das Handle der Eingabeaufforderung wird auch angezeigt und das Panel ist der Owner.
procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
  h:= Windows.FindWindow(nil, 'Eingabeaufforderung');
  Windows.SetParent(h, Panel1.Handle);
  Edit1.Text:= IntToStr(h);
end;

// Hier wird nur das Programm aufgerufen, arbeit seine Befehle ab und es passiert nichts von dem was ich oben hingekriegt habe, Warum nur??
procedure TForm1.Button3Click(Sender: TObject);
var         i: integer;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  AviCmdLine:= TEdit.Create(Self);

  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := Sizeof(TStartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:=SW_Show;

  AviCmdLine.Text:=
  'C:\Programme\Avidemux 2.4\run.exe --load E:\FILME\os.avi --external-mp3 E:\FILME\os.mp3 --save E:\_OrdnerTest\ms.avi';

  WindowsName.Text:= 'C:\Programme\Avidemux 2.4\run.exe';
  for i:= 0 to 1 do
  begin
    CreateProcess(nil,
                 PChar(AviCmdLine.Text),
                 nil,
                 nil,
                 False,
                 NORMAL_PRIORITY_CLASS,
                 nil,
                 PChar('c:\'),
                 StartupInfo,
                 ProcessInfo);
    h:= Windows.FindWindow(nil, PChar(WindowsName.Text));
    j:= GetWindow(h, 0);
    Windows.SetParent(j, Panel1.Handle);
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
  end;
  CloseHandle(ProcessInfo.hProcess);
end;

Bin kein ausgefuchster Delphi-Programmierer und meine Kenntnise sind so lala, ihr seht's ja. Habe den Quelltxt der besseren Lesbarkeit etwas auseinander gezogen, mir ist das sehr Hilfreich.
Und bei diesem Ansatz brauche ich Hilfe, freu mich auf alles was ihr dazu zu sagen=schreiben habt :-D

[Fridolin Walther]

Nur Verständnishalber:
Was hast Du vor? Magst Du die Ausgaben von avidemux_cli.exe in deinem Fenster anzeigen lassen?

[aramintaros]

Zitat:

Zitat von 0xF30FC7

Nur Verständnishalber: Was hast Du vor? Magst Du die Ausgaben von avidemux_cli.exe in deinem Fenster anzeigen lassen?

Es stört und sieht nicht gut aus wenn ein anderes Fenster im Bildschrim ist, und da ich in meinem prog noch Platz habe soll es da hinein.
Wenn ich mein Prog in den Tray klicke soll der Avidemux weiter seine Arbeit verrichten.
Wenn ich die Daten durch eine Pipe filtern könnte wäre das auch nicht verkehrt, brauche es später um abzufragen ob das Video eine konstante oder variable AUDIOBITRATE hat.
Wenn ich diese Thema richtig verstehe, dann mache ich mich über die Pipe her. Aber das kommt später :lol:

[Fridolin Walther]

Damit hast Du meine Frage nicht beantwortet :P. Generell: Wenn Du die Ausgaben selbst anzeigen möchtest ohne das ein separates Kommandozeilen Fenster offen ist, ist die Lösung über Pipes die richtige.

Für ein Beispiel siehe z.B. hier:
http://www.delphipraxis.net/internal...ct.php?t=17004

Pipes haben allerdings ebenfalls einige Limitierungen, wie im Thread dort auch kurz angesprochen.

[aramintaros]

Zitat:

Zitat von 0xF30FC7

Damit hast Du meine Frage nicht beantwortet :P. Generell:

Da habe ich dich wohl nicht richtig verstanden. Erkläre mir bitte was du dann damit meinst. (Magst Du die Ausgaben von avidemux_cli.exe in deinem Fenster anzeigen lassen?)
Werde deine Fragen selbstverständlich beantworten.