Registry - Alle Keys von HKEY_CLASSES_ROOT auslesen

[KarllerntDelphi]

Hallo,

ich versuche alle Schlüssel von HKEY_CLASSES_ROOT (Hintergrund, ich möchte alle regsitrierten Extensions haben)
auszulesen. Bei meinem bisher untauglichen Versuch bekomme ich eine leere Liste.
Was mache ich falsch. Es ist ja für den 'OpenKey' kein wirklicher Schlüssel da, den ich angeben könnte....
procedure LeseExtensions( var sl : TStringList);
var
reg : TRegistry;
begin
reg := TRegistry.Create;
sl:=TStringList.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('', False);
reg.GetKeyNames(sl);
reg.CloseKey;
finally
reg.Free;
end;
end;

Danke

Karl