Discussion :

[Dev_Michael]

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 :

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

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;

[WolffN]

regarde l'api GetAsyncKeyState

[Dev_Michael]

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" ?

[tourlourou]

UpKey ?

[Dev_Michael]

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 :

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

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 ?

[Sub0]

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

ps: Merci d'utiliser la balise Code !!