prüfen ob MSXML4 installiert ist

[wk_one]

Hallo,
ich habe ein kleines Programm das msxml4 verwendet. Bevor das Programm startet wird mit einer Funktion abgefragt ob msxml4 installiert ist.
Die Funktion hatte ich aus diesem Forum:

Delphi-Quellcode:

function msxml4Exists():boolean;
var
  reg :TRegistry;
  s   :String;
begin
  reg:= TRegistry.Create(KEY_READ);
  if (reg<>nil)then
  begin
    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;
end;

Das funktioniert auf Win2000 ganz gut. Wenn das aber unter WinXP läuft dann erhalte ich immer ein false, ob msxml installiert ist oder nicht.
Kann mir jemand weiterhelfen?
Danke

[phlux]

Pardon
Muss gleich nmochmal editieren..

Edit2: Versuch doch einfach mit dem Prog nach der .dll zu suchen! Ausserdem ist MS XML4.0 automatisch bei XP drauf.

[CalganX]

Hi,
das Problem ist, dass unter XP die Wildcard %SYSDIR% verwendet wird. Am Besten änderst du die fileexists-Zeile.

Chris

[wk_one]

Zitat von phlux:

Pardon
Muss gleich nmochmal editieren..

Edit2: Versuch doch einfach mit dem Prog nach der .dll zu suchen! Ausserdem ist MS XML4.0 automatisch bei XP drauf.

Leider muss das Prog auch auf Win2000 usw. laufen, deshalb kann ich die Abfrage nicht rausnehmen.
Wie meinst Du nach der DLL suchen? In den Systemverzeichnissen? Liegt die DLL immer im selben Verzeichnis?

Zitat von Chakotay1308:

Hi,
das Problem ist, dass unter XP die Wildcard %SYSDIR% verwendet wird. Am Besten änderst du die fileexists-Zeile.

Chris

Du meinst die Zeile in der das Ergebins zurückgegeben wird?
Result :=(s<>'') and (FileExists(s)); Was könnte ich da ändern? Wie gesagt den Code habe ich aus diesem Forum. Hab ihn nicht selbst geschrieben.
Und was war mit %SYSDIR%? Sollte ich %SYSDIR%\msxml.dll suchen lassen?

Danke

[wk_one]

oh.. jetzt sehe ich es. der Pfad steht so in der Registry drin %SystemRoot%\System\msxml.dll

Kann ich nicht auch irgendwo den Wert von %SystemRoot% auslesen?

[phlux]

Wenn ich mich nicht irre gibt es solche Konstanten in Delphi, die auf das Windows Verzeichnis und auf das System-Verzeichnis hinweisen.

[wk_one]

Danke euch für die Hinweise.

Falls es jemanden interessiert
so funktioniert es auch unter WinXP:

Delphi-Quellcode:

function msxml4Exists():boolean;
var
  reg :TRegistry;
  s:String;
begin
  reg:= TRegistry.Create(KEY_READ);
  if (reg<>nil)then
  begin
    with reg do try
      RootKey := HKEY_CLASSES_ROOT;
      if (OpenKey('CLSID\'+ GUIDToString(CLASS_DOMDocument40) +'\InProcServer32',false)) then
      try
        s:=ReadString('');
      finally
        CloseKey;
      end;
    finally
      Free;
    end;
  end;

  //---Wenn in der Pfadangabe %SystemRoot% vorkommt (bei WinXP)
  if pos('%SystemRoot%',s)>0 then
  begin
    s:= getSysDir() + ExtractFileName(s);
  end;

  result:=FileExists(s);

end;

Delphi-Quellcode:

function getSysDir():String;
var
  sysdir:String;
begin
  SetLength(sysdir,254);
  GetSystemDirectory(@sysdir[1],length(sysdir));
  //---Da die Zeichenkette nun 255 Zeichen lang ist, existieren NULL Zeichen diese werden in nächter Zeile entfernt
  Delete(sysdir,pos(chr(0),sysdir),length(sysdir)-pos(chr(0),sysdir)+1);
  result :=SysDir+'\';
end;

[phlux]

Ich denke mal Chris sollte das in seinem Tutorial mit einfügen

[CalganX]

Hi,
mit einer kleinen Änderung und einem kleinem Vermerk zum Autor und drin ist es...

Chris

[MathiasSimmack]

Zitat von wk_one:

Delphi-Quellcode:

function getSysDir():String;
var
  sysdir:String;
begin
  SetLength(sysdir,254);
  GetSystemDirectory(@sysdir[1],length(sysdir));
  //---Da die Zeichenkette nun 255 Zeichen lang ist, existieren NULL Zeichen diese werden in nächter Zeile entfernt
  Delete(sysdir,pos(chr(0),sysdir),length(sysdir)-pos(chr(0),sysdir)+1);
  result :=SysDir+'\';
end;

Was machst´n du da? GetSystemDirectory liefert die Anzahl der kopierten Zeichen zurück, die termininierende Null nicht eingeschlossen. Also:

Delphi-Quellcode:

var
  s : string;
begin
  SetLength(s,MAX_PATH);
  SetLength(s,GetSystemDirectory(@s[1],length(s)));
end;