Wert aus der Registry lesen

[xthing]

Hi Leute,

ich habe ein kleines Problem und zwar muss ich einen Wert aus der Registry auslesen. Wie das funktioniert weiß ich, jedoch ist es so, dass der Wert den ich auslesen will, keinen Namen besitzt.

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var
  registry_val: TRegistry;
  Key : String;
  Key_Val : String;
begin
registry_val := TRegistry.Create();
Key := 'HKEY_CLASSES_ROOT\acrobat\DefaultIcon';
Key_Val := TStrings.Create;
  try
    if registry_val.OpenKeyReadOnly(Key) then
    begin
      Key_Val := registry_val.ReadString('');
      registry_val.CloseKey;
    end;
  finally
    FreeAndNil(registry_val);
  end;

end;

Der Funktion .ReadString(''), muss ich den Valuenamen übergeben. In dem bestimmten REgistryeintrag ist jedoch nur: HKEY_CLASSES_ROOT\acrobat\DefaultIcon\ vorhanden und unter Valuenamen 'ab(Standard)', der aber nicht als Valuenamen verwendet wird. Wie kann diesen Wert nun auslesen?

Danke für Eure Hilfe.

Grüße
xthing