如何获取Excel版本和宏安全级别

Question

Microsoft 最近破解了我们长期以来（并由他们官方推荐）的代码来读取 Excel 版本及其当前的 omamacro 安全级别。

曾经有效的：（

// Get the program associated with workbooks, e.g. "C:\Program Files\...\Excel.exe"
SHELLAPI.FindExecutable( 'OurWorkbook.xls', ...) 

// Get the version of the .exe (from it's Properties...)
WINDOWS.GetFileVersionInfo()

// Use the version number to access the registry to determine the security level
// '...\software\microsoft\Office\' + VersionNumber + '.0\Excel\Security'

我总是觉得好笑的是，安全级别多年来一直存在于不安全的注册表项中......）

在 Office 2010 中，.xls 文件现在与“Microsoft Application Virtualization DDE Launcher”或 sftdde.exe 关联。这个exe的版本号显然不是Excel的版本。

我的问题：

除了实际启动 Excel 并查询其版本和安全级别（使用 OLE CreateOLEObject('Excel.Application')）之外，是否有一种更干净、更快或更可靠的方法来执行此操作，并且适用于从 Excel 2003 开始​​的所有版本？

Answer 1

用于

function GetExcelPath: string;
begin
  result := '';
  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\excel.exe', false) then
        result := ReadString('Path') + 'excel.exe';
    finally
      Free;
    end;
end;

获取 excel.exe 文件的完整文件名。然后照常使用GetFileVersionInfo。

据我所知，这种方法永远有效。

Answer 2

使用 OLE CreateOLEObject('Excel.Application'))

您可以使用此函数使用的同一注册表位置来获取已安装的 Excel 版本。
基本上，您必须克隆该函数注册表代码的很大一部分。
您可以通过 Microsoft Process Monitor 等工具监视该函数调用，也可以准确了解 Windows 如何查找已安装的 Excel，然后以完全相同的方式执行此操作。

您必须打开 HKEY_CLASSES_ROOT\ 处的注册表并枚举名称以“Excel.Application”开头的所有分支。

例如，在我的工作站上，我只安装了 Excel 2013，并且对应于 HKEY_CLASSES_ROOT\Excel.Application.15

但在我的另一个工作站上，我安装了 Excel 2003 和 Excel 2010，在这两个工作站中测试不同的 XLSX 实现，所以我有两个注册表项。

HKEY_CLASSES_ROOT\Excel.Application.12
HKEY_CLASSES_ROOT\Excel.Application.14

因此，您必须枚举具有该名称、点和编号的所有分支。

注意：键 HKEY_CLASSES_ROOT\Excel.Application\CurVer 的名称为“默认”Excel，但当安装了多个 Excel 时，“默认”的含义是不明确的。如果您不在乎，您可以采用该默认值，或者您可以根据自己的想法决定选择什么，例如您想要最大的 Excel 版本还是最小版本或其他版本。

然后，对于每个特定的 Excel 分支，您应该读取其 CLSID 子分支的默认键。
就像 HKEY_CLASSES_ROOT\Excel.Application.15\CLSID 的 nil-named 键等于
{00024500-0000-0000-C000-000000000046} - 将该索引提取到字符串变量。

然后进行第二次搜索 - 进入名为 HKEY_CLASSES_ROOT\CLSID\{00024500-0000-0000-C000-000000000046}\LocalServer 的分支（使用获取的索引）

如果该分支存在 - 获取 nil - 命名的“默认键”值，以获得类似 C:\PROGRA~1\MICROS~1\Office15\EXCEL.EXE /automation

最后的结果是命令行。它以文件名开头（在此示例中未加引号，但可以用引号引起来），后面是可选的命令行。
您不需要命令行，因此您必须提取初始命令行，无论是否带引号。

然后你必须检查是否存在这样的exe文件。如果是，您可以启动它，如果没有，请检查注册表中是否有其他 Excel 版本。