Hente registry data ind i ValueList

Fandt selv ud af det:

procedure TForm1.ButtonLoadCurrentUserClick(Sender: TObject);
var
  Reg : TRegistry;
  Val : TStringList;
  I : Integer;
begin
  ValueList.Strings.Clear;
  Reg := TRegistry.Create;
  try
    Val := TStringList.Create;
    try
      Reg.RootKey := HKEY_CURRENT_USER; // Section to look for within the registry
      if not Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False) then
        ShowMessage('Error opening key')
      else
      begin
        Reg.GetValueNames(Val);

        for I := 0 to Val.Count-1 do
        begin
          ValueList.Strings.Add(Val.Strings[I] + '=' + Reg.ReadString(Val.Strings[I]))
        end;
      end;
    finally
      Val.Free;
    end;
  finally
    Reg.Free;
  end;
end;