Tregistry
Publicado: Mar Dic 21, 2004 11:53 pm
he seguido los ejemplos de tRegitry, ya ke kiero guardar informacion sobre
el programa, pero no me crea los valores en registro de Windows.
Me marka ke "no se encontro el archivo", o error 2,
Ke hago mal?
With Object TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
:OpenKey( "SoftwareZeaSoftwareCExprsParameters" )
//MsgAlert( "Error:" + Str( oReg:nLastError ) )
IF ( lOk := (:nLastError == 0 ) )
aKeys := :EnumKeys()
MsgAlert( "Keys" + Str( Len( aKeys ) ) )
MsgSysError( :nLastError )
End
IF !( lOk )
:Create()
MsgSysError( :nLastError )
SetClientZeaSoft()
MsgAlert( "Esta es una Versión de Evaluación." )
ENDIF
:CloseKey()
End With
el programa, pero no me crea los valores en registro de Windows.
Me marka ke "no se encontro el archivo", o error 2,
Ke hago mal?
With Object TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
:OpenKey( "SoftwareZeaSoftwareCExprsParameters" )
//MsgAlert( "Error:" + Str( oReg:nLastError ) )
IF ( lOk := (:nLastError == 0 ) )
aKeys := :EnumKeys()
MsgAlert( "Keys" + Str( Len( aKeys ) ) )
MsgSysError( :nLastError )
End
IF !( lOk )
:Create()
MsgSysError( :nLastError )
SetClientZeaSoft()
MsgAlert( "Esta es una Versión de Evaluación." )
ENDIF
:CloseKey()
End With