//在进程中试了一下,修改消息应该没问题(系统钩子应该也差不多,知道原理变通一下就可以了)。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const WM_END = 0; //在Windows系统中,0消息代表没有消息。
WM_TESTMSG = 1000; //自定义的一个消息,在实践中这个消息可以修改成你要截获的消息。
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
Procedure TestMsg(var Msg:TMessage);Message WM_TESTMSG; //自定义消息处理过程
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
HookHandle:HHOOK;
implementation
{$R *.dfm}
//Hook消息函数
Function TestHookProc(iCode:Integer;