为一个对话框加一个菜单，能通过调试，但是运行时崩溃，求解析，代码如上

#include<windows.h>
#include"resource.h"

BOOL CALLBACK DlgProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam);

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd)
{
    DialogBox(hInstance,MAKEINTRESOURCE(IDD_DIALOG1),NULL,DlgProc);

    return 0;
}

BOOL CALLBACK DlgProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
    HINSTANCE hInstance = ((LPCREATESTRUCT)lParam)->hInstance;
    HMENU hMenu;

    switch (message)
    {
    case WM_INITDIALOG:
        hMenu = LoadMenu(hInstance,MAKEINTRESOURCE(IDR_MENU1));
        SetMenu(hDlg,hMenu);
        return TRUE;

    case WM_COMMAND:
        switch (LOWORD(wParam))
        {
        case IDOK:
            return TRUE;

        case IDCANCEL:
            EndDialog(hDlg,0);
            return TRUE;
        }
        break;
    }
    return FALSE;
}