钩子函数无法捕获WM_VSCROLL，求助！(100分)

钩子函数无法捕获WM_VSCROLL，求助！<br>function HookProc(iCode: Integer; wParam: wParam; lParam: lParam): LRESULT; stdcall;<br>var evtmsg: teventmsg;<br> &nbsp;p: TPoint;<br>begin<br> &nbsp;recOK := 1;<br> &nbsp;Result := 0;<br><br> &nbsp;evtmsg := pEventMSG(lParam)^;<br> &nbsp;if evtmsg.message = WM_HSCROLL then<br> &nbsp; &nbsp;Form1.Label7.Caption := 'WM_HSCROLL';<br> &nbsp;if evtmsg.message = WM_VSCROLL then<br> &nbsp; &nbsp;Form1.Label8.Caption := 'WM_VSCROLL';<br>end;