How to shell to another app and have it appear in a delphi form

by

All error checking omitted, but this should get you started:

procedure TForm1.Button1Click(Sender: TObject);
var
  Rec: TShellExecuteInfo;
const
  AVerb = 'open';
  AParams="";
  AFileName="Notepad.exe";
  ADir="";
begin
  FillChar(Rec, SizeOf(Rec), #0);

  Rec.cbSize       := SizeOf(Rec);
  Rec.fMask        := SEE_MASK_NOCLOSEPROCESS;
  Rec.lpVerb       := PChar( AVerb );
  Rec.lpFile       := PChar( AfileName );
  Rec.lpParameters := PChar( AParams );
  Rec.lpDirectory  := PChar( Adir );
  Rec.nShow        := SW_HIDE;

  ShellExecuteEx(@Rec);
  WaitForInputIdle(Rec.hProcess, 5000);

  fNotepadHandle := Windows.FindWindow( 'Notepad', nil );
  Windows.SetParent( fNotepadHandle, Handle );

  Resize;
  ShowWindow(fNotepadHandle, SW_SHOW);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  if IsWindow(fNotepadHandle) then begin
    SetWindowPos(fNotepadHandle, 0, 0, 0, ClientWidth, ClientHeight,
      SWP_ASYNCWINDOWPOS);
  end;
end;

What you should definitely do is enumerate the windows of the new process, instead of simply using any window handle that FindWindow() returns.

More Related Contents:

  1. Getting output from a shell/dos app into a Delphi app
  2. How do I run a command-line program in Delphi?
  3. Pascal, Delphi Linked lists [closed]
  4. Antivirus False positive in my executable
  5. Delphi application with login / logout – how to implement?
  6. Which logging library is better? [closed]
  7. How do I sort a generic list using a custom comparer?
  8. What’s the simplest way to call Http POST url using Delphi?
  9. Delphi Profiling tools [closed]
  10. Anonymous methods – variable capture versus value capture
  11. Auto append/complete from text file to an edit box delphi
  12. TLabel and TGroupbox Captions Flicker on Resize
  13. Creating Accessible UI components in Delphi
  14. Step by step upgrade of Indy 10 in Delphi 2009
  15. export delphi stringgrid to excel
  16. How to set a forward declaration with generic types under Delphi 2010?
  17. How to insert image into database using TADOQuery Component Only
  18. Standard URL encode function?
  19. Form is hidden behind other forms when ShowModal is called
  20. How to simulate bit-fields in Delphi records?
  21. TProgressBar never fills up all the way – seems to be updating too fast? [duplicate]
  22. What are major incentives to upgrade to D2009 (Unicode excluded)?
  23. Masking floating point exceptions with Set8087CW, SetMXCSR and TWebBrowser
  24. Can you make a Borderless Application Main Window in Windows, without WS_POPUP style?
  25. How to get line number at runtime
  26. Resize PNG image
  27. Delphi control that could mimic “Add-ons|Extension list” of Firefox?
  28. Custom Control Creation in Delphi
  29. Delphi: Understanding constructors
  30. How to cast a Interface to a Object in Delphi

Leave a Comment