Discussion :

[mdriesbach]

Bonjour

A propos de la fonction RegEnumKeyEx

Return Values
If the function succeeds, the return value is ERROR_SUCCESS.

If the function fails, the return value is a system error code. If there are no more subkeys available, the function returns ERROR_NO_MORE_ITEMS.

If the lpName buffer is too small to receive the name of the key, the function returns ERROR_MORE_DATA.

J'ai donc construit mon code de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    i=0
    strTmp=string(255,0)
    lRet = ERROR_SUCCESS
    While lRet <> ERROR_NO_MORE_ITEMS
        lRet = RegEnumKeyEx(lKey, i, strTmp, 255, 0, 0, 0, 0)
        ReDim Preserve strKeyList(i)
        strKeyList(i) = strTmp
        i = i + 1
    Wend

Je me suis apperçu que la boucle While n'était jamais exécutée.
Après quelques heures de réflexion intense, je me suis dit que la seule possibilité était que ERROR_SUCCESS=ERROR_NO_MORE_ITEMS. Alors pour vérifier, j'ai ajouté cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ERROR_SUCCESS=ERROR_NO_MORE_ITEMS

Et j'ai obtenu Vrai !

D'où ma question, je mets quoi comme condition d'arrêt de ma boucle ?
J'ai bien essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While lRet=ERROR_SUCCESS

mais alors le programme passe une fois de trop dans la boucle.

Cordialement,

Mathieu Driesbach.

PS : Je bosse avec VB6 et Windows NT4

[méphistopheles]

c'est quand même curieux que deux constantes différentes d'une même fonction aient la même valeur. tu a essayé de faire une comparaison de type binaire pour voir?

enfin normalement ça change pas grand chose vue que ce sont des variables integer... sinon, essaye de récupérer l'erreur comme une string mais je doute que ce soit possible....


salut

[mdriesbach]

Bonjour.

Merci d'avoir répondu ...

J'ai trouvé une solution : je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While lRet = ERROR_SUCCESS

comme condition de la boucle.
La lecture supplementaire était dûe au fait que le retour de la lecture n'était pas contrôlé.
J'ai rajouté ce contrôle et tout fonctionne correctement.

N'empêche que c'est bizarre que ces constantes soient égales, ça fout en l'air la gestion des erreurs ...

Cordialement,

Mathieu Driesbach.

[méphistopheles]

en y repensant, tu à essayé:do
'... ton code
loop until lRet <>ERROR_SUCCESS

normalement, il te fait une boucle en moins mais si initialement lret<> ERROR_SUCCESS alors, il te lira quand même le code (mais j'en doute vu ton cade)


salut

[mdriesbach]

Merci de ta participation.

Finalement, des recherches plus poussées m'ont appris certaines choses :
En fait la fonction renvoie bien la valeur entière qui correspond à la constante ERROR_NO_MORE_ITEMS d'après la MSDN (259).
C'est la définition des constantes dans VB6 qui n'est pas bonne. J'ai redéfini les constantes qui m'intéressent (ERROR_SUCCESS et ERROR_NO_MORE_ITEMS, tout autre valeur provoque une sortie de l'application) et mon code fonctionne très bien, y compris la gestion d'erreur que j'avais mis en place au départ.

Encore merci pour ton aide.

Cordialement,

Mathieu Driesbach.