System Registry

[Mike Serra]

Hi all!

have anybody got an example of tReg32 class?. I tried with samples but i don't get to build my program.

Thanks to all.

[pablovidal]

Code: Select all  Expand view

#define  HKEY_CLASSES_ROOT    2147483648
#define  HKEY_LOCAL_MACHINE   2147483650
#define  HKEY_CURRENT_USER    2147483649

Function Licencia()
Local c := "Software\Tuprograma\youkey"
Local oReg := TReg32():New( HKEY_CURRENT_USER, C, .F. )
Local aData := Array(1)
Local lLice := .T.
Local cLice := ""

oReg := TReg32():New( HKEY_CURRENT_USER, c, .F. )
If Upper( AllTrim( oReg:Get( "licencia", "" ) ) ) != "SI"
    oReg := TReg32():Create( HKEY_CURRENT_USER, c, .F. )
    oReg:Set( "licencia", "SI" )
EndIf
oReg:Close()
Return(.t.)


[TimStone]

Has anyone worked with the Vista Registry. Microsoft now puts registry entries into a virtual machine which can be harder to locate ( makes it rough for phone or email support ). Apparently there is a conforming standard test if we want to write to HKEY_LOCAL_MACHINE. Does anyone have experience with this ?

[Mike Serra]

Thanks Pablo, it work perfectly.

Tim, sorry!!, but i don't have worked with windows vista only with xp and less, but i'll search information about.