如何使用查找队列？

Question

我使用 Delphi 2007，并尝试找出如何询问 Windows（XP、Server 2003 或 2008）是否安装了指定的 MSMQ 队列。我发现这个 但它是用 C++ 编写的，所以在 Delphi 中使用起来并不容易。例如，我安装了一个名为“.\private$\nctsinqueue”的队列。通过以下方式使用它效果很好：

var
  QueueInfo : IMSMQQueueInfo2;
begin
  QueueInfo := CoMSMQQueueInfo.Create;

问题是，在安装了我的应用程序的某些 Windows 安装中，此队列不存在。是否需要队列取决于偏好。所以我想询问 Windows 是否安装了命名队列，在这种情况下我可以继续上面的代码。

编辑： 尝试了这段代码

function Test: Boolean;
var
  QueueInfo : IMSMQQueueInfo2;
begin
  Result := True;
  QueueInfo := CoMSMQQueueInfo.Create;
  QueueInfo.PathName := '.\private$\nonexistingqueue';
  FQueue := QueueInfo.Open(MQ_RECEIVE_ACCESS, MQ_DENY_NONE);
end;

，它在最后一行引发了异常。我当然可以在这里尝试/例外并在这种情况下返回 False 但我不喜欢对此进行异常处理。我想问一下WinApi什么的队列是否存在。 kobik 建议的 Queue.IsOpen 仅表示是否打开现有队列。当然它必须存在才能打开。

编辑2： 我对此采取了更实用的方法，因此我使用应用程序的 ini 文件解决了这个问题。 仅当队列存在于 ini 文件中时，它才会尝试打开。 当然，缺点是 ini 文件必须与系统中的队列同步，但这部分是相当静态的。