Class TForm1 (unit Keysnoo_)

Inherits from

TForm

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.

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;