|
Key Clase
.NET Framework 4.5.1
Publicado: Noviembre de 2021
Instancia que genera un key en el arbol de RegFile.
Definición
Espacio de nombres: JBin.Key
Ensamblado: JBin.dll
Key son las carpetas que organizan el arbol generado por RegFile. Cuando las key están en la parte superior las llamamos Group, para diferencialas de las key anidadas.
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 de la key dentro de la estructura.
Devuelve o establece el index del icono de un imagelist.
Devuelve o establece la colección de keys.
Devuelve o establece el nombre del grupo de keys.
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 o establece la colección de registros de la key.
Devuelve si esta key es de sistema. Si es del sistema, el nombre no se puede elimninar ni modificar.
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);
}
}
|