Systemets kendte fileExtentions

uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
  L: TStringList;
  I: Integer;
begin
  L := TStringList.Create;
  with TRegistry.Create do
  begin
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey('\', False);
    GetKeyNames(L);
    for I := 0 to L.Count-1 do
    begin
      if Copy(L.Strings[I],0,1) = '.' then
        Memo1.Lines.Add(L.Strings[I]);
    end;
  end;
end;

Mange Tak virker fint