点击菜单 “说明”，弹不出对话框“About”，怎么回事呀？

对话框“About”我在资源文件中做好了
点击菜单 “说明”，弹不出对话框“About”，怎么回事呀？  AppendMenu (hMenu, MF_POPUP, IDD_DIALOG1, L"&说明");
  
  LRESULT CALLBACK WndProc(HWND hwnd,UINT message,
                         WPARAM wParam,LPARAM lParam)
 {   
  static HINSTANCE hInstance;
    switch(message)
    {
  case WM_CREATE:
  hInstance = ((LPCREATESTRUCT)lParam)->hInstance ;
  return 0;
  case WM_COMMAND:
  switch(LOWORD(wParam))
  {   
  case IDD_DIALOG1:
  DialogBox(hInstance,TEXT("About"),hwnd,AboutDlgProc);
  break;
  }  
   BOOL CALLBACK AboutDlgProc(HWND hDlg,UINT message,
                        WPARAM wParam,LPARAM lParam)
{
  switch(message)
  {
  case WM_INITDIALOG:
  return TRUE;   case WM_COMMAND:
  switch(LOWORD(wParam))
  {
  case IDOK:
  EndDialog(hDlg,0); 
  return TRUE;
  }
     break;
 }
  return FALSE;
}