Discussion :

[ducelier]

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 :

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;

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

[ducelier]

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 :

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;

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

Bonjour,
Je me réponds à moi-même au cas où cela interesserait d' autres gentils membres :
L' utilisation de GetAsyncKeyState résoud mon problème.

Mais si il y a des commentaires, je suis tout ouïe.
Cordialement,