registry value

[Otto]

Can someone please post an example how to write and read a registry value.
Thank in advance
Otto

[tsales]

Otto

function ReadRegistry()

LOCAL nHandle
LOCAL cValue
LOCAL dFecUltActu
if RegOpenKey( HKEY_CURRENT_USER, "SOFTWARE\MySoft", @nHandle ) == 0
dFecUltActu := cToD( RegQueryValue( nHandle, "F.Ul.Actualizacion" , @cValue ))
RegCloseKey( nHandle )
endif
Return NIL

function WriteRegistry()
LOCAL nHandle
LOCAL cDateUltActu := dToC( DATE() )

if RegOpenKey( HKEY_CURRENT_USER, "SOFTWARE\MySoft", @nHandle ) != 0
RegCreateKey( HKEY_CURRENT_USER, "SOFTWARE\MySoft", @nHandle ) // Creo el Grupo.
if RegOpenKey( HKEY_CURRENT_USER, "SOFTWARE\MySoft", @nHandle ) == 0 // Si existe.
RegSetValue( nHandle, "F.Ul.Actualizacion" ,cDateUltActu )
Endif
RegCloseKey( nHandle )
endif
Return NIL