Externes Programm in Panel laufen lassen

[Jelly]

Hallo,

In Bezug auf diesen Thread nutze ich folgenden Code, um aus einer Anwendung 1 eine 2. zu starten, die dann in einem Panel aus Anwendung 1 angezeigt werden soll:

Delphi-Quellcode:

        
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
        StartupInfo.cb          := SizeOf(StartupInfo);
        StartupInfo.dwFlags     := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
        StartupInfo.wShowWindow := SW_SHOWNORMAL ;
        if Command <> ''
        then StartName := format ('%s "%s"',[Filename,CommandText])
        else StartName := Filename ;
        FPID := 0 ;
        if CreateProcess(nil,@StartName[1],nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo) then begin
            FPID := Processinfo.dwProcessID ;

            //sleep(2000) ;

            t1 := now ;
            repeat
               if SearchMode = smByClassname
               then FItems.Owner.ChildHandle := FindWindow (PChar(ClassName),nil)
               else FItems.Owner.ChildHandle := FindWindow (nil,PChar(FormCaption)) ;
            until (FItems.Owner.ChildHandle <> 0) or (now-t1 > EncodeTime(0,0,5,0)) ;

            { Eventuell im Panel anzeigen }
            if RunInPanel then begin
                if (FItems.Owner.ChildHandle <> 0) and assigned(Panel) then begin
                    Windows.SetParent(FItems.Owner.ChildHandle, Panel.Handle);
                    ShowWindow(FItems.Owner.ChildHandle, SW_MAXIMIZE);
                end else begin
                    ShowMessage ('Panel Problem') ;
                end ;
            end ; { im Panel anzeigen }
        end else begin
            Showmessage ('konnte Programm nicht starten') ;
        end ;

Es taucht dabei ein skuriles Phänomen auf. Die 2. Anwendung wird gestartet, jedoch maximized im gesamten Desktop, statt im Panel. Lass ich eine Sleep(2000) Pause nach der Prozesserzeugung den Ablauf bremsen, so klappts einwandfrei... Nun ist diese Sleep-Lösung aber sicherlich nicht die feine englische Art.

Das Komische daran ist, dass ich vor if RunInPanel then begin... sowohl Handle als auch FPID habe. Warum funktioniert der Code nicht zum Anzeigen des Forms im Panel ?