Запрограммировать появление контекстного меню

.386
.model flat,stdcall
option casemap:none
   
    include C:\masm32\include\windows.inc
    include C:\masm32\include\user32.inc
    include C:\masm32\include\kernel32.inc
 
    includelib C:\masm32\lib\user32.lib
    includelib C:\masm32\lib\kernel32.lib
 
    WndProc proto :DWORD,:DWORD,:DWORD,:DWORD
 
.data?
 
    hMe dd ?
 
.code
 
    MenuName db 'M',0
 
start:
 
    invoke GetModuleHandle,NULL
    invoke DialogBoxParam,eax,50,NULL,offset WndProc,NULL
 
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
 
    LOCAL t_Po:POINT
 
    .if uMsg==WM_CLOSE
ex:  invoke ExitProcess,NULL
 
    .elseif uMsg==WM_COMMAND
     .if wParam==71
      invoke MessageBox,hWnd,0,0,0
     .elseif wParam==72
      invoke MessageBeep,0
     .elseif wParam==73
      jmp ex
     .endif
  
    .elseif uMsg==WM_INITDIALOG
     invoke GetModuleHandle,NULL
     invoke LoadMenu,eax,addr MenuName
     mov hMe,eax
    
    .elseif uMsg==WM_RBUTTONDOWN
     invoke GetCursorPos,addr t_Po
     invoke GetSubMenu,hMe,NULL
     invoke TrackPopupMenu,eax,TPM_LEFTALIGN,t_Po.x,t_Po.y,NULL,hWnd,NULL
 
    .elseif
     mov eax,FALSE
     ret
    .endif
     mov eax,TRUE
     ret
 
WndProc endp
 
end start