Заменить немодальный диалог на модальный

#include <windows.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include "mydialog.h"
//объявим прототипы функций и глобальные переменные
LRESULT CALLBACK WindowFunc(HWND,UINT,WPARAM,LPARAM);
BOOL CALLBACK DialogFunc   (HWND,UINT,WPARAM,LPARAM);
char szWinName[] = "Lists";
HINSTANCE hInst;
int X=0, Y=0;
int maxX,maxY;
HDC memdc;
HBITMAP hbit;
HBRUSH hbrush;
TEXTMETRIC tm;
HWND hDlg; // немодальный диалог
char str[80];
int i=1;
 
struct slink {char *e; slink *next;};
 
slink* list1=NULL;
//операции со списком, вставка нового элемента, удаление элемента
slink *insert( slink *lst, char *a)
{
  slink *prev=lst, *p= new slink;
  p->e = new char[strlen(a)+1];
  strcpy(p->e,a); p->e[strlen(a)+1]='\0';
  p->next = NULL;
  if(lst==NULL) return p;
  while(lst->next!=NULL)
  {
    lst =lst->next;
  }
  lst->next = p;
  return prev;
}
//удаление элемента
slink *del( slink *lst)
{
  slink *p=lst;
  if(lst)
  {
        lst = lst->next; delete p;
  }
  return lst;
}
 
 
void sh(HDC hdc, slink *lst )
{
          Y=0;
          PatBlt(hdc,0,0,maxX,maxY,PATCOPY);
          while(lst!=NULL)
          {
                sprintf(str, "%s", lst->e);
                TextOut(memdc, X, Y, str, strlen(str));
                Y = Y+ tm.tmHeight+tm.tmExternalLeading;
                lst=lst->next;
          }
}
 
int WINAPI WinMain(HINSTANCE hThisInst,
    HINSTANCE hPrevinst,
    LPSTR lpszArgs,
    int nWinMode)
{
  HWND hwnd;
  MSG msg;
  WNDCLASS wcl;
  HACCEL hAccel;
 
  wcl.hInstance = hThisInst;
  wcl.lpszClassName = szWinName;
  wcl.lpfnWndProc= WindowFunc;
  wcl.style = 0;
 
  wcl.hIcon = LoadIcon (NULL, IDI_APPLICATION); //иконка
  wcl.hCursor = LoadCursor(NULL,IDC_ARROW); //курсор
  wcl.lpszMenuName = "MYMENU";          //меню
 
  wcl.cbClsExtra = 0;
  wcl.cbWndExtra = 0;
//фон
  wcl.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
 
  if(!RegisterClass(&wcl))
    return 0;
//создадим окно
  hwnd = CreateWindow(szWinName,
    "Dialogs",
    WS_OVERLAPPEDWINDOW,
    CW_USEDEFAULT,
    CW_USEDEFAULT,
    CW_USEDEFAULT,
    CW_USEDEFAULT,
    HWND_DESKTOP,
    NULL,
    hThisInst,
    NULL);
 
  hInst = hThisInst;
  hAccel = LoadAccelerators(hThisInst,"MYMENU");//подключим акселераторы
 
  ShowWindow(hwnd,nWinMode); //отобразить окно
  UpdateWindow(hwnd);
//обработка акселераторов
  while(GetMessage(&msg,NULL,0,0))
  {
    if (!IsDialogMessage(hDlg, &msg)) // немод
   {
    if(!TranslateAccelerator(hwnd,hAccel,&msg))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
   }
  }
  return msg.wParam;
}
 
LRESULT CALLBACK WindowFunc(HWND hwnd,
    UINT message,
    WPARAM wParam,
    LPARAM lParam)
{
  HDC hdc;
  PAINTSTRUCT paintstruct;
  char *txt;
  static TEXTMETRIC tm;
  SIZE size;
  slink* list3 = list1;
  switch(message)
  {
    case WM_CREATE:
      // получаем размеры окна
        maxX= GetSystemMetrics(SM_CXSCREEN);
        maxY= GetSystemMetrics(SM_CYSCREEN);
      // строим растр, совместимый с окном
      hdc = GetDC(hwnd);    //получить DC
      memdc= CreateCompatibleDC(hdc);
      hbit= CreateCompatibleBitmap(hdc,maxX,maxY);
      SelectObject(memdc,hbit);
      hbrush=(HBRUSH)GetStockObject(WHITE_BRUSH);
      SelectObject(memdc,hbrush);
      PatBlt(memdc,0,0,maxX,maxY,PATCOPY);
      GetTextMetrics(memdc,&tm);
      ReleaseDC(hwnd,hdc);  //освободить  DC
      break;
    case WM_COMMAND:    
      switch (LOWORD (wParam))
    {
        case IDM_DIALOG1:
        //CreateDialog(hInst, "MYDB",hwnd, (DLGPROC)DialogFunc); // немод
        DialogBox(hInst,"MYDB",hwnd, (DLGPROC)DialogFunc);
        break;
        case IDM_INSERT:
                 txt=new char[4];
         sprintf(txt, "%3d", random(1000));
         list1=insert(list1,txt);
         sh(memdc,list1);
         InvalidateRect(hwnd,NULL,1);
 
        break;
        case IDM_DELETE:
        list1=del(list1);
        sh(memdc,list1);
        list3=list1;
          while(list3!=NULL)
          {
                sprintf(str, "%s", list3->e);
                TextOut(memdc, X, Y, str, strlen(str));
                Y = Y+ tm.tmHeight+tm.tmExternalLeading;
                list3=list3->next;
          }
 
        InvalidateRect(hwnd,NULL,1);
        break;
        case IDM_SHOW:
          GetTextMetrics(memdc,&tm);
          sh(memdc,list1);
          X=Y=0;
          PatBlt(memdc,0,0,maxX,maxY,PATCOPY);
          while(list1!=NULL)
          {
                sprintf(str, "%s", list1->e);
                TextOut(memdc, X, Y, str, strlen(str));
                Y = Y+ tm.tmHeight+tm.tmExternalLeading;
                list1=list1->next;
          }
 
        InvalidateRect(hwnd,NULL,1);
          break;
      case IDM_HELP:    
        MessageBox(hwnd,"\nAfter vvoda data "
       "\n in window redactirovania nazmite ENTER","Help",MB_OK);
        break;
    }
    break;
    case WM_PAINT:
        hdc=BeginPaint(hwnd,&paintstruct);  //получить dc
        BitBlt(hdc,0,0,maxX,maxY,memdc,0,0,SRCCOPY);
        EndPaint(hwnd,&paintstruct);        //выпуск DC
        break;
    case WM_DESTROY:
            DeleteDC(memdc);        
        PostQuitMessage(0);     //сообщение о завершении
        break;
    default:                    //обработка остальных сообщений
    return DefWindowProc(hwnd,message,wParam,lParam);
  }
  return 0;
}
BOOL CALLBACK DialogFunc(HWND hdwnd,
    UINT message,
    WPARAM wParam,
    LPARAM lParam)
{
  long i;
  HDC hdc;
  slink* list2;
  switch(message)
  {
    case WM_COMMAND:
      switch (LOWORD(wParam))
      {
        case IDEL:
        i = SendDlgItemMessage(hdwnd, ID_LB1, LB_GETCOUNT, 0, 0L);
        list1=del(list1);
        SendDlgItemMessage(hdwnd, ID_LB1, LB_DELETESTRING, 0, 0L);
          return 1;
        case IDCANCEL:
        EndDialog(hdwnd,0);
          return 1;
        case ID_LB1:
          if(HIWORD(wParam)==LBN_DBLCLK)
          {
            i = SendDlgItemMessage(hdwnd,ID_LB1,LB_GETCURSEL,0,0L);
            sprintf(str,"Index vibronogo elementa = %d",i);
            MessageBox(hdwnd,str,"Choose sdelan",MB_OK);
          }
        return 1;
        case IDOK:
        GetDlgItemText(hdwnd, ID_EB1, str,80);
          if (strlen(str))
        {   
                list1 = insert(list1,str);
            SendDlgItemMessage(hdwnd, ID_LB1,
            LB_ADDSTRING,0,(LPARAM)str);
          }
      }
      return 1;
    case WM_INITDIALOG:
    list2 = list1;
    while (list2!=NULL)
    {
        SendDlgItemMessage(hdwnd, ID_LB1,
        LB_ADDSTRING,0,(LPARAM)(list2->e));                      
            list2 = list2->next;
    } ;
      return 1;
  }
  return 0;
}