excel - 如何查询嵌入式 OLE 应用程序的显示名称

Question

我想查询嵌入在我的 Delphi XE4 Win32 应用程序中的 OLE 应用程序的显示名称。

使用

TOleContainer类，容器可以包含不同的OLE应用程序(例如MS Word，MS Excel，...)，依赖关于在哪个文件中进行编辑。

我想要返回的是 Microsoft Word 2007(或 2010 或 2013 或...)或至少 Microsoft Word，如标题中所示普通 Word 实例的栏。

<小时/>

编辑:TOndrej 的回答非常有帮助。谢谢。

不幸的是，正如我在他的答案下面的评论中所述，它没有显示真正的应用程序标题。我找到了这个question on SO 。据说，我可以使用 _Application.Caption 属性访问主机应用程序的标题。我没有 _Application 实例，而是 IOleObject。类型转换(MyOleObjectInterface as _Application)失败。

如何作为 _Application 访问 OleObject？

Answer 1

参见IOleObject.GetUserType方法:

function GetOleObjectAppName(const OleObject: IOleObject): string;
var
  AppName: PWideChar;
begin
  OleCheck(OleObject.GetUserType(USERCLASSTYPE_APPNAME, AppName));
  try
    Result := AppName;
  finally
    CoTaskMemFree(AppName);
  end;
end;

使用示例:

  ShowMessage(GetOleObjectAppName(OleContainer1.OleObjectInterface));