KAS cpp Defines the entry point for the application include stdafx Обр

// KAS.cpp : Defines the entry point for the application.
//

#include "stdafx.h"

// Обработка сообщений WM_CHAR
#include <Windows.h>
#include <stdio.h>
#include <String.h>
LRESULT CALLBACK WindowFunc(HWND, UINT,
                            WPARAM, LPARAM) ;
char szWinName[]="МоеОкно";         // Имя класса окна
char sztitle[]="pR0gramm::by::Kas";
char str[80]="текст";
int X=10, Y=10;

int  WINAPI WinMain(HINSTANCE hThisInst,
                    HINSTANCE hPrevInst,
                    LPSTR lpszArgs,
                    int nWinMode)
  {
  HWND hwnd;
  MSG msg;
  WNDCLASS wcl;               // Определить класс окна
    wcl.hInstance=hThisInst;  // Дескриптор приложения
    wcl.lpszClassName=szWinName; // Имя класса окна
    wcl.lpfnWndProc=WindowFunc;  // Функция окна
    wcl.style=8;                 // Стиль по умолчанию
    wcl.hIcon=LoadIcon(NULL,IDI_QUESTION);// Иконка
    wcl.hCursor=LoadCursor(NULL,IDC_WAIT);  // Курсор
    wcl.lpszMenuName=NULL;                 // Без меню
    wcl.cbClsExtra=0; // Без дополнительной информации
    wcl.cbWndExtra=0;                       
    wcl.hbrBackground=
  CreateSolidBrush(RGB(01,100,150)); //Белый фон
  if(!RegisterClass(&wcl))  // Регистрируем класс окна
     return 0;
  hwnd=CreateWindow(szWinName,         // Создать окно
                    sztitle,
                    WS_OVERLAPPEDWINDOW, // Стиль окна
                    CW_USEDEFAULT,     // x-координата
                    CW_USEDEFAULT,     // y-координата
                    600,     // Ширина
                    450,     // Высота
                    HWND_DESKTOP, // Нет родител. окна
                    NULL,              // Нет меню
                    hThisInst,// Дескриптор приложения
                    NULL); // Нет дополнит. аргументов
  ShowWindow (hwnd, nWinMode); // Показать окно   
  UpdateWindow (hwnd);         // и перерисовать

  while(GetMessage(&msg,NULL,0,0))   // Запустить цикл
    {                           // обработки сообщений
    TranslateMessage(&msg); // Разреш. исп. клавиатуры
    DispatchMessage (&msg); // Вернуть управл. Windows
    }
  return msg.wParam;
  }

// Следующая функция вызывается операционной
// системой Windows и получает в качестве
// параметров сообщения из очереди сообщений
// данного приложения

LRESULT CALLBACK WindowFunc(HWND hwnd,
                            UINT message,
                            WPARAM wParam,
                            LPARAM lParam)
  {
 HDC hdc;
 PAINTSTRUCT paintstruct;
  switch(message)
    {

 case WM_CHAR:
  X=Y=1;
  sprintf(str,"%c",(char)wParam);
  InvalidateRect(hwnd,NULL,1);
   break;

 case WM_PAINT:
  hdc=BeginPaint(hwnd,&paintstruct);
  TextOut(hdc,X,Y,str,strlen(str));
  EndPaint(hwnd,&paintstruct);
  break;

 case WM_RBUTTONDOWN:
  hdc = GetDC(hwnd);
  strcpy(str,"Нажата ПРАВАЯ кнопка");
  X = LOWORD(lParam);
  Y = HIWORD(lParam);
  InvalidateRect(hwnd,NULL,1);
  break;

 case WM_LBUTTONDOWN:
  hdc = GetDC(hwnd);
  strcpy(str,"Нажата ЛЕВАЯ кнопка");
  X = LOWORD(lParam);
  Y = HIWORD(lParam);
  InvalidateRect(hwnd,NULL,1);
  break;

    case WM_DESTROY:           // Завершение программы
    PostQuitMessage (0);
    break;
    default:
      // Все сообщения, не обрабатываемые в         
      // данной функции, направляются на обработку
      // по умолчанию
    return DefWindowProc(hwnd,message,
                           wParam,lParam);
    }
  return 0;
  }