新手请教一个关于子类化问题(100分)

目的想子类化QQ的发送信息窗口，在任何按钮按下后，弹出一自己的对话框，代码如下：<br>var<br>oldprocointer;<br>qqwnd:hwnd;<br>function newproc(handle:hwnd;msg,wparam,lparam:longint):longint;stdcall;<br>begin<br>if msg=WM_COMMAND then<br>showmessage(‘hello‘);<br>result:=callwindowproc(oldproc,qqwnd,msg,wparam,lparam);<br>end;<br>initialization<br>qqwnd:=findwindow(nil,‘对话模式‘);<br>oldproc:=pointer(setwindowlong(qqwnd,GWL_WNDPROC,integer(@newproc)));<br>end.<br><br>可是运行后不能达到目的，请各位高手指点。

帮助中有如下一句：<br>The SetWindowLong function fails if the window specified by the hWnd parameter does not belong to the same process as the calling thread.<br>