Delphi CreateOleObject答案

【问题标题】：Delphi CreateOleObjectDelphi CreateOleObject
【发布时间】：2012-02-01 10:56:32
【问题描述】：

有没有办法让CreateOleObject 在 Delphi 表单应用程序中工作？我知道它需要 ComObj，我猜这可能意味着它仅供控制台应用程序使用。如果我不能在表单应用程序中使用它，我可以使用其他方法吗？

为了提供上下文，出于识别原因，我正在尝试获取计算机的 HWID。根据指南（使用控制台），我需要执行以下操作：

objSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
objWMIService   := objSWbemLocator.ConnectServer('localhost','root\cimv2', '','');

这在控制台中很好，但我需要使用表单，以便我的用户更容易访问它。

所以重申一下；有没有办法在非控制台应用程序中实现这一点？如果没有，有其他选择吗？

【问题讨论】：

【解决方案1】：

CreateOleObject 在表单应用程序中工作得很好。这不是问题。

【讨论】：

我想我的库设置一定有问题。 ComObj 出于某种原因在表单应用程序上显示错误。很抱歉这个帖子。
如果您向我们展示您的所有代码并准确告诉我们错误是什么，我相信我们可以帮助确定真正的问题是什么。
我想我找到了问题所在。我确实有 ComObj 库并且它正在被使用，但由于某种原因，我的 ComObj 库具有除CreateOleObject 之外的所有正常功能。一定是我的版本之类的，但只缺少一个功能很奇怪。
ComObj 是产品的一部分。你不应该修改它。
@ozdrgnaDiies，您应该使用 $include 文件而不是出于可移植性原因直接修改单元。