Delphi - NumLock, ScrollLock, PrintScreen, Pause, CapsLock lenyomásának érzékelése

forráskód letöltése
Mellékelt példából megtudható, hogy miként figyelhetjük programból azt, hogy a felhasználó lenyomja a címben említett nyomógombok valamelyikét. A folyamatos figyeléshez egy TTimer komponenst használunk, mely adott időközönként ellenőrzi a billentyűzet állapotát.

Ehhez a GetAsyncKeyState függvényt használjuk fel. Paraméterként egy tetszőleges billentyű kódját átadhatjuk, így nem csak a fent említett billentyűk lenyomását ellenőrizhetjük. Abban az esetben, ha a GetAsyncKeyState függvény visszatérési értéke nem nulla, akkor a vizsgált nyomógomb le lett nyomva.