ONLINE HELP
 WINDEVWEBDEV AND WINDEV MOBILE

Help / WLanguage / WLanguage functions / Standard functions / Windows functions / Registry functions
  • Limites de la fonction RegistreLit
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaEtats et RequêtesCode Utilisateur (MCU)
WEBDEV
WindowsLinuxPHPWEBDEV - Code Navigateur
WINDEV Mobile
AndroidWidget AndroidiPhone/iPadWidget IOSApple WatchMac CatalystUniversal Windows 10 App
Autres
Procédures stockées
Lit la valeur d'un registre dans la base de registre de Windows.
// Lit la valeur "Langage" dans la clé "HKEY_LOCAL_MACHINE\SOFTWARE\Appli"
// Le booléen ResExécute permet de savoir si la valeur a été lue
ResLecture = RegistreLit("HKEY_LOCAL_MACHINE\SOFTWARE\Appli", "Langage", ResExécute)
 
SI ResExécute = Vrai ALORS
Info("La valeur a été lue et vaut : " + ResLecture)
FIN
Syntaxe

Lire une valeur identifiée par son nom Masquer les détails

<Résultat> = RegistreLit([<Mode d'accès>, ] <Chemin de la clé> , <Nom de la valeur> [, <Exécution>])
<Résultat> : Chaîne de caractères, entier, réel ou pointeur
  • Valeur lue,
  • Chaîne vide ("") si aucune valeur n'a été lue.
<Mode d'accès> : Constante de type Entier
Mode d'accès à la base de registre :
registreMode32Mode d'accès forcé pour accéder à la base de registre comme un programme 32 bits.
registreMode64Mode d'accès forcé pour accéder à la base de registre comme un programme 64 bits.
registreModeAuto
(Valeur par défaut)
Mode d'accès à la base de registre automatique :
  • une application 32 bits exécutée sur un système 32 bits manipule la base de registre comme un programme 32 bits.
  • une application 32 bits exécutée sur un système 64 bits manipule la base de registre à partir de la branche suivante :
    HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node
  • une application 64 bits exécutée sur un système 64 bits manipule la base de registre comme un programme 64 bits.
<Chemin de la clé> : Chaîne de caractères
Chemin de la clé à lire.
<Nom de la valeur> : Chaîne de caractères
Nom de la valeur à lire.
<Exécution> : Booléen optionnel
  • Vrai si la valeur a été lue,
  • Faux dans le cas contraire.

Lire une valeur identifiée par son indice Masquer les détails

<Résultat> = RegistreLit([<Mode d'accès>, ] <Chemin de la clé> , <Indice de la valeur> , <Exécution>)
<Résultat> : Chaîne de caractères, entier, réel ou pointeur
  • Valeur lue,
  • Chaîne vide ("") si aucune valeur n'a été lue.
<Mode d'accès> : Constante de type Entier
Mode d'accès à la base de registre :
registreMode32Mode d'accès forcé pour accéder à la base de registre comme un programme 32 bits.
registreMode64Mode d'accès forcé pour accéder à la base de registre comme un programme 64 bits.
registreModeAuto
(Valeur par défaut)
Mode d'accès à la base de registre automatique :
  • une application 32 bits exécutée sur un système 32 bits manipule la base de registre comme un programme 32 bits.
  • une application 32 bits exécutée sur un système 64 bits manipule la base de registre à partir de la branche suivante :
    HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node
  • une application 64 bits exécutée sur un système 64 bits manipule la base de registre comme un programme 64 bits.
<Chemin de la clé> : Chaîne de caractères
Chemin de la clé à lire.
<Indice de la valeur> : Entier
Indice de la valeur à lire.
<Exécution> : Booléen
  • Vrai si la valeur a été lue,
  • Faux dans le cas contraire.
Remarques

Limites de la fonction RegistreLit

La fonction RegistreLit ne fonctionne pas sur les entrées du type "(par défaut)". En effet, ces entrées sont spécifiques. Pour atteindre ces entrées, remplacez le nom de la clé par une chaîne vide.
Exemple :
Ne pas faire :
RegistreLit("HKEY_CLASSES_ROOT\.jar", "(par défaut)", "myfile")
Faire :
RegistreLit("HKEY_CLASSES_ROOT\.jar", "", "myfile")
Classification Métier / UI : Code métier
Composante : wd290std.dll
Minimum version required
  • Version 9
Comments
Example
PROCEDURE TaskManager(bEnableDisable is boolean)

//Buscar
ResExist1 is boolean = RegistryExist("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\")
ResExist2 is boolean = RegistryExist("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System")

//Criar se nao existe a Pasta System
IF ResExist1 = True AND ResExist2 = False THEN
//cria a pasta da esquerda
RegistryCreateKey("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System")
//cria a chave DisableTaskMgr tipo DWORD 32 dentro da Pasta
RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr",0)
END

if bEnableDisable = false
RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr",1) //disable

else

RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr",0) //enable

end
BOLLER
27 Nov. 2018
Exemplo Resgistro Windows - Ler e Gravar
//-- 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

//Blog Video e Exemplo
http://windevdesenvolvimento.blogspot.com.br/2016/03/curso-windev-registro-windows-001.html
De matos AMARILDO
28 Mar. 2016

Last update: 05/25/2022

Send a report | Local help