DO decl
 
LOCAL hWindow, hMenu
hWindow = GetFocus()
hMenu = GetMenu(hWindow)
 
ACTI SCREEN
? "Window handle:", hWindow
? "Window Help Context ID:", GetWindowContextHelpId(hWindow)
 
IF hMenu <> 0
    ? "Menu handle:", hMenu
    ? "Menu Help Context ID:", GetMenuContextHelpId(hMenu)
ELSE
    ? "No menu attached to this window"
ENDIF
 
PROCEDURE decl
    DECLARE INTEGER GetWindowContextHelpId IN user32 INTEGER hWnd
    DECLARE INTEGER GetMenuContextHelpId IN user32 INTEGER hmenu
    DECLARE INTEGER GetFocus IN user32
    DECLARE INTEGER GetMenu IN user32 INTEGER hWnd