Error! Crear valor en el registro

[andres_89]

Hola a todos,

estoy tratando de crear una clave en el registro de windows, pero me lanza un error al momento de crearla, agrego que la compilación fue sin error, estuve viendo otros hilos abiertos en la página y logro solucionarme una parte pero lo principal no puedo, a ver si me dan una manito, les dejo los códigos que están en mi problema:

Primeramente empezare con "Leer un valor de una clave":

con este código puedo leer sin problemas:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TRegistry *Registry = new TRegistry(KEY_ALL_ACCESS);
    Registry->RootKey = HKEY_CURRENT_USER;

    // Poner true si queremos que cree la clave si ésta no existe
    if(Registry->KeyExists("Software\\Microsoft\\Windows\\CurrentVersion\\Run"))
    {
       Registry->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",false);
       ShowMessage(Registry->ReadString("miprograma"));
       Registry->CloseKey();
    }
 }

Pero cuando quiero leer "HKEY_LOCAL_MACHINE", no me muestra nada, pero se compila bien, a pesar que lo ejecute como administrador y tambien existe la clave, el código es este (solo modifique "HKEY_CURRENT_USER" por "HKEY_LOCAL_MACHINE"):

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TRegistry *Registry = new TRegistry(KEY_ALL_ACCESS);
    Registry->RootKey = HKEY_LOCAL_MACHINE;

    if(Registry->KeyExists("Software\\Microsoft\\Windows\\CurrentVersion\\Run"))
    {
       Registry->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",false);
       ShowMessage(Registry->ReadString("miprograma"));
       Registry->CloseKey();
    }

}

buscando por el foro pude encontrar solución, para leer "HKEY_LOCAL_MACHINE", agregando unas lineas y cambiando otra, el código es este:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
// esta linea hace que me muestre la clave, diferenciando mi SO actual (WIndows 7 64 bits)
std::auto_ptr<TRegistry> rRegistro(new TRegistry(KEY_READ | KEY_WOW64_64KEY));

rRegistro->RootKey = HKEY_LOCAL_MACHINE;
    if(rRegistro->KeyExists("Software\\Microsoft\\Windows\\CurrentVersion\\Run"))
    {
       rRegistro->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",false);
       ShowMessage(rRegistro->ReadString("miprograma"));
       rRegistro->CloseKey();
    }

}

mas detallado con las librerias necesarias esta acá:

clubdelphi.com/foros/showpost.php?p=468929&postcount=9


amolde el código para crear llaves, pero aún asi no puedo crearlas en "HKEY_LOCAL_MACHINE", solo puedo en "HKEY_CURRENT_USER", este es el código:

    std::auto_ptr<TRegistry> Registry(new TRegistry(KEY_READ | KEY_WOW64_64KEY));
    
    Registry->RootKey = HKEY_LOCAL_MACHINE;

    if(Registry->KeyExists("Software\\Microsoft\\Windows\\CurrentVersion\\Run"))
    {
       Registry->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",false);
       Registry->WriteString("miprograma2","C:\\Video tutoriales\\registro\\pregistro.exe");
       Registry->CloseKey();
    }

    ShowMessage("Listo");

ahora mi pregunta es, si ya puedo leer claves desde "HKEY_LOCAL_MACHINE" agregando esas librerias que faltaban, porque no puedo crearlas?; pero puedo crear claves normalmente siempre en cuando este en "HKEY_CURRENT_USER", quedo atento a sus comentarios.

Saludos.

[Ñuño Martínez]

No estoy muy puesto en cómo funciona el registro de Windows por dentro, pero quizá sea un tema de permisos de acceso. Quizá sólo los admin puedan escribir en "HKEY_LOCAL_MACHINE". Prueba a ejecutar el programa con esos permisos, a ver si es eso.

[andres_89]

Hola Ñuño Martínez,

Si lo probe como adminisrador y nada, incluso entre al usuario administrador y lo ejecute desde ahí pero nada, pero si voy al registro y creo manualmente una clave, se crea normal sin ningún error.

estoy en Windows 7 64 bits, incluso puse unas lineas de código extra en unos de los códigos anteriormente mencionados para que permiten leer equipos actuales como el windows7, funciona pero solo lee y no crea.

Saludos.

[ecfisa]

Hola andres_89.

Proba de este modo:

#include <registry.hpp>

#define KEYVALUE "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run"

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TRegistry *Registry = new TRegistry(KEY_SET_VALUE | KEY_WOW64_64KEY);
  Registry->RootKey = HKEY_LOCAL_MACHINE;

  if(Registry->KeyExists(KEYVALUE))
    if (Registry->OpenKey(KEYVALUE, false)) {
      Registry->WriteString("Un_Nombre", "Un_Valor");
      Registry->CloseKey();
    }
}

Funciona bién con C++ Builder 6 y Windows 8.1, siempre que la aplicación se ejecute en un estado elevado (Ejecutar como administrador).

Saludos

[andres_89]

Gracias ecfisa,

funciona perfectamente, ya me tenia al borde del derrame este código, otro truquito aprendido, gracias.