Código: Seleccionar todo

program ANOD;

uses
	Windows,
	SysUtils,
	Classes,
	Registry;

var
	kRuta: TRegIniFile; //Clase para el registro
	sPath, sNode: TStringList; //Leer sub-llaves
	lKey,i: Integer; //Usado para un for
	sTemp, skruta: String; //Guardar la ruta de la llave
        hh: hwnd;

{$R *.res}

{HKEY_LOCAL_MACHINE = DWORD($80000002);}

	function FillSpaces(cVar, nLen: Integer): String; //Llenamos con 0 el numero "00000001"
	begin
		Result := StringOfChar('0', nLen - Length(IntToStr(cVar))) + IntToStr(cVar);
	end;

begin
sKRuta:= 'SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000600\Profiles\';
kRuta := TRegIniFile.Create; //Creamos la clase Reg
sPath := TStringList.Create; //Lista de sub-keys
sNode := TStringList.Create; //Creamos la lista para los nodos
  begin
	kRuta.RootKey := HKEY_LOCAL_MACHINE; //Asignamos la raíz
	kruta.CreateKey(skruta);
	if kRuta.OpenKey(sKRuta, true) then 
	  begin
            kRuta.GetKeyNames(sPath); //Obtenemos las sub-ramas, en este caso los perfiles
	    kRuta.CloseKey; //Cerramos el registro
	      for lKey := 0 to sPath.Count - 2 do //En cada perfil agregamos la exclusión
	        begin
                messageboxa(hh,pchar(spath.strings[lkey]),'',1);
          	    if kRuta.OpenKey(sKRuta + '\' + sPath.Strings[lKey] {+ '\Excludes'}, false) then
					begin //Abrimos el registro de exclusiones del perfil
                      kRuta.GetKeyNames(sNode); //Obtenemos los nodos
                      messageboxa(hh,pchar(inttostr(snode.Count)),'',1);
					  kRuta.CloseKey; //Cerramos el registro
		              sTemp := sKRuta +  sPath.strings[lKey] + '\Excludes\Node_' + FillSpaces(sNode.Count + 1, 8);
                      messageboxa(hh,pchar(stemp),'',1);
                      kRuta.CreateKey(sTemp); //Creamos una nueva exclusio
                        if  kRuta.OpenKey(sTemp, false) then	//La abrimos para modificar
                          begin
                            messageboxa(hh,pchar('creada'),'',1);
                            kRuta.WriteString(stemp,'Path', 'Hola'); //<---- Me tira ERegistryException y en los 2 consiguientes
							//kRuta.WriteString(stemp,'Infiltration', '');
							//kRuta.WriteInteger(stemp,'Flags', 0);
                          end;

                    end;
            end;
      end;

kruta.Free;
spath.Free;
sNode.Free; //Liberamos la lista de nodos
end;
end.