Discussion :

[alves1993]

salut a tous.
j'ai un problème au niveau de la récupération de la valeur décimal d'une touche de clavier. je voudrais savoir s'il existe une fonction ou tout autre moyen pour pouvoir savoir si l'utilisateur a taper sur une touche et si possible pouvoir récupérer la valeur décimal de la touche taper .
NB : dans une application console

[Gilbert Geyer]

Bonjour,

Code :

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

1
2
3
4
5
6
function  ToucheCla(t : integer) : boolean; // Appui Touche
//        Utilisations : if ToucheCla(VK_CONTROL) then
//                       if ToucheCla(Ord('R')) then
//        Renvoie True si l'utilisateur a appuyé la touche 't'
begin     Result:= ((GetAsyncKeyState(t) and 32768)<> 0)
end;

A+.

[alves1993]

MERCI pour la réponse Gilbert Geyer ça va beaucoup m'aider

[Gilbert Geyer]

Bonjour,

De rien. A noter que le nom de la fonction (ToucheCla) est un peu réducteur puisqu'on peut aussi l'appeler avec VK_LBUTTON, VK_RBUTTON, VK_MBUTTON donc avec les touches de la Souris.

A+.