| Class TForm1 (unit Keysnoo_) |
TForm
| Constructors |
| Functions |
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);| Properties |
| Events |
| Variables |
Label1 : TLabel;
ActivateKeySnooper : tActivateKeySnooper;
dllhandle : thandle;| Constructors |
| Functions |
procedure FormClose(Sender: TObject; var Action: TCloseAction);make it send it's messages to this application using message wm_user + 1} {install our own messagehandler
procedure FormCreate(Sender: TObject);procedure ActivateKeySnooper(CurrentTask : thandle; messageno : word); far; external 'keydll.dll' index 1; {The 'keysnooper' needs to know which message to send to whom
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);| Properties |
| Events |
| Variables |
Label1 : TLabel;
ActivateKeySnooper : tActivateKeySnooper;
dllhandle : thandle;