|
|
Reg Clase
.NET Framework 4.5.1
Publicado: Noviembre de 2021
Instancia que genera un objeto del tipo Reg en el arbol de RegFile. Definición
Espacio de nombres: JBin.Reg
Ensamblado: JBin.dll
Reg son los registro del tipo Name:Value almacenados de las key del arbol de RegFile.
Propiedades
Devuelve o establece el handle único de la instancia. Devuelve o establece el color personalziado para ser mostrado en pantalla. Devuelve la ruta completa del resgistro dentro de la estructura. Devuelve o establece el index del icono de un imagelist. Devuelve o establece el nombre del registro. Devuelve o establece la instancia padre a la que pertenece esta instancia. Devuelve o establece una password de protección. Devuelve o establece los privilegios del registro. Los tipo de privilegios están definidos en el enum RegFilePrivileges. Devuelve si este registro es de sistema. Si es del sistema, no se puede elimninar ni modificar el nombre. Devuelve o establece el tipo de valor del registro. Devuelve o establece el valor del registro. Métodos
Clona el resgistro en un nuevo registro en memoria, generando un nuevo handle si Boolean Optional es true. Ejemplo en VB.Net
Imports System.IO
Imports JBin
Public Class Form1
' Declarar RegFile
Dim WithEvents myRegFile As RegFile
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Instanciar la clase
myRegFile = New RegFile
' Inicar RegFile en modo local.
myRegFile.Start()
' Añadir una key group a la raiz.
Dim rn As New Key = new Key
rn.Name = "Nuevo grupo"
rn.IndexIcon = 0
rn.Privileges = RegFilePrivileges.ReadWrite
Dim r As New Key = myRegFile.AddGroup(rn);
if IsNothing(r) Then
MsgBox("Error al crear la key group.", "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
End If
' Añadir una key a la key group.
Dim newKey As New Key = new Key
newKey.Name = "Nueva key"
newKey.IndexIcon = 0
newKey.Privileges = RegFilePrivileges.ReadWrite
Dim K As New Key = myRegFile.AddKey("Nuevo grupo", newKey)
if IsNothing(k) then
MsgBox("Error al crear la key.", "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
exit sub
End If
' Cogemos la key
Dim myKey As New Key = myRegFile.GetKey("Nuevo Grupo/Nueva key")
if Not IsNothing(myKey) Then
' Agregamos un registro
Dim myReg As New Reg = new Reg
reg.Name = "myRegistro"
reg.Privileges = RegFilePrivileges.ReadWrite
reg.Password = "Valor del registro"
reg.TypeValue = RegFileTypeReg.REG_STRING
Dim resReg As New Reg = myRegFile.AddReg("Nuevo grupo/Nueva Key", myReg)
If IsNothing(resReg) Then
MsgBox("Error al crear el registro.", "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MsgBox("Esta key no existe.", "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
' la función que nos devuelve si hay un error de lectura o escritura de JBin
Private Sub JBIN_Error(Sender As Object, e As RegFileOnErrorEventArgs)
MsgBox(e.Message)
End Sub
End class
Ejemplo en C#
using System.IO;
using JBin;
public partial class Form1 : Form
{
// Declarar RegFile
RegFile regFile;
private void Form1_Load(object sender, EventArgs e)
{
// Instanciar la clase
regFile = new RegFile();
// Crear el lanzador de eventos para derectar errores
regFile.OnError += onError;
// Inicar RegFile en modo local.
regFile.Start();
// Añadir una key group a la raiz.
Key rn = new Key();
rn.Name = "Nuevo grupo";
rn.IndexIcon = 0;
rn.Privileges = RegFilePrivileges.ReadWrite;
Key r = regFile.AddGroup(rn);
if (r == null)
{
MessageBox.Show("Error al crear la key group.", "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
// Añadir una key a la key group.
Key newKey = new Key();
newKey.Name = "Nueva key";
newKey.IndexIcon = 0;
newKey.Privileges = RegFilePrivileges.ReadWrite;
Key k = regFile.AddKey("Nuevo grupo", newKey);
if (k == null)
{
MessageBox.Show("Error al crear la key.", "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
// Cogemos la key
Key myKey = regFile.GetKey("Nuevo Grupo/Nueva key");
if(myKey != null){
// Agregamos un registro
Reg reg = new Reg();
reg.Name = "myRegistro";
reg.Privileges = RegFilePrivileges.ReadWrite;
reg.Password = "Valor del registro";
reg.TypeValue = RegFileTypeReg.REG_STRING;
Reg resRes = Program.regFile.AddReg("Nuevo Grupo/Nueva key", reg);
if (resReg == null){
MessageBox.Show("Error al crear el registro.", "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
else
{
MessageBox.Show("Esta key no existe.", "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
}
}
// Evento que se dispara cuando se produce un error controlado.
private void onError(Object sender, RegFileOnErrorEventArgs e)
{
MessageBox.Show(e.Message, "Error!!", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
|
