Delphi包文件在注册时的位置

Question

我正在尝试将我的新HTML帮助文件添加到Delphi 10西雅图。根据文档，这需要注册您自己的菜单项：

第三方帮助菜单项(Delphi)

我唯一缺少的是如何在运行时确定组件包的安装目录(或者实际上是设计/注册时间)，这样我就可以在实践中定义Path\to\your\local\help\file。我的帮助文件将相对于.bpl文件安装，所以我只需要找到该路径。

我能搞清楚的是，也许我应该使用ToolsAPI IOTAPackageServices接口？

Answer 1

您可以通过调用SysUtils.GetModuleName(HInstance)获得包的可执行文件名。

Answer 2

我成功地使用了这个版本，这个版本也能工作，但是太复杂了：

var
  PackageServices: IOTAPackageServices;
  I: Integer;
  Package: IOTAPackageInfo;
...
  if Supports(BorlandIDEServices, IOTAPackageServices, PackageServices) then
  begin
    I := 0;
    while True do
    try
      Package := PackageServices.Package[I];
      if Package = nil then
        break;
      if StartsStr('MyProduct', Package.Name) then
      begin
        // The help file is on the "side" directory of the package
        HelpFilePath := ExtractFilePath(Package.FileName) + '..\Help\MyProduct.chm';
      end;
      Inc(I);
    except
        break;
    end;
  end;