Video youtube
http://doc.windev.com/en-US/?3065002&name=RegistryCreateKey
http://doc.pcsoft.fr/fr-FR/?3065002&name=registrecreecle_fonction
http://doc.windev.com/en-US/?3065012&name=registryqueryvalue_function
http://doc.pcsoft.fr/fr-FR/?3065012&name=registrelit_fonction
http://doc.windev.com/en-US/?3065007&name=registryexist_function
http://doc.pcsoft.fr/fr-FR/?3065007&name=registreexiste_fonction
http://doc.windev.com/en-US/?3065006&name=registrysetvalue_function
http://doc.pcsoft.fr/fr-FR/?3065006&name=registreecrit_fonction
WinDev - Registro Windows - 001/... Criar/Ler/Gravar Registry
Nessa aula vou mostrar como Gravar e Ler no Registro do Windows
This class will show you how Recording and Reading in the Windows Registry
Cette classe va vous montrer comment l'enregistrement et de la lecture dans le Registre Windows
//-- Global
PROCEDURE MyWindow()
gn_id_usuario is int=0
//Global declarations
_chave_senha is string="HKEY_CURRENT_USER\Software\erpmatos\"
//----------------------
//--End of
//Ler Chave
n_usuario is int=RegistryQueryValue(_chave_senha,"Usuario")
CBOX_salvar=RegistryQueryValue(_chave_senha,"Salvar")
IF CBOX_salvar=True THEN
COMBO_Usuario_matos_1=n_usuario
LSV_Usuario_matos=n_usuario
s_senha is string=RegistryQueryValue(_chave_senha,"Senha")
EDT_senha = Uncrypt(s_senha, "Password")
END
//-----------------------
//Gravar Chave
//Check box Salvar
n_usuario is int=0
IF RegistryExist(_chave_senha) = False THEN
RegistryCreateKey(_chave_senha)
END
n_usuario=COMBO_Usuario_matos_1
s_nome_usuario is string=""
RegistrySetValue(_chave_senha,"Usuario",n_usuario)
RegistrySetValue(_chave_senha,"Senha",Crypt(EDT_senha,"Password"))
HReadSeekFirst(usuario_matos,usuario_matosID,n_usuario)
IF HFound(usuario_matos) THEN
RegistrySetValue(_chave_senha,"UsuarioNome",s_nome_usuario)
ELSE
RegistrySetValue(_chave_senha,"UsuarioNome","")
END
IF CBOX_salvar=True THEN
RegistrySetValue(_chave_senha,"Salvar",1)
ELSE
RegistrySetValue(_chave_senha,"Salvar",0)
END
//--
//--Botao Salvar
IF CBOX_salvar=True THEN
n_usuario is int=0
n_usuario=COMBO_Usuario_matos_1
RegistrySetValue(_chave_senha,"Usuario",n_usuario)
RegistrySetValue(_chave_senha,"Senha",Crypt(EDT_senha,"Password"))
RegistrySetValue(_chave_senha,"UsuarioNome",gs_usuario_nome)
END
