Utilisation de GetKeyState
Bonjour à toutes et tous,
Dans le but de stopper un programme par attente de la touche "Entrée", j'utilise ce bout de code :
Code:
1
2
3
4
5
6
7
| Repeat
x := 400 ;
y := y + 10 ;
EtatKey := Hexstr( (LclIntf.GetKeyState( VK_Return )and MaskKey ) , 8 );
OutTextXY( x, y, 'KeyState ' + EtatKey );
Sleep ( 5000 ) ;
Until LclIntf.GetKeyState( VK_Return ) <> 0; |
Le comportement est différent suivant le mode d' execution (le PC est sous Vista) :
A/ Lancement du .exe sous Vista : Boucle infinie avec affichage de EtatKey toutes les 5 secondes.
Aucune action des touches
B/ Sous Lazarus via "Executer" : Affichage du 1er EtaKey.
Aucune action des touches.
Je suis un poil perdu.
Merci d'avance, cordialement
