home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c221 / 7.ddi / MWHC.007 / 50 < prev    next >
Encoding:
Text File  |  1990-11-11  |  5.5 KB  |  164 lines
  1. /*-------------------------------------------------------
  2.    KEYLOOK.C -- Displays Keyboard and Character Messages
  3.                 (c) Charles Petzold, 1990
  4.   -------------------------------------------------------*/
  5.  
  6. #include <windows.h>
  7. #include <stdio.h>
  8.  
  9. long  FAR PASCAL WndProc (HWND, WORD, WORD, LONG) ;
  10.  
  11. RECT  rect ;
  12. short cxChar, cyChar ;
  13.  
  14. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
  15.                     LPSTR lpszCmdLine, int nCmdShow)
  16.      {
  17.      static char szAppName[] = "KeyLook" ;
  18.      HWND        hwnd ;
  19.      MSG         msg ;
  20.      WNDCLASS    wndclass ;
  21.  
  22.      if (!hPrevInstance) 
  23.           {
  24.           wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
  25.           wndclass.lpfnWndProc   = WndProc ;
  26.           wndclass.cbClsExtra    = 0 ;
  27.           wndclass.cbWndExtra    = 0 ;
  28.           wndclass.hInstance     = hInstance ;
  29.           wndclass.hIcon         = LoadIcon (NULL, IDI_APPLICATION) ;
  30.           wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
  31.           wndclass.hbrBackground = (HBRUSH) GetStockObject (WHITE_BRUSH) ;
  32.           wndclass.lpszMenuName  = NULL ;
  33.           wndclass.lpszClassName = szAppName ;
  34.  
  35.           RegisterClass (&wndclass) ;
  36.           }
  37.  
  38.      hwnd = CreateWindow (szAppName, "Keyboard Message Looker",
  39.                           WS_OVERLAPPEDWINDOW,
  40.                           CW_USEDEFAULT, CW_USEDEFAULT,
  41.                           CW_USEDEFAULT, CW_USEDEFAULT,
  42.                           NULL, NULL, hInstance, NULL) ;
  43.  
  44.      ShowWindow (hwnd, nCmdShow) ;
  45.      UpdateWindow (hwnd) ;
  46.  
  47.      while (GetMessage (&msg, NULL, 0, 0))
  48.           {
  49.           TranslateMessage (&msg) ;
  50.           DispatchMessage (&msg) ;
  51.           }
  52.      return msg.wParam ;
  53.      }
  54.  
  55. void ShowKey (HWND hwnd, int iType, char *szMessage, WORD wParam, LONG lParam)
  56.      {
  57.      static char *szFormat[2] = { "%-14s %3d    %c %6u %4d %3s %3s %4s %4s",
  58.                                   "%-14s    %3d %c %6u %4d %3s %3s %4s %4s" } ;
  59.      char        szBuffer[80] ;
  60.      HDC         hdc ;
  61.  
  62.      ScrollWindow (hwnd, 0, -cyChar, &rect, &rect) ;
  63.      hdc = GetDC (hwnd) ;
  64.  
  65.      SelectObject (hdc, GetStockObject (SYSTEM_FIXED_FONT)) ;
  66.  
  67.      TextOut (hdc, cxChar, rect.bottom - cyChar, szBuffer,
  68.               wsprintf (szBuffer, szFormat [iType],
  69.                         (LPSTR) szMessage, wParam,
  70.                         (BYTE) (iType ? wParam : ' '),
  71.                         LOWORD (lParam),
  72.                         HIWORD (lParam) & 0xFF,
  73.                         (LPSTR) (0x01000000 & lParam ? "Yes"  : "No"),
  74.                         (LPSTR) (0x20000000 & lParam ? "Yes"  : "No"),
  75.                         (LPSTR) (0x40000000 & lParam ? "Down" : "Up"),
  76.                         (LPSTR) (0x80000000 & lParam ? "Up"   : "Down"))) ;
  77.  
  78.      ReleaseDC (hwnd, hdc) ;
  79.      ValidateRect (hwnd, NULL) ;
  80.      }
  81.  
  82. long FAR PASCAL WndProc (HWND hwnd, WORD message, WORD wParam, LONG lParam)
  83.      {
  84.      static char szTop[] =
  85.                     "Message        Key Char Repeat Scan Ext ALT Prev Tran";
  86.      static char szUnd[]=
  87.                     "_______        ___ ____ ______ ____ ___ ___ ____ ____";
  88.      HDC         hdc ;
  89.      PAINTSTRUCT ps ;
  90.      TEXTMETRIC  tm ;
  91.  
  92.      switch (message)
  93.           {
  94.           case WM_CREATE:
  95.                hdc = GetDC (hwnd) ;
  96.  
  97.                SelectObject (hdc, GetStockObject (SYSTEM_FIXED_FONT)) ;
  98.  
  99.                GetTextMetrics (hdc, &tm) ;
  100.                cxChar = tm.tmAveCharWidth ;
  101.                cyChar = tm.tmHeight ;
  102.  
  103.                ReleaseDC (hwnd, hdc) ;
  104.  
  105.                rect.top = 3 * cyChar / 2 ;
  106.                return 0 ;
  107.  
  108.           case WM_SIZE:
  109.                rect.right  = LOWORD (lParam) ;
  110.                rect.bottom = HIWORD (lParam) ;
  111.                UpdateWindow (hwnd) ;
  112.                return 0 ;
  113.  
  114.           case WM_PAINT:
  115.                InvalidateRect (hwnd, NULL, TRUE) ;
  116.                hdc = BeginPaint (hwnd, &ps) ;
  117.  
  118.                SelectObject (hdc, GetStockObject (SYSTEM_FIXED_FONT)) ;
  119.  
  120.                SetBkMode (hdc, TRANSPARENT) ;
  121.                TextOut (hdc, cxChar, cyChar / 2, szTop, (sizeof szTop) - 1) ;
  122.                TextOut (hdc, cxChar, cyChar / 2, szUnd, (sizeof szUnd) - 1) ;
  123.                EndPaint (hwnd, &ps) ;
  124.                return 0 ;
  125.  
  126.           case WM_KEYDOWN:
  127.                ShowKey (hwnd, 0, "WM_KEYDOWN", wParam, lParam) ;
  128.                return 0 ;
  129.  
  130.           case WM_KEYUP:
  131.                ShowKey (hwnd, 0, "WM_KEYUP", wParam, lParam) ;
  132.                return 0 ;
  133.  
  134.           case WM_CHAR:
  135.                ShowKey (hwnd, 1, "WM_CHAR", wParam, lParam) ;
  136.                return 0 ;
  137.  
  138.           case WM_DEADCHAR:
  139.                ShowKey (hwnd, 1, "WM_DEADCHAR", wParam, lParam) ;
  140.                return 0 ;
  141.  
  142.           case WM_SYSKEYDOWN:
  143.                ShowKey (hwnd, 0, "WM_SYSKEYDOWN", wParam, lParam) ;
  144.                break ;        // ie, call DefWindowProc
  145.  
  146.           case WM_SYSKEYUP:
  147.                ShowKey (hwnd, 0, "WM_SYSKEYUP", wParam, lParam) ;
  148.                break ;        // ie, call DefWindowProc
  149.  
  150.           case WM_SYSCHAR:
  151.                ShowKey (hwnd, 1, "WM_SYSCHAR", wParam, lParam) ;
  152.                break ;        // ie, call DefWindowProc
  153.  
  154.           case WM_SYSDEADCHAR:
  155.                ShowKey (hwnd, 1, "WM_SYSDEADCHAR", wParam, lParam) ;
  156.                break ;        // ie, call DefWindowProc
  157.  
  158.           case WM_DESTROY:
  159.                PostQuitMessage (0) ;
  160.                return 0 ;
  161.           }
  162.      return DefWindowProc (hwnd, message, wParam, lParam) ;
  163.      }
  164.