Discussion :

[Chatbour]

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 :

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

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

[Delbeke]

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.

[Chatbour]

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