Detecter les touches pressees du clavier

Commenter

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

S'inscrire maintenant

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.

Du même auteur (fabiin)