1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

uses Registry;

procedure ListeLesen(Ext: String; List: TStrings);  // uses Registry;
var
  RegPath: String;
begin
  List.Clear;

  RegPath := Ext;

  with TRegistry.Create do { TODO : Funktioniert nicht bei Delphi 7 }
  try
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey(RegPath, False);

    //ShowMessage( ReadString('PerceivedType') ); { Funktioniert auch nicht }

    GetKeyNames(List);
    CloseKey;
  finally Free end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListeLesen('.bmp', ListBox1.Items);
end;					

1:

Access := KEY_READ;					

1:

{$IFDEF VER150} Access := KEY_READ; {$ENDIF}