//Dans la partie Déclarations globales de la fenêtre principale écrire
gnPrevproc is int

//Dans la partie Initialisation de la fenêtre principale écrire
// On subclasse la fenêtre principale pour pouvoir prendre la main sur WinDev.
gnPrevproc = SetWindowLong(gnhMain, GWL_WNDPROC, &WndProc)

//Dans la partie Fermeture de la fenêtre principale écrire
IF gnPrevproc THEN
   SetWindowLong(gnhMain, GWL_WNDPROC, gnPrevproc)
   gnPrevproc = 0
END

//Dans la partie Procédures locales de la fenêtre principale créer la fonction callback
FUNCTION WndProc(nhWnd is int, nMsg is int, nwParam is int, nlParam is int)
nRet is int
SWITCH nMsg
    CASE WM_MENUCOMMAND
    // Ecrire votre code ici
    CASE etc.
END
IF gnPrevproc THEN
   nRet = CallWindowProc(gnPrevproc, nhWnd, nMsg, nwParam, nlParam)
END
RESULT nRet

//-------------------------------------------
// Encapsulation de l'API "SetWindowLong"
FUNCTION SetWindowLong(nHandle is int, nIndex is int, nNewValue is int)
nRet is int = API("USER32", "SetWindowLongA", nHandle, nIndex, nNewValue)		
RESULT nRet

//-------------------------------------------
// Encapsulation de l'API "CallWindowProc"
FUNCTION CallWindowProc(nPrevProc is int, nHandle is int, nMsg is int, nwParam is int, nlParam is int)
nRet is int = API("USER32", "CallWindowProcA", nPrevProc, nHandle, nMsg, nwParam, nlParam)
RESULT nRet