Registry bei Windows 7 32bit mit Delphi 2009 auslesen

[Alex.P]

Hallo,

ich bin von Win XP auf Win 7 32bit umgezogen.
Unter XP konnte ich die vorhandenen COM Ports mit folgenden Code aus der Registry lesen:

Code:

reg := TRegistry.Create;

  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('hardware\devicemap\serialcomm', False);

    reg.GetValueNames(TempResult);
    for i := 0 to TempResult.Count - 1 do
        Result.Add(reg.Readstring(TempResult.strings[i]));
    reg.CloseKey
  finally
    reg.Free;
    TempResult.Free;
  end;

Unter Windows 7 liefert die Funktion GetValueNames eine leere Liste zurück.
Der Pfad und der Inhalt des Registry Schlüssels ist zu XP gleich geblieben.