Ärger mit Shellexecute

[Delbor]

Hi zusammen

Nachdem ich nun die Klammer richtig gesetzt habe, lässt sich nun das fremde Programm starten. Nun will ich es noch auf ein Tabsheet einpassen Es soll da bis zur Beendigung des "Mutterprogramms" bleiben, so dass es jederzeit erneut zur Verfügung steht.
Das soll vorerst mal mit diesem Code geschehen:

Delphi-Quellcode:

procedure TAlexOpenfileFrame.TVFilesExplorerMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    var AnItem: TTreeNode; P: TPoint; LSelectItem, ext : String;
  begin
    FCodeReportlist.Add('procedure TAlexOpenfileFrame.TVFilesExplorerMouseDown');
    FCodeReportlist.Add('--------------------------------------');
    AnItem := TVFilesExplorer.GetNodeAt(X, Y);
    if Button =(mbLeft) then
    begin
      LSelectItem := PNameRec(AnItem.Data)^.RealName;
      ext := ExtractFileExt(LSelectItem);
      if ext = '.pdf' then
      begin
        ShellExecute(handle, 'open', PChar('F:\Externer Programmordner\Ashampoo\Ashampoo PDF Free\Ashampoo PDF.exe'),
                                     PChar(LSelectItem), nil, SW_SHOWNORMAL);
        SetAppParent(Application.Name);
      end;
    end;
    if Button =(mbRight) then
    begin

und

Delphi-Quellcode:

procedure TAlexOpenfileFrame.SetAppParent(Application : String);
 var aWnd : Hwnd; WPM : TWindowPlacement; Rect : TRect;
begin
  aWnd:=Findwindow(PChar(Application),nil);
  if aWnd<>0 then
  begin
    Winapi.Windows.SetParent(awnd,OfficerAlexMain.tbsAppParent.Handle);

    WPM.Length:=SizeOf(WPM);
    GetWindowPlacement(awnd,@WPM);
    Rect.Top :=0;
    Rect.Left :=0;
    Rect.Right :=OfficerAlexMain.tbsAppParent.Width;
    Rect.Bottom:=OfficerAlexMain.tbsAppParent.Height;
    wpm.rcNormalPosition:=Rect;
    SetWindowPlacement(awnd,@WPM);
  end;

end;

Zur Zeit habe ich einen Breakpoint beim Aufruf 'SetAppParent'gesetzt, Delphi hält da an,und zur gleichen Zeit wird die App gestartet. Allerdings nicht auf dem Tabsheet, sondern Solo.

Der letzte Parameter von Shellexecute ist hier SW_SHOWNORMAL - der könnte wohl in SW_Hide geändert werden und erst bei/nach Rückkehr aus SetAppParent auf SW_SHOWNORMAL gesetzt werden - ob das allerdings so einfach ist, wie das in Pascal wohl wäre...
Hat jemand eine bessere Idee?

Gruss
Delbor