OpenDocument mit Delphi verarbeiten

**benst**

Hi,
wollte jetzt mal ein wenig mit dem empfohlenen Tutorial rumprobieren. Ich habe MS XML4 installiert, aber da kommen gleich Probleme auf.
Ich wollte erst einmal die Funktion ausprobieren, die prüft, ob MS XML4 installiert ist.

zusammenfalten · markieren

Delphi-Quellcode:

			function DoesXMLExist: boolean;

var

  reg : TRegistry;

  s   : string;

begin

  Result := false;

  reg    := TRegistry.Create(KEY_READ);

  if(reg <> nil) then

    with reg do try

      RootKey := HKEY_CLASSES_ROOT;

      if(OpenKey('CLSID\' + GuidToString(CLASS_DOMDocument40) + '\InProcServer32',false)) then

      try

        s      := ReadString('');

        Result := (s <> '') and (fileexists(s));

      finally

        CloseKey;

      end;

    finally

      Free;

    end;

end;