Grabar en regedit Windows 7 32 Bits

[Compuin]

Hola

Intento usar este codigo para crear entradas en el registry. Funciona para HKEY_CURRENT_USER pero no para HKEY_LOCAL_MACHINE. El sistema operativo es Windows 7 32 bits y el usuario es administrador del equipo

Alguna pista?

#include "FiveWin.Ch"

#define HKEY_CURRENT_USER 2147483649

//---------------------------------------------------------------------------//

function Main()

LOCAL oReg, cName, uVar

oReg = TReg32():New( HKEY_CURRENT_USER, "SOFTWARE\Medida\Etiqueta" )
IF oReg:nError <> 0
oReg = TReg32():Create( HKEY_CURRENT_USER, "SOFTWARE\Medida\Etiqueta" )
oReg:Set( "","The default value")
oReg:Set( "cmetiq01","00")
oReg:Set( "cmetiq02","00")
oReg:Set( "cmetiq03","00.00")
oReg:Set( "cmetiq04","00.00")
oReg:Set( "cmetiq05","00.00")
oReg:Set( "cmetiq06","00.00")
oReg:Set( "cmetiq07","00")
oReg:Set( "cmetiq08","00")
IF oReg:nError == 0
oReg:Close()
oReg := TReg32():New( HKEY_CURRENT_USER, "SOFTWARE\Medida\Etiqueta" )
ENDIF
ENDIF

uVar := oReg:Get( "" ); MsgStop( uVar )
uVar := oReg:Get( "cmetiq01" ); MsgStop( "cmetiq01: " + uVar )
uVar := oReg:Get( "cmetiq02" ); MsgStop( "cmetiq02: " + uVar )
uVar := oReg:Get( "cmetiq03" ); MsgStop( "cmetiq03: " + uVar )
uVar := oReg:Get( "cmetiq04" ); MsgStop( "cmetiq04: " + uVar )
uVar := oReg:Get( "cmetiq05" ); MsgStop( "cmetiq05: " + uVar )
uVar := oReg:Get( "cmetiq06" ); MsgStop( "cmetiq06: " + uVar )
uVar := oReg:Get( "cmetiq07" ); MsgStop( "cmetiq07: " + uVar )
uVar := oReg:Get( "cmetiq08" ); MsgStop( "cmetiq08: " + uVar )


oReg:Close()

return nil

//---------------------------------------------------------------------------//

[Antonio Linares]

http://stackoverflow.com/questions/13440530/how-can-i-get-permissions-to-write-to-registry-keys