如何在一个窗体中运行外部程序?

Question

窗体中运行的式外部程序,外部程序界面要显示在窗体中!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
begin
  h := WIndows.FindWindow(nil, '计算器');
  Windows.SetParent(h, Self.Panel1.Handle);
  Windows.MoveWindow(h, 0, 0, 200, 200, true);
end;

Answer 2

uses shellapi;
procedure TForm1.Button2Click(Sender: TObject);
var hSndrec32: HWND;
begin
  hSndrec32 := WIndows.FindWindow(nil, '声音 - 录音机');
  if hSndrec32<>0 then
  begin
  Windows.SetParent(hSndrec32, Panel1.Handle);
  Windows.MoveWindow(hSndrec32, 0, 0,panel1.Width,panel1.Height,true);
  end
  else
  showmessage('未发现该程序！');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
   shellexecute(handle,'open','sndrec32.exe',nil,nil,sw_shownormal);
end;