Ich kann - mit einer marginalen Modifizierung deines Codes gemäß der Empfehlung von Sebastian:
Delphi-Quellcode:
FilePath := '
SOFTWARE\Classes\CLSID\';
if PRegKey.OpenKeyReadOnly(FilePath)
then
begin
if PRegKey.HasSubKeys
then
begin
PRegKey.GetKeyNames(subKeyFilePath);
PRegKey.CloseKey;
end;
end;