如何确定使用Delphi的系统中是否安装了MSXML6？

我有一个应用程序取决于MSXML6 http://www.microsoft.com/download/en/details.aspx?id=3988#overview，在大多数机器上，当部署应用程序时，这个包已经安装了，但在少数情况下，MSXML6 没有安装，问题是我如何检查 MSXML 6 是否已经安装？

您可以使用以下命令检查注册表中是否存在 CLSIDCLSID来自ProgID http://msdn.microsoft.com/en-us/library/windows/desktop/ms688386%28v=vs.85%29.aspx函数，对于 MSXML，CLSID 是Msxml2.DOMDocument.6.0

检查这个示例应用程序

uses
  ActiveX,
  SysUtils;

{
        Msxml2.DOMDocument.2.6
        Msxml2.DOMDocument.3.0
        Msxml2.DOMDocument.4.0
        Msxml2.DOMDocument.5.0
        Msxml2.DOMDocument.6.0
}
var
  clsid: TCLSID;
begin
  try
    if Succeeded(CLSIDFromProgID('Msxml2.DOMDocument.6.0', clsid)) then
     Writeln('MSXML 6.0 Installed')
    else
     Writeln('MSXML 6.0 Not Installed');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.