delphi - 在64位Delphi程序中CreateOleObject？

Question

在Delphi XE7 64位 VCL程序中，找不到Vcl.OleAuto单元:

[dcc64 fatal error ] Unit1.pas(33): F1026 找不到文件: 'Vcl.OleAuto.dcu'

虽然它在32位程序中运行没有问题:

uses
  Vcl.OleAuto;
...
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');

那么如何在 64 位程序中使用 CreateOleObject 呢？

Answer 1

尽管仍提供 Vcl.OleAuto 的源代码，但 64 位 lib 目录不包含 Vcl.OleAuto.dcu。相反，您应该使用 System.Win.ComObj 和/或 System.Win.ComServ。请注意，Vcl.OleAuto 的源代码将该单元标记为已弃用，并告诉您应该使用什么。

如果我们查看Vcl.OleAuto的源代码，我们可以找到一些尚未移植的32位asm代码。据推测，Embarcadero 决定不将其移植到 64 位，因为该单元已被弃用。