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.