拦截消息处理过程 (2000年8月3日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 42 行

拦截消息处理过程 (2000年8月3日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:935  
(http://www.codesky.net)  

--------------------------------------------------------------------------------


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 }


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.