[Registry] Auslesen des Ordnerinhalts schlägt fehl

[flomei]

Hallo!
Ich versuche den Inhalt des Ornders "Fonts" aus der Registry auszulesen.
Allerdings schlägt das fehl.
Folgenden Code verwende ich:

Delphi-Quellcode:

procedure TfrmMain.StartProgram(Sender: TObject);
  var
    registry: TRegistry;
  begin
    registry := TRegistry.Create;
    registry.RootKey := HKEY_LOCAL_MACHINE;
    begin
      if
        registry.OpenKey('SOFTWARE/Microsoft/CurrentVersion/FONTS', false)
      then
        registry.GetValueNames(ListBoxListFonts.Items)
      else
        MessageDlg('Could not read fonts!', mtWarning, [mbOK], 0);
    end;
    registry.CloseKey;
  end;

Ich erhalte immer die Fehlermeldung aus dem else-Fall...
Ich habe das dumpfe Gefühl das ich nen dummen Fehler gemacht habe aber ich finde ihn nicht.

Wäre nett wenn ihr euch das mal anguckt. Danke!

MfG Florian

[w3seek]

Dieser Registry Key existiert nicht...Ausserdem solltest du lieber auf HKEY_CURRENT_USER zurueckgreifen da der code sonst fuer normale Benutzer nicht funktioniert.

[SirThornberry]

ich denk mal anstelle von

Zitat:

'SOFTWARE/Microsoft/CurrentVersion/FONTS'

solltest du

Code:

'SOFTWARE/Microsoft/Windows/CurrentVersion/FONTS'

verwenden

[rantanplan99]

Der Registry-Key existiert bei mir nicht, überprüfe doch mal ob der Key stimmt.

Code:

SOFTWARE/Microsoft/CurrentVersion/FONTS

Der CurrentVersion Eintrag befinded sich nämlich hier:

Code:

SOFTWARE/Microsoft/Windows/CurrentVersion/FONTS

aber da habe ich auch keinen Eintrag 'FONTS'

Evtl. suchst du diesen Key? Der existiert zumindest bei mir

Code:

SOFTWARE/Microsoft/Windows NT/CurrentVersion/FONTS

[flomei]

Oh, zu dumm zum abschreiben...

Naja, muss ja jetzt sowieso mal umstrukturieren wenn normale Benutzer keinen Zugriff darauf haben und das wieder von Windows zu Windows unterschiedlich ist...

Nochmal Danke an alle!

MfG Florian

[Bernhard Geyer]

Ein Vorschlag: Der offizielle Weg um die Installierten Fonts auszulesen wäre die Win32-API-Funktion EnumFonts.
Damit bist Du auch unabhängig von irgendwelchen Ändernungen an der Registry (Speicherort).

[flomei]

Gut zu wissen! Werde mich da mal schlau machen!

MfG Florian

[Niko]

Hi,

auch für den Ordner gibt es einen offiziellen Weg: Die Funktion SHGetSpecialFolderLocation.

[Christian Seehase]

Moin Florian,

vielleicht solltest Du auch beim Auslesen aus der Registry \ statt / verwenden.
Schau Dir mal eine Reg-Datei an.