console keypress non bloquant

**ouiouioui** · 22/03/2010, 14h28

bonjour, je developpe un programme console qui effectue une boucle infinie avec un sleep

je cherche un moyen après chaque sleep de savoir si l'utilisateur a appuyé sur une touche.

ceci sans attendre, contrairement à read et readln

la je passe par un txt qui est lu après chaque sleep et qui execute son contenu si pas vide ce qui n'est pas pratique du tout

merci pour votre aide

**Eric Boisvert** · 23/03/2010, 13h48

Quelque chose du genre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
//Variable global
var
InputHan: THandle;
 
 
//==============================================================================
//== Récupération des handles StdIn 
//== Cette fonction est appelé par la section Initialization
Procedure InitStdInOut();
Begin
  InputHan := GetStdHandle(STD_INPUT_HANDLE);
End;
 
 
 
Var
  dw: DWord;
  buf: TInputRecord;
begin
if WaitForSingleObject(InputHan,100)=WAIT_OBJECT_0 then
begin
    ReadConsoleInput(InputHan, buf, 1, dw);
    // Même + (Mouse, _MOUSE_EVENT,
    //WINDOW_BUFFER_SIZE_EVENT,MENU_EVENT et FOCUS_EVENT
    //voir Help sur ReadConsoleInput
    If (buf.EventType = KEY_EVENT) And (buf.Event.KeyEvent.bKeyDown) Then
    Begin
      //des lettres=> buf.Event.KeyEvent.AsciiChar
      //touche special=>buf.Event.KeyEvent.wVirtualKeyCode      
    End;
end;

**ouiouioui** · 23/03/2010, 15h50

merci beaucoup, j'était partis sur un thread pour ma boucle et un read dans mon programm mais pas pratique.

c'est de vous ou vous y avez trouvé?

merci