//Подпрограмма создания окна   ------------------------------------------------
DWORD CreateWindow(void)  //Create a window and return hWnd
struct WNDCLASSEX wc;
dword WND;
dword hMenu;
{


        hInst=GetModuleHandleA(0);
        wc.cbSize=sizeof(wc);
        wc.style=CS_HREDRAW|CS_VREDRAW;
        wc.lpfnWndProc=#WndProc;
        wc.cbWndExtra=NULL;
        wc.cbClsExtra=NULL;
        wc.hInstance=hInst;
        wc.hIcon=LoadIconA(hInst, IDI_ICON1);
        wc.hCursor=LoadCursor(NULL,IDC_ARROW);
        wc.hbrBackground=COLOR_WINDOW;      //COLOR_GRAYTEXT;
        wc.lpszMenuName=MyMenu;          //Если нет меню то 0;
        wc.lpszClassName=#classTitle;
        wc.hIconSm=0;
        RegisterClassExA(#wc);         //зарегистрируем класс окна

        hMenu=LoadMenuA(hInst,MyMenu); //загружаем меню с файла ресурса
                           // и создадим окно

        WND=CreateWindowExA(0,
                            #classTitle,
                            #WindowTitle,
                            WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX,
//                            WS_VISIBLE+WS_DLGFRAME+WS_SYSMENU+WS_MINIMIZEBOX,
                            0,0,
                            _Width_SCR_, _Height_SCR_,
                            0,
                            hMenu,
                            hInst,
                            0);


        ShowWindow(EAX,SW_SHOWNORMAL); //show window
        UpdateWindow(EAX);             //redraw window

        return WND;
}
	       		
