Necesito recorrer todas las subkeys de un clave de registro , pero parece que la funcion REGENUMKEY no funciona como debe o yo no entiendo su funcionamiento .
La clase treg32 no contiene nada de codigo para esta funcion y el ejemplo testreg2 pare no funcionar ...
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour REGENUMKEY funciona bien ?
Manuel,
Modifica el ejemplo de esta forma y en Windows 10 me acaba de funcionar bien
Modifica el ejemplo de esta forma y en Windows 10 me acaba de funcionar bien
#define HKEY_LOCAL_MACHINE 2147483650
//---------------------------------------------------------------------------//
function Main()
local nHandle, cValue, n := 0
if RegOpenKey( HKEY_LOCAL_MACHINE,;
"System\CurrentControlSet\Control\Print\Printers", @nHandle ) == 0
while RegEnumKey( nHandle, n++, @cValue ) == 0
MsgInfo( cValue )
end
RegCloseKey( nHandle )
else
MsgInfo( "can't access it" )
endif
return nilfuncionando . 
Al final la funcion a usar era REGENUMValue .
Gracias.
pd. EstarÃa bien añadir un metodo a la clase Treg32().
algo como :
METHOD GetNumValue( nIndex, cRefValue ) INLINE RegNumValue( ::nHandle, nindex-1 , cRefValue )