einzelnen TRegistry-Wert auslesen

[DeddyH]

Schau Dir mal dies Beispiel an (unkommentiert, in der Hilfe nachlesen ):

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var kNames, vNames: TStringList;
    reg: TRegistry;
    i,j: Integer;
    ini: TIniFile;
begin
  ini := TIniFile.Create('C:\Test.ini');
  try
    reg := TRegistry.Create(KEY_READ);
    try
      reg.RootKey := HKEY_LOCAL_MACHINE;
      if reg.openKey('Software\Borland\BDS\5.0',false) then
        begin
          kNames := TStringList.Create;
          try
            reg.GetKeyNames(kNames);
            for i := 0 to kNames.Count - 1 do
              begin
                vNames := TStringList.Create;
                try
                  reg.GetValueNames(vNames);
                  for j := 0 to vNames.Count - 1 do
                    ini.WriteString(kNames[i],vNames[j],reg.ReadString(vNames[j]));
                finally
                  vNames.Free;
                end;
              end;
          finally
            kNames.Free;
          end;
          reg.CloseKey;
        end;
    finally
      reg.Free;
    end;
  finally
    ini.Free;
  end;
end;