[WDnn] Rendre variables les paramètres de SysRep(xxx)
1 réponse
Georges Peyre
Bonjour
Comment le faire ?
La fonction SysRep(srCacheInternet) permet, par exemple, de récupérer
le répertoire contenant le cache internet
De nombreux paramètres permettent de récupérer d'autres répertoires
Dans la colonne d'une table j'ai chargé tous les noms des paramètres de
la fonction.
TableAjouteLigne(Table1,"srAppData","Répertoire à utiliser par les
applications pour stocker leurs données (spécifique à l'utilisateur)")
TableAjouteLigne(Table1,"srBureau","Répertoire correspondant au bureau
de Windows")
TableAjouteLigne(Table1,"srCacheInternet","Répertoire utilisé par
Internet Explorer pour garder les derniers éléments utilisés")
etc ...
Cette table devrait me permettre d'obtenir par un simple clic le
répertoire correspondant au paramètre sélectionné
// Dans le paragraphe Sélection d'une ligne de la table j'ai saisi le
code suivant
WParam est un Variant // le type Chaine est refusé par le compilateur
WParam = Table1.Parametres..ValeurAffichée
Info(WParam) // contient bien par exemple srCacheInternet
SRepSysteme = SysRep(WParam)
PROBLEME :
A l'exécution SRepSysteme contient toujours le répertoire par défaut de
la fonction SysRep : C:\WINDOWS\system32
Si j'affiche directement la valeur du parametre ...
Info(srCacheInternet)
... J'obtiens la valeur 27
Comment dois-je écrire le code pour que le paramètre sélectionné soit
pris en compte par la fonction ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Georges Peyre
Voici la solution
Georges Peyre a exposé le 20/09/2006 :
Si j'affiche directement la valeur du parametre ... Info(srCacheInternet) ... J'obtiens la valeur 27
Là est la solution !
Dans la table il faut charger le code du paramètre au lieu de son nom dans une colonne de type numérique
TableAjouteLigne(Table1,srAppData,"Répertoire à utiliser par les applications pour stocker leurs données (spécifique à l'utilisateur)") TableAjouteLigne(Table1,srBureau,"Répertoire correspondant au bureau de Windows") TableAjouteLigne(Table1,srCacheInternet,"Répertoire utilisé par Internet Explorer pour garder les derniers éléments utilisés")
La fonction SysRep utilisera alors une valeur numérique comme parametre
// Le code du paragraphe Sélection d'une ligne de la table reste inchangé WParam est un Variant WParam = Table1.Parametres..ValeurAffichée // contient un chiffre SRepSysteme = SysRep(WParam)
Cordialement
-- Elle est pas belle la vie ?
Voici la solution
Georges Peyre a exposé le 20/09/2006 :
Si j'affiche directement la valeur du parametre ...
Info(srCacheInternet)
... J'obtiens la valeur 27
Là est la solution !
Dans la table il faut charger le code du paramètre au lieu de son nom
dans une colonne de type numérique
TableAjouteLigne(Table1,srAppData,"Répertoire à utiliser par les
applications pour stocker leurs données (spécifique à l'utilisateur)")
TableAjouteLigne(Table1,srBureau,"Répertoire correspondant au bureau de
Windows")
TableAjouteLigne(Table1,srCacheInternet,"Répertoire utilisé par
Internet Explorer pour garder les derniers éléments utilisés")
La fonction SysRep utilisera alors une valeur numérique comme parametre
// Le code du paragraphe Sélection d'une ligne de la table reste
inchangé
WParam est un Variant
WParam = Table1.Parametres..ValeurAffichée // contient un chiffre
SRepSysteme = SysRep(WParam)
Si j'affiche directement la valeur du parametre ... Info(srCacheInternet) ... J'obtiens la valeur 27
Là est la solution !
Dans la table il faut charger le code du paramètre au lieu de son nom dans une colonne de type numérique
TableAjouteLigne(Table1,srAppData,"Répertoire à utiliser par les applications pour stocker leurs données (spécifique à l'utilisateur)") TableAjouteLigne(Table1,srBureau,"Répertoire correspondant au bureau de Windows") TableAjouteLigne(Table1,srCacheInternet,"Répertoire utilisé par Internet Explorer pour garder les derniers éléments utilisés")
La fonction SysRep utilisera alors une valeur numérique comme parametre
// Le code du paragraphe Sélection d'une ligne de la table reste inchangé WParam est un Variant WParam = Table1.Parametres..ValeurAffichée // contient un chiffre SRepSysteme = SysRep(WParam)