АКСЕЛЕРАТОРЫ В МОДАЛЬНОМ ДИАЛОГЕ

#include "resource.h"
BOOL CALLBACK DlgProc(HWND,UINT,WPARAM,LPARAM);
HACCEL hAxl;
int APIENTRY WinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPSTR     lpCmdLine,
                     int       nCmdShow)
{
 
 hAxl=LoadAccelerators(hInstance,MAKEINTRESOURCE(IDR_ACCELERATOR));
 DialogBoxParam(hInstance,MAKEINTRESOURCE(IDD_DIALOG),NULL,DlgProc,0);
 return 0;
}
BOOL CALLBACK DlgProc(HWND hDlg,UINT uMsg,WPARAM wParam,LPARAM lParam)
{
 static MSG msg;
 switch(uMsg)
 {
  case WM_INITDIALOG:
  {
   msg.hwnd=hDlg;
   return FALSE;
  };
  case WM_KEYDOWN:
  case WM_SYSKEYDOWN:
  {
   msg.lParam=lParam;
   msg.message=uMsg;
   msg.wParam=wParam;
   TranslateAccelerator(hDlg,hAxl,&msg);
   return FALSE;
  };
 
  case WM_COMMAND:
  {
   switch(LOWORD(wParam))
   {
    case IDM_HELLO:
    {
     MessageBox(hDlg,"You were looking at me I was looking at you\n"\
         "Coo Coo Ca Choo\n"\
         "Now whaddya gonna do?",
         "Blah...",MB_ICONINFORMATION);
     return FALSE;
    };
   };
   return FALSE;
  };
  case WM_CLOSE:
  {
   EndDialog(hDlg,0);
   return FALSE;
  };
 };
 return FALSE;
 
}