Re: Setting up a TMessage trap

Here is a freeware hook that does exactly what I need, should anyone
be interested. You will get a compiler error and need to change the
following 'Handle'(s) from Integer to Cardinal.

procedure Watch1ActivateShellWindow(Sender: TObject; Handle:
Cardinal; AppName:String);
procedure Watch1WindowActivated(Sender: TObject; Handle: Cardinal;
AppName:String);
procedure Watch1WindowCreated(Sender: TObject; Handle: Cardinal;
AppName:String);
procedure Watch1WindowDestroyed(Sender: TObject; Handle: Cardinal;
AppName:String);


http://delphi.icm.edu.pl/ftp/d20free/watch.zip
.