Touche sans form

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

salut , pour information

Code:

---

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.