如何shell到另一个应用程序并让它以delphi形式出现

Question

在 Delphi 中，我多年来一直使用 ShellExecute 来启动（并可选择等待）其他应用程序。 但现在，我需要让这些应用程序之一出现在我的 Delphi 应用程序表单之一中。 我尝试使用下面的代码作为一个简单的测试来打开记事本（它会这样做）并在我的表单上的 PAnel1 中显示结果（它不会）。 有好心人能让我走上正轨吗？ 谢谢

var
  Rec          : TShellExecuteInfo;
  wnd : HWnd;
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_Show;

  ShellExecuteEx(@Rec);

  wnd := Windows.FindWindow( 'Notepad', nil );
  Windows.SetParent( Wnd, PAnel1.Handle );

end;

Answer 1

省略所有错误检查，但这应该可以帮助您开始：

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;

您绝对应该做的是枚举新进程的窗口，而不是简单地使用 FindWindow() 返回的任何窗口句柄。

Answer 2

var
  URL: string;
begin
  URL:= DBMemoURL.Text;
  // ShellExecute(self.WindowHandle,'open', PChar(URL), nil, nil, SW_SHOW); //default browser
     ShellExecute(self.WindowHandle,'open','chrome.exe', PChar(URL), nil, SW_SHOW); 

Answer 3

如果可能的话，这将是一个棘手的问题。

我见过适用于基于文本的应用程序的方法 - 它们通常捕获流程发生时的标准输出并将其放入文本控件中。

但您所说的是一个成熟的图形应用程序（记事本，尽管处理文本、显示像素，而不是字符代码）。

因此，除非记事本提供了一个接口，您可以：

• 请求缓冲区中的任意字符； 并向
• 程序发送任意击键，
  我想说你运气不好。

绝对是一个拼凑，但一个选择是持续监视记事本窗口并确保它始终叠加在您的表单客户区域上。 这非常可怕，因为您必须阻止它移动、调整大小、最小化等等，并保持其 z 顺序位于应用程序的正上方。 我不希望对我最大的敌人提出这些要求。

您是否考虑过使用专为 Delphi 构建的编辑器控件（或可以嵌入的 ActiveX 编辑器）？ 这可能是一个更好的方法。