Detecter les touches pressees du clavier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 24 863 fois - Téléchargée 3 271 fois

Contenu du snippet

Ce code permet de savoir si une touche du clavier ou un bouton de la souris est pressé, et renvoi le numéro ASCII de cette touche,...

Source / Exemple :


var
a: integer;
arret:boolean;
begin
  arret:=false;
  while Arret=False do begin

    If (GetAsyncKeyState(27) And 32768) <> 0 Then arret:=true; // Action kan une touche précise est pressée (ici echape : 27)

    For a := 0 To 255 do begin //scan les touches de 0 a 255(en général ca fait tou le clavier)
      If (GetAsyncKeyState(a) And 32768) <> 0 Then begin
        beep; //Action kan une touche est pressée
        //a correspond au numéro ASCII de la touche pressé
        //Button1.caption:=IntToStr(a);
      end;
    end;

      application.ProcessMessages;
  end;

ShowMessage('Fin'); 
end;

A voir également

Ajouter un commentaire

Commentaires

g0belin
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010
-
tres interessant comme source
cs_anderson2
Messages postés
2
Date d'inscription
vendredi 18 octobre 2002
Statut
Membre
Dernière intervention
2 décembre 2002
-
ouiais, vachement interessant, pour faire des jeux par exemple...
creatix74
Messages postés
6
Date d'inscription
samedi 19 octobre 2002
Statut
Membre
Dernière intervention
20 novembre 2002
-
je comprend pas a koi sert 32768 svp
cs_Zynox
Messages postés
11
Date d'inscription
vendredi 4 octobre 2002
Statut
Membre
Dernière intervention
2 mars 2004
-
oué c pas mal, seré tu faire la meem chose pr avoir le scancode ?
pour ski est de l utilisé ac un jeu oui, ms un jeu a 2 joueur sur le clavier ? ac multu touche tu seré modifier ?
pr le 32768 moi non plus je comprends pas ^^
cs_subzero
Messages postés
73
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
24 février 2012
-
Salut à tous, j'ai voulu faire la même chose! Là où j'ai été bloqué, c'est quand j'ai voulu les touches spéciales...
Si ça vous branche, allez voir le sujet "Touches de clavier en simultanné". C'est un clavier virtuel, qui marche avec un hook, c'est à dire qu'il est capable de fonctionner en arrière plan, et capture vraiement toutes les touches. J'ai intégré à l'archive, un programme pour déplacer le curseur de la souris avec les touches... à+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.