Registry - Files lesen und löschen

[marabu]

Hallo,

alle Werte eines Schlüssels kannst du so löschen:

Delphi-Quellcode:

uses
  Registry;

procedure DeleteValues(hive: Cardinal; const key: String);
var
  i: Integer;
  s: TStrings;
begin
  with TRegistry.Create do
  begin
    RootKey := hive;
    if OpenKey(key, False) then
    begin
      s := TStringList.Create;
      GetValueNames(s);
      for i := 0 to Pred(s.Count) do
        DeleteValue(s[i]);
      CloseKey;
      s.Free;
    end;
    Free;
  end;
end;

Grüße vom marabu