MSXML-Version auslesen, wenn überhaupt installiert

[xaromz]

Hallo,

Zitat von torud:

Schlecht wäre aber eine Funktion mit Rückgabe der Version nicht...

da Du ja den Quellcode hast, kannst Du das sicher leicht selbst einbauen. Aber hier mal ein Anfang:

Delphi-Quellcode:

function MSXMLVersion: Integer;
var
  XML: IXMLDOMDocument;
begin
  Result := 0;
  try
    XML := CoDOMDocument60.Create;
    if Assigned(XML) then
      Result := 6;
  except
    try
      XML := CoDOMDocument40.Create;
      if Assigned(XML) then
        Result := 4;
    except
    end;
  end;
end;

Gruß
xaromz