topic-7686

Mike Serra

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

System Registry
Posted: Thu Jul 26, 2007 03:50 PM

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

Posts: 401

Joined: Thu Oct 06, 2005 10:15 PM

System Registry
Posted: Thu Jul 26, 2007 04:08 PM

Code: Select all Collapse

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

Saludos,

Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

TimStone

Posts: 3022

Joined: Fri Oct 07, 2005 01:45 PM

Vista Registry
Posted: Thu Jul 26, 2007 04:50 PM

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 ?

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit

Mike Serra

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

System Registry
Posted: Thu Jul 26, 2007 05:17 PM

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.

FiveTech Support Forums

Continue the discussion