home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c480 / 18.ddi / SAMPLES / GDOSMEM / GDOSMEM.C_ / GDOSMEM.C
Encoding:
C/C++ Source or Header  |  1993-02-08  |  17.0 KB  |  465 lines
  1. /****************************************************************************
  2.  
  3.     PROGRAM: Gdosmem.c
  4.  
  5.     PURPOSE: Demo for GlobalDosAlloc
  6.  
  7.     FUNCTIONS:
  8.  
  9.         WinMain() - calls initialization function, processes message loop
  10.         InitApplication() - initializes window data and registers window
  11.         InitInstance() - saves instance handle and creates main window
  12.         MainWndProc() - processes messages
  13.         About() - processes messages for "About" dialog box
  14.  
  15.     COMMENTS:
  16.  
  17.         This program communicates with the GTSR program to demonstrate
  18.         a technique for passing data between a Windows application and
  19.         a DOS TSR. This program allocates data using GlobalDosAlloc,
  20.         and then issues INT60h to request the TSR to increment a word
  21.         in the allocated buffer.
  22.  
  23.  
  24. ****************************************************************************/
  25.  
  26. #include "windows.h"                /* required for all Windows applications */
  27. #include "gdosmem.h"                /* specific to this program              */
  28.  
  29.  
  30. HANDLE    hInst;                       /* current instance                      */
  31. int       nHandler_Installed = 0;
  32. WORD      wSelector = 0;
  33. WORD      wSegment;
  34. WORD FAR *pPointer;
  35. char      szName[] = "GDOSMem";
  36. DWORD     dWinFlags;
  37.  
  38. /****************************************************************************
  39.  
  40.     FUNCTION: WinMain(HANDLE, HANDLE, LPSTR, int)
  41.  
  42.     PURPOSE: calls initialization function, processes message loop
  43.  
  44.     COMMENTS:
  45.  
  46.         Windows recognizes this function by name as the initial entry point
  47.         for the program.  This function calls the application initialization
  48.         routine, if no other instance of the program is running, and always
  49.         calls the instance initialization routine.  It then executes a message
  50.         retrieval and dispatch loop that is the top-level control structure
  51.         for the remainder of execution.  The loop is terminated when a WM_QUIT
  52.         message is received, at which time this function exits the application
  53.         instance by returning the value passed by PostQuitMessage().
  54.  
  55.         If this function must abort before entering the message loop, it
  56.         returns the conventional value NULL.
  57.  
  58. ****************************************************************************/
  59.  
  60. int PASCAL WinMain(hInstance, hPrevInstance, lpCmdLine, nCmdShow)
  61. HANDLE hInstance;                            /* current instance             */
  62. HANDLE hPrevInstance;                        /* previous instance            */
  63. LPSTR lpCmdLine;                             /* command line                 */
  64. int nCmdShow;                                /* show-window type (open/icon) */
  65. {
  66.     MSG msg;                                 /* message                      */
  67.  
  68.     if (!hPrevInstance)                  /* Other instances of app running? */
  69.         if (!InitApplication(hInstance)) /* Initialize shared things */
  70.             return (FALSE);              /* Exits if unable to initialize     */
  71.  
  72.     /* Perform initializations that apply to a specific instance */
  73.  
  74.     if (!InitInstance(hInstance, nCmdShow))
  75.         return (FALSE);
  76.  
  77.     /* Acquire and dispatch messages until a WM_QUIT message is received. */
  78.  
  79.     while (GetMessage(&msg,        /* message structure                      */
  80.             NULL,                  /* handle of window receiving the message */
  81.             NULL,                  /* lowest message to examine              */
  82.             NULL))                 /* highest message to examine             */
  83.     {
  84.         TranslateMessage(&msg);    /* Translates virtual key codes           */
  85.         DispatchMessage(&msg);     /* Dispatches message to window           */
  86.     }
  87.     return (msg.wParam);           /* Returns the value from PostQuitMessage */
  88. }
  89.  
  90.  
  91. /****************************************************************************
  92.  
  93.     FUNCTION: InitApplication(HANDLE)
  94.  
  95.     PURPOSE: Initializes window data and registers window class
  96.  
  97.     COMMENTS:
  98.  
  99.         This function is called at initialization time only if no other
  100.         instances of the application are running.  This function performs
  101.         initialization tasks that can be done once for any number of running
  102.         instances.
  103.  
  104.         In this case, we initialize a window class by filling out a data
  105.         structure of type WNDCLASS and calling the Windows RegisterClass()
  106.         function.  Since all instances of this application use the same window
  107.         class, we only need to do this when the first instance is initialized.
  108.  
  109.  
  110. ****************************************************************************/
  111.  
  112. BOOL InitApplication(hInstance)
  113. HANDLE hInstance;                              /* current instance           */
  114. {
  115.     WNDCLASS  wc;
  116.  
  117.     /* Fill in window class structure with parameters that describe the       */
  118.     /* main window.                                                           */
  119.  
  120.     wc.style = NULL;                    /* Class style(s).                    */
  121.     wc.lpfnWndProc = MainWndProc;       /* Function to retrieve messages for  */
  122.                                         /* windows of this class.             */
  123.     wc.cbClsExtra = 0;                  /* No per-class extra data.           */
  124.     wc.cbWndExtra = 0;                  /* No per-window extra data.          */
  125.     wc.hInstance = hInstance;           /* Application that owns the class.   */
  126.     wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
  127.     wc.hCursor = LoadCursor(NULL, IDC_ARROW);
  128.     wc.hbrBackground = COLOR_WINDOW+1;
  129.     wc.lpszMenuName =  "GdosmemMenu";   /* Name of menu resource in .RC file. */
  130.     wc.lpszClassName = "GdosmemWClass"; /* Name used in call to CreateWindow. */
  131.  
  132.     /* Register the window class and return success/failure code. */
  133.  
  134.     return (RegisterClass(&wc));
  135.  
  136. }
  137.  
  138.  
  139. /****************************************************************************
  140.  
  141.     FUNCTION:  InitInstance(HANDLE, int)
  142.  
  143.     PURPOSE:  Saves instance handle and creates main window
  144.  
  145.     COMMENTS:
  146.  
  147.         This function is called at initialization time for every instance of
  148.         this application.  This function performs initialization tasks that
  149.         cannot be shared by multiple instances.
  150.  
  151.         In this case, we save the instance handle in a static variable and
  152.         create and display the main program window.
  153.  
  154. ****************************************************************************/
  155.  
  156. BOOL InitInstance(hInstance, nCmdShow)
  157.     HANDLE          hInstance;          /* Current instance identifier.       */
  158.     int             nCmdShow;           /* Param for first ShowWindow() call. */
  159. {
  160.     HWND            hWnd;               /* Main window handle.                */
  161.     short   xClient, yClient;
  162.  
  163.     /* Save the instance handle in static variable, which will be used in  */
  164.     /* many subsequence calls from this application to Windows.            */
  165.  
  166.     hInst = hInstance;
  167.  
  168.     SizeWindow (&xClient, &yClient);
  169.  
  170.     /* Create a main window for this application instance.  */
  171.  
  172.     hWnd = CreateWindow(
  173.         "GdosmemWClass",                /* See RegisterClass() call.          */
  174.         "GlobalDosAlloc Demo",          /* Text for window title bar.         */
  175.         WS_OVERLAPPEDWINDOW,            /* Window style.                      */
  176.         CW_USEDEFAULT,                  /* Default horizontal position.       */
  177.         CW_USEDEFAULT,                  /* Default vertical position.         */
  178.         xClient, yClient,
  179.         NULL,                           /* Overlapped windows have no parent. */
  180.         NULL,                           /* Use the window class menu.         */
  181.         hInstance,                      /* This instance owns this window.    */
  182.         NULL                            /* Pointer not needed.                */
  183.     );
  184.  
  185.     /* If window could not be created, return "failure" */
  186.  
  187.     if (!hWnd)
  188.         return (FALSE);
  189.  
  190.     /* Make the window visible; update its client area; and return "success" */
  191.  
  192.     ShowWindow(hWnd, nCmdShow);  /* Show the window                        */
  193.     UpdateWindow(hWnd);          /* Sends WM_PAINT message                 */
  194.     return (TRUE);               /* Returns the value from PostQuitMessage */
  195.  
  196. }
  197.  
  198. void SizeWindow (short *pxClient, short *pyClient)
  199. {
  200.    HDC hdc;
  201.    TEXTMETRIC tm;
  202.    short xSize = 35;
  203.    short ySize = 20;
  204.  
  205.    hdc = CreateIC ("DISPLAY", NULL, NULL, NULL);
  206.    GetTextMetrics (hdc, &tm);
  207.    DeleteDC (hdc);
  208.  
  209.    *pxClient = 2* GetSystemMetrics (SM_CXBORDER) + xSize*tm.tmAveCharWidth;
  210.    *pyClient = 2* GetSystemMetrics (SM_CXBORDER) +
  211.                                ySize*(tm.tmHeight+tm.tmExternalLeading);
  212.  
  213. }
  214.  
  215. /****************************************************************************
  216.  
  217.     FUNCTION: MainWndProc(HWND, UINT, WPARAM, LPARAM)
  218.  
  219.     PURPOSE:  Processes messages
  220.  
  221. ****************************************************************************/
  222.  
  223. long CALLBACK __export MainWndProc(hWnd, message, wParam, lParam)
  224. HWND hWnd;                                /* window handle                   */
  225. UINT message;                 /* type of message         */
  226. WPARAM wParam;                  /* additional information          */
  227. LPARAM lParam;                  /* additional information          */
  228. {
  229.     DWORD dMem;
  230.  
  231.     short y;
  232.     static short cxChar, cyChar;
  233.     HDC     hdc;
  234.     PAINTSTRUCT ps;
  235.     TEXTMETRIC tm;
  236.     char    szBuffer [132];
  237.  
  238.     switch (message)
  239.     {
  240.  
  241.         /*------------------------ C R E A T E -----------------------*/
  242.         case WM_CREATE:
  243.             hdc = GetDC (hWnd);
  244.             GetTextMetrics (hdc, &tm);
  245.             cxChar = tm.tmAveCharWidth;
  246.             cyChar = tm.tmHeight + tm.tmExternalLeading;
  247.             y = 0;
  248.             ReleaseDC (hWnd, hdc);
  249.  
  250.             dWinFlags = GetWinFlags();
  251.             break;
  252.  
  253.         /*------------------------ P A I N T -------------------------*/
  254.         case WM_PAINT:
  255.             hdc = BeginPaint (hWnd, &ps);
  256.             y = 0;
  257.  
  258.             if (! (dWinFlags & WF_PMODE))
  259.             {
  260.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  261.                   wsprintf (szBuffer, "Windows in Real mode."));
  262.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  263.                   wsprintf (szBuffer, "Just use addresses directly."));
  264.                 break;
  265.             }
  266.  
  267.             TSR_Check();
  268.  
  269.             if (0==nHandler_Installed)
  270.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  271.                   wsprintf (szBuffer, "TSR not installed."));
  272.             else
  273.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  274.                   wsprintf (szBuffer, "TSR installed."));
  275.  
  276.             if (0==wSelector)
  277.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  278.                   wsprintf (szBuffer, "Buffer not allocated."));
  279.             else
  280.             {
  281.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  282.                   wsprintf (szBuffer, "Buffer allocated:"));
  283.  
  284.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  285.                   wsprintf (szBuffer, "  Phys addr=%.4X:%.4X",wSegment,0));
  286.  
  287.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  288.                   wsprintf (szBuffer, "  Prot addr=%.4X:%.4X",wSelector,0));
  289.  
  290.                 y++;
  291.                 pPointer = (WORD FAR *) ( (DWORD)wSelector << 16);
  292.                 TextOut (hdc, cxChar, cyChar*y++, szBuffer,
  293.                   wsprintf (szBuffer, "Contents = %.4X",*pPointer));
  294.             }
  295.  
  296.             EndPaint (hWnd, &ps);
  297.             break;
  298.  
  299.  
  300.         /*------------------------ C O M M A N D ---------------------*/
  301.         case WM_COMMAND:           /* message: command from application menu */
  302.  
  303.          if (wParam == IDM_ABOUT)
  304.          {
  305.             DialogBox(hInst,                 /* current instance         */
  306.                     "AboutBox",              /* resource to use          */
  307.                     hWnd,                    /* parent handle            */
  308.                     About);                  /* About() instance address */
  309.  
  310.             break;
  311.          }
  312.  
  313.          else if (wParam == IDM_ALLOC) {
  314.             if (0!=wSelector)
  315.                MessageBox (hWnd, "Memory Already Allocated", szName, MB_OK);
  316.             else
  317.             {
  318.                dMem = GlobalDosAlloc(2);        /* allocate a word- will */
  319.                                                 /* actually allocate more, */
  320.                                                 /* but your mileage may vary */
  321.                wSelector = LOWORD (dMem);
  322.                wSegment = HIWORD (dMem);
  323.                InvalidateRect (hWnd, NULL, TRUE);
  324.             }
  325.             break;
  326.          }
  327.  
  328.          else if (wParam == IDM_INT)
  329.          {
  330.             if (0==nHandler_Installed)
  331.                MessageBox (hWnd, "GDOS TSR is not installed", szName, MB_OK);
  332.             else if (0==wSelector)
  333.                MessageBox (hWnd, "Memory Not Allocated", szName, MB_OK);
  334.             else
  335.             {
  336.                 TSR_Request();
  337.                 InvalidateRect (hWnd, NULL, TRUE);
  338.             }
  339.             break;
  340.          }
  341.  
  342.          else if (wParam == IDM_FREE)
  343.          {
  344.             if (0==wSelector)
  345.                MessageBox (hWnd, "Memory Not Allocated", szName, MB_OK);
  346.             else
  347.             {
  348.                wSelector = GlobalDosFree (wSelector);
  349.                if (0!=wSelector)
  350.                 MessageBox (hWnd, "GlobalDosFree error", szName, MB_OK);
  351.                InvalidateRect (hWnd, NULL, TRUE);
  352.             }
  353.             break;
  354.          }
  355.  
  356.          else
  357.                 return (DefWindowProc(hWnd, message, wParam, lParam));
  358.  
  359.  
  360.         /*------------------------ D E S T R O Y ---------------------*/
  361.         case WM_DESTROY:                  /* message: window being destroyed */
  362.             if (0!=wSelector)
  363.             {
  364.                wSelector = GlobalDosFree (wSelector);
  365.             }
  366.             PostQuitMessage(0);
  367.             break;
  368.  
  369.         default:                          /* Passes it on if unproccessed    */
  370.             return (DefWindowProc(hWnd, message, wParam, lParam));
  371.     }
  372.     return (NULL);
  373. }
  374.  
  375.  
  376. /****************************************************************************
  377.  
  378.     FUNCTION: About(HWND, unsigned, WORD, LONG)
  379.  
  380.     PURPOSE:  Processes messages for "About" dialog box
  381.  
  382.     MESSAGES:
  383.  
  384.         WM_INITDIALOG - initialize dialog box
  385.         WM_COMMAND    - Input received
  386.  
  387.     COMMENTS:
  388.  
  389.         No initialization is needed for this particular dialog box, but TRUE
  390.         must be returned to Windows.
  391.  
  392.         Wait for user to click on "Ok" button, then close the dialog box.
  393.  
  394. ****************************************************************************/
  395.  
  396. BOOL __export CALLBACK About(hDlg, message, wParam, lParam)
  397. HWND hDlg;                                /* window handle of the dialog box */
  398. unsigned message;                         /* type of message                 */
  399. WORD wParam;                              /* message-specific information    */
  400. LONG lParam;
  401. {
  402.     switch (message)
  403.     {
  404.         case WM_INITDIALOG:                /* message: initialize dialog box */
  405.             return (TRUE);
  406.  
  407.         case WM_COMMAND:                      /* message: received a command */
  408.             if (wParam == IDOK                /* "OK" box selected?          */
  409.                 || wParam == IDCANCEL)        /* System menu close command?  */
  410.             {
  411.                 EndDialog(hDlg, TRUE);        /* Exits the dialog box        */
  412.                 return (TRUE);
  413.             }
  414.             break;
  415.     }
  416.     return (FALSE);                           /* Didn't process a message    */
  417. }
  418.  
  419. /*************************************************************************
  420.  
  421.     FUNCTION: TSR_Check()
  422.  
  423.         This function checks to see it GTSR is installed.
  424.  
  425. *************************************************************************/
  426. void TSR_Check()
  427. {
  428.     _asm{
  429.  
  430.         mov     ax, 0200h       ; get real mode interrupt vector
  431.         mov     bl, 60h         ; our handler
  432.         int     31h             ; DPMI Call
  433.  
  434.         or      cx, dx          ; anything there?
  435.         jz      short notsr
  436.         mov     ax, 899ah       ; GTSR Signature
  437.         mov     bx, 0           ; install check
  438.         int     60h
  439.  
  440.         cmp     bx, 899ah       ; did it do it?
  441.         jnz     short notsr
  442.         mov     nHandler_Installed, -1  ; show that it's there
  443. notsr:
  444.         }
  445. }
  446.  
  447. /*************************************************************************
  448.  
  449.     FUNCTION: TSR_Request()
  450.  
  451.         This function requests the TSR to increment the WORD in our
  452.         allocated buffer.
  453.  
  454. *************************************************************************/
  455.  
  456. void TSR_Request()
  457. {
  458.     _asm{
  459.         mov     ax, 899ah               ; Signature
  460.         mov     bx, 1                   ; issue request
  461.         mov     cx, wSegment            ; pass in segment address
  462.         xor     dx, dx                  ; offset zero
  463.         int     60h
  464.         }
  465. }