¿Me podrías explicar que hace cada linea de código?

Oye me podrías explicar que hace cada linea de código, y en que directorio del registro (directorio completo), se guarda el archivo creado.
oReg = NEWOBJECT("registry",HOME(1)+"ffc\registry.vcx")
lcKey = "VisualFoxPro.ApplicationCurVer"
IF oReg.OpenKey(lckey) = 0
* sin error
lcvalue = ""
IF oReg.GetKeyValue("", @lcvalue) = 0
* sin error
? Lcvalue
Endif
oReg.CloseKey()
Endif

1 Respuesta

Respuesta
1
** Se crea un objeto "registry" basado
** en la librería "ffc\registry.vcx"
oReg = NEWOBJECT("registry",HOME(1)+"ffc\registry.vcx")
** Se gurada en la variable "lcKey" la llave
** "VisualFoxPro.ApplicationCurVer"
lcKey = "VisualFoxPro.ApplicationCurVer"
** Se verifica que la clave exista y sea accesible
IF oReg.OpenKey(lckey) = 0
** Se asigna la cadena vacia a la variable "lcvalue"
lcvalue = ""
** Se consulta el valor de la llave y se garda
** en la variable "lcvalue" que se pasa por
** referencia, y se regresa el nivel de error
** (0=SinError)
IF oReg.GetKeyValue("", @lcvalue) = 0
** Se muestra el valor de la clave
? Lcvalue
Endif
** Se cierra el registro
OReg. CloseKey()
Endif
El valor está guardado en:
HKEY_CLASSES_ROOT\Visual.FoxPro.Application\CurVer

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas