Unit Keysnoo_
Classes
TForm1 -
Functions
Types
tActivateKeySnooper
Constants
Variables
Form1
tActivateKeySnooper = procedure(CurrentTask : thandle; messageno : word)