Problème : HOOK - Conversion de code virtuel de touche

Bonjour,

J'utilise un hook que j'ai récupéré.
Lorsque j'utilise ce dernier j'ai un problème lorsque je convertie le code renvoyé par ce dernier.
Ma fonction de conversion ne tient pas compte des touches tels que Shift, à savoir lorsque je tappe une majuscule celle ci n'est pas récupéré.

Voici le code qui me permet de convertir les code virtuels, pourriez vous me dire où est le problème ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function GetCharFromVKey(vkey: Word): string; var keystate: TKeyboardState; retcode: Integer; begin Win32Check(GetKeyboardState(keystate)); SetLength(Result, 2) ; retcode := ToAscii(vkey, MapVirtualKey(vkey, 0), keystate, @Result[1], 0) ; case retcode of 0: Result := ''; 1: SetLength(Result, 1); 2: ; else Result := ''; end; end;

---

regarde l'api GetAsyncKeyState

ok, je peux savoir si shift est pressé, mais comment modifier alors le caractère renvoyé par ma fonction : function GetCharFromVKey(vkey: Word): string;
pour avoir justement un "A" à la place d'un "a" ?

UpKey ?

Je ne connais pas cette function UpKey,
Je travaille sous delphi 6.

En fait j'aimerai non seulement avoir le "A" à la place du "a" mais aussi le "." à la place du ";"

Quelqu'un aurait'il une solution ?

Pour le moment j'ai fais un test :

Code:

---

1 2 3 4

if (GetAsyncKeyState(VK_SHIFT) And 32768)<>0 then result := AnsiUpperCase(GetCharFromVKey(Key)) else result := GetCharFromVKey(Key);

---

Cela marche mais pas pour les caractères tels que ;;:!ù*^$)= ....
Quelqu'un aurait'il une solution ?

Tu as lu ce sujet ?
http://www.developpez.net/forums/showthread.php?t=61880

ps: Merci d'utiliser la balise Code !!