ByVal dans l'API RegQueryValueEx

Salut à tous,

Pour récuperer la valeur d'une entrée dans le registre (HKEY_CURRENT_USER\Environment\TMP) j'utilise les API RegOpenKeyEx et RegQueryValueEx comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

(...) ' Ouvrir d'abord la clé Dim hCle As Long RegOpenKeyEx HKEY_CURRENT_USER, "Environment", 0, KEY_ALL_ACCESS, hCle   ' On lit maintenant Dim lpType As Long, LeBuffer As String, Longueur As Long Longueur = 255 LeBuffer = Space(Longueur) RegQueryValueEx hCle, ByVal "TMP", ByVal 0&, lpType, byval LeBuffer, Longueur LeBuffer = Left(LeBuffer, Longueur - 1) (...)

---

le code marche trés bien, MAIS : Pourquoi passer LeBuffer par valeur (si je la passe ByRef, VB plante ), je croyais que, pour attaquer la variable elle même, nous devons la passer ByRef..:(

C'est à cause d'une bidouille de microsoft concernant les variables string sous VB, le format n'est pas le même que pour C , Dans vb, on a un pointeur BTSR sur une variable qui commence 8 octets avant, ces 8 octets contenant la longueur de la chaine. En c, les pointeurs sur les chaines pointent sur le debut de chaine, la chaine se terminant par un zéro binaire.
Ce qui fait que microsoft a fait une salade pas tres compréhensible pour pouvoir passer des chaines vb à une fonction d'une dll ecrite en C.
D'apres ce que j'ai compris, (ce qui n'est pas forcément ce qui se passe rééllement), vb fait une copie de la chaine vb pour déposer celkle ci sur la pile avant d'appeller la fonction.

Merci beaucoup Delbeke :D
Je sais que ce n'est pas la question, mais le contexte : j'aimerais bien connaitre d'autres salades Microsoft dans VB :?