'取原来处理地址
'Proc=GetWindowLong(hWnd, -4)
'设置新的处理地址
'SetWindowLong hWnd, -4, CodePtr(SubClassProcess)
'Function SubClassProcess(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'   '子类化处理
'   Function=CallWindowProc(Proc,hWnd, Msg, wParam, lParam) '给原处理地址处理消息
'End Function
