64位德尔菲程序中的CreateOleObject？

Question

在Delphi XE7 64位 VCL程序中，无法找到单元Vcl.OleAuto：

[dcc64 Fatal Error] Unit1.pas(33): F1026 File not found: 'Vcl.OleAuto.dcu'

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

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

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

Answer 1

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

如果我们查看Vcl.OleAuto的源代码，我们可以发现大约32位asm代码还没有移植。据推测，Embarcadero决定不将其移植到64位，因为该单元已被弃用。