#include <windows.h> // заголовочный файл, содержащий WINAPI


// Прототип функции обработки сообщений с пользовательским названием:
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
TCHAR mainMessage[] = L"Какой то-текст!"; // строка с сообщением

// Управляющая функция:
int WINAPI WinMain(HINSTANCE hInst, // дескриптор экземпляра приложения
    HINSTANCE hPrevInst, // не используем
    LPSTR lpCmdLine, // не используем
    int nCmdShow) // режим отображения окошка
{
    TCHAR szClassName[] = L"Мой класс"; // строка с именем класса
    HWND hMainWnd; // создаём дескриптор будущего окошка
    MSG msg; // создём экземпляр структуры MSG для обработки сообщений
    WNDCLASSEX wc; // создаём экземпляр, для обращения к членам класса WNDCLASSEX
    wc.cbSize        = sizeof(wc); // размер структуры (в байтах)
    wc.style         = CS_HREDRAW | CS_VREDRAW; // стиль класса окошка
    wc.lpfnWndProc   = WndProc; // указатель на пользовательскую функцию
    wc.lpszMenuName  = NULL; // указатель на имя меню (у нас его нет)
    wc.lpszClassName = szClassName; // указатель на имя класса
    wc.cbWndExtra    = NULL; // число освобождаемых байтов в конце структуры
    wc.cbClsExtra    = NULL; // число освобождаемых байтов при создании экземпляра приложения
    wc.hIcon         = LoadIcon(NULL, IDI_WINLOGO); // декриптор пиктограммы
    wc.hIconSm       = LoadIcon(NULL, IDI_WINLOGO); // дескриптор маленькой пиктограммы (в трэе)
    wc.hCursor       = LoadCursor(NULL, IDC_ARROW); // дескриптор курсора
    wc.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH); // дескриптор кисти для закраски фона окна
    wc.hInstance     = hInst; // указатель на строку, содержащую имя меню, применяемого для класса
    if(!RegisterClassEx(&wc)){
        // в случае отсутствия регистрации класса:
        MessageBox(NULL, L"Не получилось зарегистрировать класс!", L"Ошибка", MB_OK);
        return NULL; // возвращаем, следовательно, выходим из WinMain
    }
    // Функция, создающая окошко:
    hMainWnd = CreateWindow(
        szClassName, // имя класса
        L"Для сохранения снимка щёлкните по снимку (в окне)", // имя окошка (то что сверху)
        WS_OVERLAPPEDWINDOW | WS_VSCROLL, // режимы отображения окошка
        CW_USEDEFAULT, // позиция окошка по оси х
        NULL, // позиция окошка по оси у (раз дефолт в х, то писать не нужно)
        CW_USEDEFAULT, // ширина окошка
        NULL, // высота окошка (раз дефолт в ширине, то писать не нужно)
        (HWND)NULL, // дескриптор родительского окна
        NULL, // дескриптор меню
        HINSTANCE(hInst), // дескриптор экземпляра приложения
        NULL); // ничего не передаём из WndProc
    if(!hMainWnd){
        // в случае некорректного создания окошка (неверные параметры и тп):
        MessageBox(NULL, L"Не получилось создать окно!", L"Ошибка", MB_OK);
        return NULL;
    }
    ShowWindow(hMainWnd, nCmdShow); // отображаем окошко
    UpdateWindow(hMainWnd); // обновляем окошко
    while(GetMessage(&msg, NULL, NULL, NULL)){ // извлекаем сообщения из очереди, посылаемые фу-циями, ОС
        TranslateMessage(&msg); // интерпретируем сообщения
        DispatchMessage(&msg); // передаём сообщения обратно ОС
    }
    return msg.wParam; // возвращаем код выхода из приложения
}

LRESULT CALLBACK WndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam){
    HDC hDC, hDCMem; // создаём дескриптор ориентации текста на экране
    PAINTSTRUCT ps; // структура, сод-щая информацию о клиентской области (размеры, цвет и тп)
    RECT rect; // стр-ра, определяющая размер клиентской области
    COLORREF colorText = RGB(255, 0, 0); // задаём цвет текста
    HBITMAP hBmp, hMaska, hOldBitmap, bmpMem;
    BITMAP bmInfo;
    HINSTANCE hInstance;
    BOOL sucess;
     OPENFILENAME ofn;
     static BOOL SetWindowPosRes = FALSE;

    switch(uMsg){

    case WM_CREATE:
        hDC = BeginPaint(hWnd, &ps);
        //HBITMAP hBmp;



break;


    case WM_PAINT: {// если нужно нарисовать, то:
         GetClientRect(hWnd, &rect);

            hDC = BeginPaint(hWnd, &ps); // инициализируем контекст устройства
            if ( OpenClipboard(hWnd) )
hBmp = (HBITMAP)GetClipboardData(CF_BITMAP);
            if (hBmp == NULL)
            {
                MessageBox(NULL, L"Error", L" ", MB_OK);
                CloseClipboard();

                PostQuitMessage(NULL);

            }

            hDCMem = CreateCompatibleDC(hDC);


            hOldBitmap = (HBITMAP) SelectObject(hDCMem, hBmp);
GetObject(hBmp, sizeof(bmInfo), &bmInfo);
bmpMem = CreateCompatibleBitmap (hDC, bmInfo.bmWidth-16, bmInfo.bmHeight-38);
             BitBlt(hDC, 0, 0, bmInfo.bmWidth-16, bmInfo.bmHeight-38, hDCMem, 8, 30, SRCCOPY); //Оставлю этот идеальный код потомкам

             if (SetWindowPosRes == FALSE)
             {
                 SetWindowPos(hWnd, (HWND)NULL, 0, 0, bmInfo.bmWidth, bmInfo.bmHeight, SWP_NOMOVE);
            SetWindowPosRes = TRUE;
             }




CloseClipboard();

             DeleteDC(hDCMem);


EndPaint(hWnd, &ps); // заканчиваем рисовать

break;
    }
    case WM_LBUTTONDOWN: {
 char szFileName[MAX_PATH] = "";

             ZeroMemory(&ofn, sizeof(ofn));

             ofn.lStructSize = sizeof(ofn);
             ofn.hwndOwner = NULL;
             ofn.lpstrFilter = (LPCWSTR)L"Text Files (*.bmp)\0*.bmp\0All Files (*.*)\0*.*\0";
             ofn.lpstrFile = (LPWSTR)szFileName;
             ofn.nMaxFile = MAX_PATH;
             ofn.Flags = OFN_EXPLORER | OFN_FILEMUSTEXIST | OFN_HIDEREADONLY;
             ofn.lpstrDefExt = (LPCWSTR)L"bmp";

             GetSaveFileName(&ofn);

             BITMAPFILEHEADER bfh; //структура с заголовком файла
             BITMAPINFOHEADER bih;  //структура с описанием формата картинки
             BITMAPINFO bi; //описание формата для функции GetDIBits ()
             void *pdwBits = NULL; //указатель на буфер с будущим рисунком
             DWORD dwWB = 0; //переменная для хранения записанных байт в файл
             HANDLE hFile = NULL; //хэндл открытого файла

             //Создаем пустой буфер, в который потом скопируется картинка
             pdwBits = (void *)GlobalAlloc (GMEM_FIXED, 800 * 600 * 4);

             //Обнуляем структуры
             memset (&bfh, 0, sizeof (BITMAPFILEHEADER));
             memset (&bih, 0, sizeof (BITMAPINFOHEADER));
             memset (&bi, 0, sizeof (BITMAPINFO));

             //Заполняем заголовочную структуру
             bfh.bfType = 0x4D42;                           // Обозначим, что это bmp 'BM'
             bfh.bfOffBits = sizeof(bfh) + sizeof(bih);
             bfh.bfSize = bfh.bfOffBits + 800 * 600 * 4;   // Посчитаем размер конечного файла

             //Заполняем описание картинки
             bih.biSize = sizeof(bih);                      // Так положено
             bih.biBitCount = 32;                           // 16 бит на пиксель
             bih.biCompression = BI_RGB;                    // Без сжатия
             bih.biHeight = 600;
             bih.biWidth = 800;
             bih.biPlanes = 1;

             //Копируем в структуру BITMAPINFO
             CopyMemory (&bi, &bih, sizeof (BITMAPINFOHEADER));

             //Получаем с помощью функции саму картинку из контекста в памяти
             GetDIBits (hDCMem, bmpMem, 0, 600, pdwBits, (LPBITMAPINFO)&bi, DIB_RGB_COLORS);

             //Создаем файл для записи
             hFile = CreateFile ((LPCWSTR)szFileName,
                 GENERIC_WRITE,
                 0,
                 NULL,
                 CREATE_ALWAYS,
                 FILE_ATTRIBUTE_NORMAL,
                 (HANDLE)NULL);
             if (hFile == INVALID_HANDLE_VALUE) {
                 if (pdwBits) GlobalFree (pdwBits);
                 SetWindowText (hWnd, (LPCWSTR)"Ошибка при открытии файла");
                 PostQuitMessage(NULL);
             }

             //Записываем структуру с заголовком файла
             if (!WriteFile (hFile, (void *)&bfh, sizeof (BITMAPFILEHEADER), &dwWB, NULL)) {
                 SetWindowText (hWnd, (LPCWSTR)"Ошибка при записи BITMAPFILEHEADER");
                 if (pdwBits) GlobalFree (pdwBits);
                PostQuitMessage(NULL);
             }

             //Записываем структуру с описанием формата картинки
             if (!WriteFile (hFile, (void *)&bih, sizeof (BITMAPINFOHEADER), &dwWB, NULL)) {
                 SetWindowText (hWnd, (LPCWSTR)"Ошибка при записи BITMAPINFOHEADER");
                 if (pdwBits) GlobalFree (pdwBits);
                 PostQuitMessage(NULL);
             }

             //Записываем собсна саму картинку после двух предыдущих структур
             if (!WriteFile (hFile, (void *)pdwBits, 800 * 600 * 4, &dwWB, NULL)) {
                 SetWindowText (hWnd, (LPCWSTR)"Ошибка при записи DIBits");
                 if (pdwBits) GlobalFree (pdwBits);
                 PostQuitMessage(NULL);
             }

             //Закрываем хэндл файла и очищаем буфер
             CloseHandle (hFile);
             if (pdwBits) GlobalFree (pdwBits);
        break;
    }
    case WM_DESTROY: // если окошко закрылось, то:
        PostQuitMessage(NULL); // отправляем WinMain() сообщение WM_QUIT
        break;
    default:
        return DefWindowProc(hWnd, uMsg, wParam, lParam); // если закрыли окошко
    }
    return NULL; // возвращаем значение
}