如何在你的程序窗口之前拦截消息

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
实际上我们的程序有一个隐藏的窗口,就是Application对象,我们所有的消息循环都是Application来完成的,因此,我们只要在Application之前处理消息的话,就可以达到控制本程序所有消息的目的了! 下面的示例工程文件演示了如何做到这一点:
program Project1;
uses
Forms, messages, wintypes, winprocs,
Unit1 in 'UNIT1.PAS' {Form1};
{$R *.RES}
var
OldWndProc: TFarProc;
function NewWndProc(hWndAppl: HWnd; Msg, wParam: Word;
lParam: Longint): Longint; export;
begin
NewWndProc := 0; { Default WndProc return value }
{ * * * Handle messages here; The message number is in Msg * * * }
NewWndProc := CallWindowProc(OldWndProc, hWndAppl, Msg,
wParam, lParam);
end;
begin
Application.CreateForm(TForm1, Form1);
OldWndProc := TFarProc(GetWindowLong(Application.Handle,
GWL_WNDPROC));
SetWindowLong(Application.Handle, GWL_WNDPROC,
longint(@NewWndProc));
Application.Run;
end.
 

Similar threads

I
回复
0
查看
493
import
I
I
回复
0
查看
392
import
I
I
回复
0
查看
565
import
I
顶部