Bonjour à toutes et tous,
Dans le but de stopper un programme par attente de la touche "Entrée", j'utilise ce bout de code :
Le comportement est différent suivant le mode d' execution (le PC est sous Vista) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
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
Partager