在Delphi中，应用程序的主要帮助文件是通过TApplication.HelpFile属性分配的。然后，对应用程序帮助系统的所有调用都使用此属性(与CurrentHelpFile一起使用)来确定调用路由到的帮助文件。

除了TApplication.HelpFile，每个表单还具有TForm.HelpFile属性，该属性可用于为来自该特定表单的帮助调用指定一个不同的(单独的)帮助文件。

但是，如果应用程序的主帮助窗口已经打开，并且通过第二个帮助文件发出了帮助呼叫以显示帮助，则两个帮助窗口都将挂起。现在，两个帮助窗口都无法访问，也无法关闭。摆脱帮助窗口的唯一方法是关闭应用程序，这会导致两个帮助窗口也被自动关闭。

例子：

Application.HelpFile := 'Main Help.chm'; //assign the main help file name
Application.HelpContext(0); //dispays the main help window
Form1.HelpFile := 'Secondary Help.chm'; //assign a different help file
Application.HelpContext(0); //should display a second help window

上面的代码的最后一行打开辅助帮助窗口(但没有内容)，然后两个帮助窗口都挂起。

我的问题是这样的：

• 是否可以同时显示两个HTMLHelp窗口，如果可以，则应遵循什么步骤？
• 如果不是，是否有办法判断应用程序的帮助窗口是否已经打开，然后在显示其他帮助窗口之前以编程方式将其关闭？

(我在Windows Vista上使用带有HTMLHelp文件的Delphi 2007)

更新：2008-09-18

实际上，使用上面的代码同时打开两个帮助文件确实可以按预期工作。问题似乎出在我使用的实际帮助文件而不是代码上。

我在不同的帮助文件中尝试了相同的代码，但效果很好。

奇怪的是，我正在使用的两个帮助文件本身都能正常工作，只有当我们尝试同时挂起两个文件时，并且仅当我们从代码中打开它们时(在Windows资源管理器中，我才能在同时没有问题)。

无论如何，问题肯定出在帮助文件上，而不是代码上，所以原来的问题现在几乎是无效的。

更新2：2008-09-18

我最终找到了挂起帮助窗口的原因。我将在下面发布答案并将其作为正确的答案接受，以供将来参考。我还更改了问题标题。

糟糕...看来我无法接受自己的回答...

请投票，使它排在最前。

解决方案

回答

这里没有帮助文件，甚至对于Vista都没有经验，但是我可以为我们提供可能的解决方法...

生成第二个应用程序，其唯一的工作就是打开帮助文件。我们可以文件名作为命令行参数传递。

我们可以轻松地从主应用程序检查此帮助应用程序是否正在运行。这样我们就可以完全控制自己，因为我们可以决定是否要

• 发送消息以关闭帮助应用程序，然后再打开辅助帮助
• 允许帮助应用程序的一个以上实例来允许同时打开不同的帮助文件
• 允许帮助在应用程序关闭后保持打开状态，或者是否要向其发送消息以将其关闭

我们还可以检查帮助应用程序的实例是否已经打开了请求的帮助文件，并决定是否要第二次打开它，或者只是将现有实例置于前台。

如前所述，如果事实证明这是我们唯一的选择，那么这是一种解决方法，请告诉我我们是否需要代码示例。否则，我将保持此帖子的整洁(并在短期内节省时间)，并且不要在不必要的信息来源中打乱

回答

我刚刚对其进行了测试，并且可以按照我们尝试的那种代码的预期工作。
在D2007 / XP中进行编译，在XP和Vista中均可正常运行。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile:= 'depends.chm';
  Application.HelpContext(0);
  HelpFile:='GExperts.chm';
  Application.HelpContext(0);
end;

这两个帮助文件都可以打开，并且仍然运行良好。

Q1：我们是否检查了帮助文件的有效性？
问题2：我们将代码放在哪里？

回答

试过了正常工作。

回答

假设我们有两个帮助文件，分别称为"帮助文件1.chm"和"帮助文件2.chm"，并且正在从Delphi代码中打开这些帮助文件。

要打开帮助文件1，以下代码将起作用：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile := 'Help File 1.chm';
  Application.HelpContext(0);
end;

要打开帮助文件2，以下代码将起作用：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile := 'Help File 2.chm';
  Application.HelpContext(0);
end;

但是要同时打开两个文件，以下代码将导致两个帮助窗口挂起。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile := 'Help File 1.chm';
  Application.HelpContext(0);

  Application.HelpFile := 'Help File 2.chm';
  Application.HelpContext(0);
end;

解决方案：

该问题是由于帮助文件名中存在空格这一事实引起的。

从文件名中删除空格将解决此问题。

以下代码可以正常工作：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile := 'HelpFile1.chm';
  Application.HelpContext(0);

  Application.HelpFile := 'HelpFile2.chm';
  Application.HelpContext(0);
end;