我可以检查 CoInitialize 是否已被调用吗？

在具有ADO数据库连接的多线程环境中，我想知道CoInitialize是否已被调用。我该如何检查这个？

通常你不应该做这个检查而只是打电话CoInitialize/CoUnInitialize一对。你仍然可以这样做：

function IsCoInitialized: Boolean;
var
  HR: HResult;

begin
  HR:= CoInitialize(nil);
  Result:= (HR and $80000000 = 0) and (HR <> S_OK);
  if (HR and $80000000 = 0) then CoUnInitialize;
end;

如果你打电话就没有问题CoInitialize在一个线程中不止一次。第一次调用应该返回S_OK，所有后续调用都应该返回S_FALSE。所有这些调用都被认为是成功的，并且应该由CoUnInitialize来电。如果你打电话CoInitialize一个线程中n次，只有最后n次CoUnInitialize调用关闭 COM。