pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

RegistreCherche (en anglais RegistrySeek)

// Récupération de toutes les valeurs "FullScreen"
// de la clé "HKEY_CURRENT_USER\Console"
Clé est une chaîne = "HKEY_CURRENT_USER\Console"
TANTQUE Clé <> ""
  
Clé = RegistreCherche (Clé,"FullScreen")
   Info(Clé)
FIN


Début de la page

RegistreCleSuivante (en anglais RegistryNextKey)

Chemin est une Chaîne
//Connaître le nom de la clé primaire
Chemin = RegistrePremièreSousClé()
//parcourir toutes les sous clés
TANTQUE Chemin <> ""
   Chemin = RegistreCléSuivante (Chemin)
FIN


Début de la page

RegistreCleSuivante (en anglais RegistryNextKey)

// Identification de la clé suivant la clé "HKEY_LOCAL_MACHINE\SYSTEM"
ResCléSuivante = RegistreCléSuivante ("HKEY_LOCAL_MACHINE\SYSTEM")


Début de la page

RegistreCreeCle (en anglais RegistryCreateKey)

// Création de la clé "HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli"
ResCréeClé = RegistreCréeClé ("HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli")


Début de la page

RegistreEcrit (en anglais RegistrySetValue)

// Écrire la valeur "English" dans la valeur "Langage"
// dans la clé "HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli"
ResEcriture = RegistreEcrit ("HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli",...
              "Langage", "English")


Début de la page

RegistreExiste (en anglais RegistryExist)

// Teste l'existence de la clé "HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli"
ResExiste = RegistreExiste ("HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli")


Début de la page

RegistreListeValeur (en anglais RegistryListValue)

// Récupération de la liste des valeurs
// de la clé "HKEY_CURRENT_USER\Console"
Info( RegistreListeValeur ("HKEY_CURRENT_USER\Console"))


Début de la page

RegistreLit (en anglais RegistryQueryValue)

// 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


Début de la page

RegistrePremiereSousCle (en anglais RegistryFirstSubKey)

Chemin est une Chaîne
//Connaître le nom de la clé primaire
Chemin = RegistrePremièreSousClé ()
//parcourir toutes les sous clés
TANTQUE Chemin <> ""
   Chemin = RegistreCléSuivante(Chemin)
FIN


Début de la page

RegistrePremiereSousCle (en anglais RegistryFirstSubKey)

// Identifie la première sous-clé de la clé "HKEY_LOCAL_MACHINE\SYSTEM"
ResSousClé = RegistrePremièreSousClé ("HKEY_LOCAL_MACHINE\SYSTEM")


Début de la page

RegistreSupprimeCle (en anglais RegistryDeleteKey)

Chemin est une Chaîne
// Connaître le nom de la clé "root"
Chemin = RegistrePremièreSousClé()
// Supprimer la clé pour mon application
Chemin = Chemin + "\MonAppli\"
SI  RegistreSupprimeClé (Chemin) = Faux ALORS
   Erreur("Erreur lors de la suppression de la clé")
   Retour
FIN


Début de la page

RegistreSupprimeCle (en anglais RegistryDeleteKey)

// Supprime la sous-clé "HKEY_LOCAL_MACHINE\SYSTEM\Appli"
ResSupClé = RegistreSupprimeClé ("HKEY_LOCAL_MACHINE \SYSTEM\Appli")


Début de la page

RegistreSupprimeValeur (en anglais RegistryDeleteValue)

// Supprime la valeur "Langage" dans la clé "HKEY_LOCAL_MACHINE\SYSTEM\Appli"
Res = RegistreSupprimeValeur ("HKEY_LOCAL_MACHINE\SYSTEM\Appli", "Langage")


Début de la page