Página 1 de 1

Tregistry

Publicado: Mar Dic 21, 2004 11:53 pm
por zeasoftware
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

Tregistry

Publicado: Mié Dic 22, 2004 12:47 am
por zeasoftware
encontre esto pero, no funciona.
With Object TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
cKey := "SoftwareZeaSoftwareCExprsParameters"
:CreateKey( cKey )
if :OpenKey( cKey ) == 0
:SetString( "Empresa", "Empresa Inválida" ) // por defecto no existe
la clave
:SetString( "Llave", "0" ) // por defecto no existe la
clave
:CloseKey()
endif
End With
Ke está mal?
Gracias.
Ramón Zea