Page 1 of 1

System Registry

Posted: Thu Jul 26, 2007 3:50 pm
by 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.

Posted: Thu Jul 26, 2007 4:08 pm
by pablovidal

Code: Select all

#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.)

Vista Registry

Posted: Thu Jul 26, 2007 4:50 pm
by 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 ?

Posted: Thu Jul 26, 2007 5:17 pm
by 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.