Tetszőleges alkalmazás beágyazása egy másikba

procedure TForm1.ToolButton1Click(Sender: TObject);
begin

  WinExec('notepad.exe', SW_HIDE);

  Sleep(500);

  FWnd:=FindWindow('notepad', nil);

  Windows.SetParent(FWnd, Panel1.Handle);

  SetWindowPos(FWnd, 0, 0, 0, Panel1.ClientWidth, Panel1.ClientHeight, SWP_NOZORDER or
      SWP_SHOWWINDOW);
  ShowWindow(FWnd, SW_SHOWMAXIMIZED);
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  SendMessage(FWnd, WM_CLOSE, 0, 0);
end;