Registry den Namen des wertes ausslesen

[MasterTobi]

danke aber entweder bin ich zu dumm oder ka

Delphi-Quellcode:

  
var Listname:TStringList;

regist:=TRegistry.Create;
  try
   Listname:=TStringList.Create;
    regist.RootKey:=HKEY_CURRENT_USER;
    regist.OpenKey('Software\Microsoft\Windows\ShellNoRoam\MUICache', false);
   regist.GetKeyNames(Listname);
  finally
  regist.CloseKey();
    regist.free;
   end;

  for i:=0 to Listname.Count-1 do
  begin
    try
      listbox1.Items.Add(Listname.Strings[i]);
    finally
      Listname.Free;
    end;
  end;
  end;

geht net kommen keine einträge in die listbox