[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:

zusammenfalten · markieren

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

[Registry] Auslesen des Ordnerinhalts schlägt fehl

[Registry] Auslesen des Ordnerinhalts schlägt fehl

Forumregeln