Subclass Window Procedure

MRESULT EXPENTRY wpSubclass(HWND   hWnd,
                            ULONG  ulMsg,
                            MPARAM mp1,
                            MPARAM mp2)
{
        CHAR      szClass[7];
        CLASSINFO WinClass;
        PFNWP     pWinProc;

        BOOL      bSuccess;
        ULONG     ulRetLength;

        switch (ulMsg)
               {
               case WMP_MESSAGE1:
                         :
                    <Perform application specific processing>
                         :
                    return((MRESULT)0);
                    break;
               case WMP_MESSAGE2:
                         :
                    <Perform application specific processing>
                         :
                    break;
               default:
                    break;
               }
        ulRetLength=WinQueryClassName(hWnd,
                                      sizeof(szClass),
                                      szClass);
        bSuccess=WinQueryClassInfo(NULL,
                                   szClass,
                                   &WinClass);
        pWinProc=WinClass.pfnWindowProc;
        return((MRESULT)(*pWinProc)(hWnd,
                                    ulMsg,
                                    mp1,
                                    mp2);
}