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;
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.