1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

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;