No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Enumerar Claves del Registro.

 

Hay que adicionar esta unidad.

delphi

uses  Registry;

delphi

procedure TForm1.Button1Click(Sender: TObject);
	var
	  indent: Integer;
 
	  procedure EnumAllKeys(hkey: THandle);
	  var
	    l: TStringList;
	    n: Integer;
	  begin
	    Inc(indent, 2);
	    with TRegistry.Create do
	      try
	        RootKey := hkey;
	        OpenKey(EmptyStr, False);
	        l := TStringList.Create;
	        try
	          GetKeynames(l);
	          CloseKey;
	          for n := 0 to l.Count - 1 do
	          begin
	            memo1.Lines.Add(StringOfChar(' ', indent) + l[n]);
	            if OpenKey(l[n], False) then
	            begin
	              EnumAllKeys(CurrentKey);
	              CloseKey;
	            end;
	          end;
	        finally
	          l.Free
	        end;
	      finally
	        Free;
	      end;
	    Dec(indent, 2);
	  end;
 
	begin
	  Memo1.Clear;
	  Memo1.Lines.Add('Claves dentro de HKEY_CURRENT_USER');
	  indent := 0;
	  Memo1.Lines.BeginUpdate;
	  try
	    EnumAllKEys(HKEY_CURRENT_USER);
	  finally
	    Memo1.Lines.EndUpdate;
	  end;
	end;

Saludos!