delphi - Coinitialize has not been called 错误信息

Answer 1

如果您想使用 COM - 对象，您必须使用相应的 CoUninitialize 调用 CoInitialize。

在通常的应用程序中，这将已经完成。
只要您的程序是控制台程序，您就必须自己调用它。

.....
CoInitialize(nil);
try
  try
    { TODO -oUser -cConsole Main : Insert code here }
    ExecName := GetCurrentDir + '\' + 'Client.exe';
    AddExceptionToFirewall('SIP Inventory',ExecName);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
finally
  CoUninitialize;
end;
.....