Discussion :

[petitcoucou31]

Bonjour a tous ..

Je voudrais savoir comment faire pour intercepter l'appuie sur une touche , alors que je n'ai pas de fenetre ?

En fait mon programme utilise une DLL qui n'a pas de form , une des routines est une boucle qui attends une action exterieure pour quitter la boucle , mais je voudrai pouvoir sortir de ma boucle en appuyant sur F1 par exemple.

merci

[petitcoucou31]

salut , pour information

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
FUNCTION SHIFTF1:boolean;
VAR
  KeyboardState:TKeyboardState;
  Shift : TShiftState;
BEGIN
  result:=false;
  GetKeyboardState(KeyboardState);
  Shift:=KeyboardStateToShiftState(KeyboardState);
  IF (ssShift in Shift) and (GetKeyState(VK_F1) < 0) THEN result:=true;
END;

bye.