Comment déterminer si MSXML6 est installé dans un système utilisant Delphi ?

Question

J'ai une application qui dépend de la MSXML6 Dans la plupart des machines, lorsque l'application est déployée, ce paquet est déjà installé, mais dans certains cas, MSXML6 n'est pas installé. La question est de savoir comment vérifier si MSXML 6 est déjà installé.

Answer 1

Vous pouvez vérifier si le CLSID existe dans le registre à l'aide de la commande CLSIDFromProgID pour MSXML, le CLSID est Msxml2.DOMDocument.6.0

Consultez cet exemple d'application

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.