Class TForm1 (unit Keysnoo_) |
Inherits from
TForm
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);
Label1 : TLabel;
ActivateKeySnooper : tActivateKeySnooper;
dllhandle : thandle;
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);
Label1 : TLabel;
ActivateKeySnooper : tActivateKeySnooper;
dllhandle : thandle;