Registry und Typen

[MathiasSimmack]

Quasi das Gegenstück zu Registry und DWORDs -

Mit "GetValue" kann man einen Wert aus der Registry lesen, der als Objekt zurückgegeben und entsprechend gecastet werden muss. Bei Strings kein Problem:

Delphi-Quellcode:

reg := Registry.LocalMachine.OpenSubKey('Schlüsselname');
if(reg <> nil) then
try
  ListView1.Items.Add(string(reg.GetValue('Name des Wertes')));
finally
  reg.Close;
end;

Das Casten in andere Typen ist, IMHO, auch nicht das Problem. Aber wie kann ich ermitteln, welcher Typ vorliegt? Sprich: Ob der Wert ein String, ein DWord oder bspw. ein Binärwert ist?

[Bernhard Geyer]

In der WinAPI gibt es die Funktion RegQueryInfoKey. Ich denke diese liefert die gewünschten Infos.

[MathiasSimmack]

Das heißt mit anderen Worten: Ich muss die Win32-API-Funktion benutzen, weil .NET von sich aus nichts in der Art zur Verfügung stellt. Okay, ich wollte ohnehin mal ausprobieren, wie so was funktioniert.

Danke, Bernhard.

[NicoDE]

Zitat von MathiasSimmack:

Mit "GetValue" kann man einen Wert aus der Registry lesen, der als Objekt zurückgegeben und entsprechend gecastet werden muss.

Warum dann nicht GetType() benutzen (oder den is-Operator um 'kompatibel' zu bleiben) um den Typen zu ermitteln?

[MathiasSimmack]

Es ist sogar noch einfacher. Ich habe ja vergessen, dass .NET durchaus auch Vorteile hat. Folgendes Beispiel löst mein Problem und zeigt zusätzlich auch noch den Typnamen (wenn auch im .NET-Format) an.

Delphi-Quellcode:

const
  szUninst   = 'Software\Microsoft\Windows\CurrentVersion\Uninstall';

procedure TMainForm.LoadRegValues(const szName: string);
var
  reg        : RegistryKey;
  vals       : array of string;
  i          : integer;
  li         : ListViewItem;
  obj        : TObject;
begin
  lv.BeginUpdate;
  lv.Items.Clear;

  // Schlüssel öffnen, ...
  reg := Registry.LocalMachine.OpenSubKey(szUninst + '\' + szName);
  if(reg <> nil) then
  try
    vals    := reg.GetValueNames;
    if(length(vals) > 0) then
    begin
      for i := low(vals) to high(vals) do
      begin
        // Name, ...
        li  := lv.Items.Add(vals[i]);
        obj := reg.GetValue(vals[i],nil);

        // ... & Typ, ...
        li.SubItems.Add(obj.GetType.ToString);

        // ... & Wert
        li.SubItems.Add(obj.ToString);
      end;

      SetLength(vals,0);
    end;
  finally
    reg.Close;
  end;

  lv.EndUpdate;
end;

Hintergedanke ist natürlich ein Programm, das die Liste der installierten Software in einem Tree-View anzeigt, und bei Auswahl eines Schlüssels (= Eintrag im TV) werden alle Einträge ermittelt und in einer List-View angezeigt.

Danke für die Denkanregung, Nico.