Leer y grabar valores del registro de Windows

[JmGarcia]

Quisiera poder leer y grabar valores del registro de Windows Mobile versión 5 o 6.

En algunos lenguajes es asi:
Para leer: RegRead ("HKCU", "ControlPanel\Backlight", "ACTimeout")
Para grabar: RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", 10)

Gracias.

[Antonio Linares]

JM,

FWPPC proporciona la Clase TReg32, aqui tienes un ejemplo de uso (probado en PC):

Code: Select all

// Managing Register services from FiveWin
#include "FWCE.Ch"

#define  HKEY_LOCAL_MACHINE      2147483650

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

function Main()

   LOCAL oReg, cName, uVar

   oReg := TReg32():Create( HKEY_LOCAL_MACHINE, "SOFTWARE\FiveWin\Reg32 Class Test" )

   // Call Set with an empty string to access the default key

   oReg:Set( "", "This is the default value" )
   oReg:Set( "A number", 12345 )
   oReg:Set( "A Date", DATE() )
   oReg:Set( "A logical value", .F. )
   MsgStop( "Windows registry updated!" )

   oReg:Close()

   oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\FiveWin\Reg32 Class Test" )

   uVar := oReg:Get( "", "This is the default value" )
   MsgStop( uVar, "Default: VALTYPE()= " + VALTYPE( uVar ) )
   uVar := oReg:Get( "A number", 12345 )
   MsgStop( uVar, "A number: VALTYPE()= " + VALTYPE( uVar ) )
   uVar := oReg:Get( "A Date", DATE() )
   MsgStop( uVar, "A Date: VALTYPE()= " + VALTYPE( uVar ) )
   uVar := oReg:Get( "A logical value", .F. )
   MsgStop( uVar,"Logic: VALTYPE()= " + VALTYPE( uVar ) )

   oReg:Close()

return nil
 

[JmGarcia]

Code: Select all

#define  HKEY_LOCAL_MACHINE      2147483650

¿ Cuales son los valores para HKEY_CLASS_ROOT, HKEY_CURRENT_USER y HKEY_USERS ?

Probaremos a ver...

[Antonio Linares]

JM,

#define HKEY_CLASSES_ROOT 2147483648
#define HKEY_CURRENT_USER 2147483649
#define HKEY_LOCAL_MACHINE 2147483650
#define HKEY_USERS 2147483651
#defien HKEY_CURRENT_CONFIG 2147483653

[JmGarcia]

Y una última pregunta:

Suponemos que NO SE QUE "campos" tiene el registro... ¿ Como podemos saber cuantos (y cuales) tiene cada directorio del registro ?

Gracias.

[Antonio Linares]

JM,

Aqui tienes un ejemplo probado en el PC:

Code: Select all

#define  HKEY_LOCAL_MACHINE      2147483650

#define  ERROR_SUCCESS                    0

function Main()

   local hKey, cName, uValue, n := 0

   RegOpenKey( HKEY_LOCAL_MACHINE,;
               "Software\Microsoft\Windows\CurrentVersion\Run", @hKey )
   
   while RegEnumValue( hKey, n++, @cName, @uValue ) == ERROR_SUCCESS
      MsgInfo( cName )
      MsgInfo( uValue )
   end

   RegCloseKey( hKey )

return nil
 

[Salvador]

Probado con esta clave del registro devuelve valores incoherentes . Compilado con el SDK de WMB5.

Code: Select all

#define HKEY_CURRENT_USER 2147483649 

#define  ERROR_SUCCESS                    0

function Main()

   local hKey, cName, uValue, n := 0

   RegOpenKey( HKEY_CURRENT_USER,;
               "ControlPanel\Notifications\{8ddf46e7-56ed-4750-9e58-afc6ce486d03}", @hKey 
   
   while RegEnumValue( hKey, n++, @cName, @uValue ) == ERROR_SUCCESS
      MsgInfo( cName )
      MsgInfo( uValue )
   end

   RegCloseKey( hKey )

return nil