home *** CD-ROM | disk | FTP | other *** search
/ PC Press 1997 July / Sezamfile97_2.iso / windows / program / activex / axtsamp.exe / TSBRANCH.EXE / CONCLIEN / CONCLIEN.CPP next >
C/C++ Source or Header  |  1996-12-29  |  26KB  |  735 lines
  1. /*+==========================================================================
  2.   File:      CONCLIEN.CPP
  3.  
  4.   Summary:   Based largely on the FRECLIEN.EXE application code, this
  5.              client loads and accesses the Connectable DllSndBall
  6.              component provided in a separate in-process COM Server
  7.              (CONSERVE built in the sibling CONSERVE directory).  Thus to
  8.              run CONCLIEN you must build CONSERVE first. This client
  9.              application is meant to exercise the CONSERVE in-process
  10.              server and illustrate the use of event sinks in the client
  11.              which connect to connection points in the server-housed
  12.              connectable object, COBall.  This objec maintains logic and
  13.              data to simulate a ball bouncing inside of an enclosed
  14.              2-dimensional area. The client continuously moves and
  15.              displays the virtual ball and listens for sink notifications
  16.              when the ball bounces. Different Sounds are issued when the
  17.              ball hits and bounces off the top, sides, and bottom of the
  18.              bounding rectangle.
  19.  
  20.              There is no GUI behavior in the server--it is all in this
  21.              client.  This client instantiates one instance of the
  22.              server's COBall COM object and then moves and displays it.
  23.              There is a minimal menu in CONCLIEN. All the action is
  24.              automatic. The main application window's client area is used
  25.              for visual display of the moving ball.
  26.  
  27.              For a comprehensive tutorial code tour of CONCLIEN's contents
  28.              and offerings see the tutorial CONCLIEN.HTM file. For
  29.              more specific technical details on the internal workings see
  30.              the comments dispersed throughout the CONCLIEN source code.
  31.              For more details on the CONSERVE.DLL that CONCLIEN works with
  32.              see the CONSERVE.HTM file in the main tutorial directory.
  33.  
  34.   Classes:   CMainWindow
  35.  
  36.   Functions: InitApplication, WinMain
  37.  
  38.   Origin:    5-30-96: atrent - Editor-inheritance from the FRECLIEN source.
  39.  
  40. ----------------------------------------------------------------------------
  41.   This file is part of the Microsoft ActiveX Tutorial Code Samples.
  42.  
  43.   Copyright (C) Microsoft Corporation, 1997.  All rights reserved.
  44.  
  45.   This source code is intended only as a supplement to Microsoft
  46.   Development Tools and/or on-line documentation.  See these other
  47.   materials for detailed information regarding Microsoft code samples.
  48.  
  49.   THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY
  50.   KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
  51.   IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
  52.   PARTICULAR PURPOSE.
  53. ==========================================================================+*/
  54.  
  55. /*--------------------------------------------------------------------------
  56.   We include WINDOWS.H for all Win32 applications.
  57.   We include OLE2.H because we will be calling the COM/OLE libraries.
  58.   We include OLECTL.H because it has definitions for connectable objects.
  59.   We include INITGUID.H only once (here) in the entire app because we
  60.     will be defining GUIDs and want them as constants in the data segment.
  61.   We include COMMDLG.H because we will be using the Open File and
  62.     potentially other Common dialogs.
  63.   We include APPUTIL.H because we will be building this application using
  64.     the convenient Virtual Window and Dialog classes and other
  65.     utility functions in the APPUTIL Library (ie, APPUTIL.LIB).
  66.   We include IBALL.H and BALLGUID.H for the common Ball-related Interface
  67.     class, GUID, and CLSID specifications.
  68.   We include GUIBALL.H because it has the C++ class used for GUI display
  69.     of the moving ball.
  70.   We include CONCLIEN.H because it has class and resource definitions
  71.     specific to this CONCLIEN application.
  72. ---------------------------------------------------------------------------*/
  73. #include <windows.h>
  74. #include <ole2.h>
  75. #include <olectl.h>
  76. #include <initguid.h>
  77. #include <commdlg.h>
  78. #include <apputil.h>
  79. #include <iball.h>
  80. #include <ballguid.h>
  81. #include "guiball.h"
  82. #include "conclien.h"
  83.  
  84.  
  85. /*M+M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M
  86.   Method:   CMainWindow::CMainWindow
  87.  
  88.   Summary:  CMainWindow Constructor.
  89.  
  90.   Args:     .
  91.  
  92.   Modifies: .
  93.  
  94.   Returns:  .
  95. M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M-M*/
  96. CMainWindow::CMainWindow()
  97. {
  98.   // Ensure these member variable strings are null strings.
  99.   m_szFileName[0] = 0;
  100.   m_szFileTitle[0] = 0;
  101.  
  102.   // Fill in the Open File Name Common Dialog's OPENFILENAME structure.
  103.   m_ofnFile.lStructSize = sizeof(OPENFILENAME);
  104.   m_ofnFile.hwndOwner = m_hWnd;
  105.   m_ofnFile.hInstance = m_hInst;
  106.   m_ofnFile.lpstrFilter = TEXT(OFN_DEFAULTFILES_STR);
  107.   m_ofnFile.lpstrCustomFilter = NULL;
  108.   m_ofnFile.nMaxCustFilter = 0;
  109.   m_ofnFile.nFilterIndex = 1;
  110.   m_ofnFile.lpstrFile = m_szFileName;
  111.   m_ofnFile.nMaxFile = MAX_PATH;
  112.   m_ofnFile.lpstrInitialDir = TEXT(".");
  113.   m_ofnFile.lpstrFileTitle = m_szFileTitle;
  114.   m_ofnFile.nMaxFileTitle = MAX_PATH;
  115.   m_ofnFile.lpstrTitle = TEXT(OFN_DEFAULTTITLE_STR);
  116.   m_ofnFile.lpstrDefExt = NULL;
  117.   m_ofnFile.Flags = OFN_HIDEREADONLY;
  118.  
  119.   m_pMsgBox  = NULL;
  120.   m_pGuiBall = NULL;
  121. }
  122.  
  123.  
  124. /*M+M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M
  125.   Method:   CMainWindow::~CMainWindow
  126.  
  127.   Summary:  CMainWindow Destructor.  Destruction of the main window
  128.             indicates that the application should quit and thus the
  129.             PostQuitMessage API is called.
  130.  
  131.   Args:     .
  132.  
  133.   Modifies: .
  134.  
  135.   Returns:  .
  136. M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M-M*/
  137. CMainWindow::~CMainWindow()
  138. {
  139.   // CMainWindow is derived from CVirWindow which traps the WM_DESTROY
  140.   // message and causes a delete of CMainWindow which in turn causes this
  141.   // destructor to run. The WM_DESTROY results when the window is destoyed
  142.   // after a close of the window. Prior to exiting the main message loop:
  143.  
  144.   // We delete the CGuiBall and CMsgBox objects that were made in
  145.   // Initinstance.
  146.   DELETE_POINTER(m_pGuiBall);
  147.   DELETE_POINTER(m_pMsgBox);
  148.  
  149.   // We then post a WM_QUIT message to cause an exit of the main thread's
  150.   // message loop and an exit of this instance of the application.
  151.   PostQuitMessage(0);
  152. }
  153.  
  154.  
  155. /*M+M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M
  156.   Method:   CMainWindow::InitInstance
  157.  
  158.   Summary:  Instantiates an instance of the main application window.
  159.             This method must be called only once, immediately after
  160.             window class construction.  We take care to delete 'this'
  161.             CMainWindow if we must return the error condition FALSE.
  162.  
  163.   Args:     HINSTANCE hInstance,
  164.               Handle of the application instance.
  165.             int nCmdShow)
  166.               Command to pass to ShowWindow.
  167.  
  168.   Modifies: m_szHelpFile, m_pMsgBox.
  169.  
  170.   Returns:  BOOL.
  171.               TRUE if succeeded.
  172.               FALSE if failed.
  173. M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M-M*/
  174. BOOL CMainWindow::InitInstance(
  175.        HINSTANCE hInstance,
  176.        int nCmdShow)
  177. {
  178.   BOOL bOk = FALSE;
  179.   HWND hWnd = NULL;
  180.   HRESULT hr;
  181.  
  182.   // Create the Message Box and Message Log objects.
  183.   m_pMsgBox = new CMsgBox;
  184.  
  185.   // Create the CGuiBall object.
  186.   m_pGuiBall = new CGuiBall;
  187.  
  188.   if (NULL != m_pMsgBox && NULL != m_pGuiBall)
  189.   {
  190.     // Note, the Create method sets the m_hWnd member so we don't
  191.     // need to set it explicitly here first. Here is the create of this
  192.     // window.  Size the window reasonably. Create sets both m_hInst and
  193.     // m_hWnd. This creates the main client window.
  194.     hWnd = Create(
  195.              TEXT(MAIN_WINDOW_CLASS_NAME_STR),
  196.              TEXT(MAIN_WINDOW_TITLE_STR),
  197.              WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX
  198.                | WS_MAXIMIZEBOX | WS_THICKFRAME,
  199.              CW_USEDEFAULT,
  200.              CW_USEDEFAULT,
  201.              ::GetSystemMetrics(SM_CXSCREEN)*2/5,
  202.              ::GetSystemMetrics(SM_CYSCREEN)*2/5,
  203.              NULL,
  204.              NULL,
  205.              hInstance);
  206.     if (NULL != hWnd)
  207.     {
  208.       // Init the new GuiBall.
  209.       bOk = m_pGuiBall->Init(m_hWnd);
  210.       if (bOk)
  211.       {
  212.         // Ensure the new window is shown on screen and content
  213.         // is painted.
  214.         ::ShowWindow(m_hWnd, nCmdShow);
  215.         ::UpdateWindow(m_hWnd);
  216.  
  217.         // Build a path to where the help file should be (it should be in
  218.         // the same directory as the .EXE but with the .HLP extension.
  219.         MakeFamilyPath(hInstance, m_szHelpFile, TEXT(HELP_FILE_EXT));
  220.  
  221.         // Init the Message Box object.
  222.         bOk = m_pMsgBox->Init(m_hInst, m_hWnd);
  223.  
  224.         // Connect the new Ball Sink in this client to receive event
  225.         // calls from a COBall source in the server.
  226.         hr = m_pGuiBall->ConnectBallSink();
  227.         if (SUCCEEDED(hr))
  228.         {
  229.           HMENU hMenu  = ::GetMenu(m_hWnd);
  230.  
  231.           ::CheckMenuItem(
  232.               hMenu,
  233.               IDM_SOUND_BALL_ON,
  234.               MF_BYCOMMAND | MF_CHECKED);
  235.           ::CheckMenuItem(
  236.               hMenu,
  237.               IDM_SOUND_BALL_OFF,
  238.               MF_BYCOMMAND | MF_UNCHECKED);
  239.         }
  240.       }
  241.     }
  242.   }
  243.  
  244.   if (!bOk)
  245.   {
  246.     DELETE_POINTER(m_pMsgBox);
  247.     DELETE_POINTER(m_pGuiBall);
  248.   }
  249.  
  250.   return (bOk);
  251. }
  252.  
  253.  
  254. /*M+M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M
  255.   Method:   CMainWindow::DoMenu
  256.  
  257.   Summary:  Dispatch and handle the main menu commands.
  258.  
  259.   Args:     WPARAM wParam,
  260.               First message parameter (word sized).
  261.             LPARAM lParam)
  262.               Second message parameter (long sized).
  263.  
  264.   Modifies: m_ofnFile, ...
  265.  
  266.   Returns:  LRESULT
  267.               Standard Windows WindowProc return value.
  268. M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M-M*/
  269. LRESULT CMainWindow::DoMenu(
  270.           WPARAM wParam,
  271.           LPARAM lParam)
  272. {
  273.   LRESULT lResult = FALSE;
  274.   HMENU hMenu  = ::GetMenu(m_hWnd);
  275.  
  276.   switch (LOWORD(wParam))
  277.   {
  278.     //----------------------------------------------------------------------
  279.     // Handle File Menu Commands.
  280.     //----------------------------------------------------------------------
  281.     case IDM_FILE_EXIT:
  282.       // The user commands us to exit this application so we tell the
  283.       // Main window to close itself.
  284.       ::PostMessage(m_hWnd, WM_CLOSE, 0, 0);
  285.       break;
  286.  
  287.     //----------------------------------------------------------------------
  288.     // Handle Sound Menu Commands.
  289.     //----------------------------------------------------------------------
  290.     case IDM_SOUND_BALL_ON:
  291.       // Connect the client's sound event Ball Sink to the COBall event
  292.       // source in the server. Set the proper checkmark indicator on
  293.       // the menu selections as well.
  294.       {
  295.         HRESULT hr;
  296.         HMENU hMenu  = ::GetMenu(m_hWnd);
  297.         BOOL bConnected = ::GetMenuState(
  298.                               hMenu,
  299.                               IDM_SOUND_BALL_ON,
  300.                               MF_BYCOMMAND) & MF_CHECKED;
  301.         if (!bConnected)
  302.         {
  303.           hr = m_pGuiBall->ConnectBallSink();
  304.           if (SUCCEEDED(hr))
  305.           {
  306.             ::CheckMenuItem(
  307.                 hMenu,
  308.                 IDM_SOUND_BALL_ON,
  309.                 MF_BYCOMMAND | MF_CHECKED);
  310.             ::CheckMenuItem(
  311.                 hMenu,
  312.                 IDM_SOUND_BALL_OFF,
  313.                 MF_BYCOMMAND | MF_UNCHECKED);
  314.           }
  315.         }
  316.       }
  317.       break;
  318.     case IDM_SOUND_BALL_OFF:
  319.       // Disconnect the client's sound event Ball Sink from the COBall
  320.       // event source in the server. Set the proper checkmark indicator on
  321.       // the menu selections as well.
  322.       {
  323.         HRESULT hr;
  324.         HMENU hMenu  = ::GetMenu(m_hWnd);
  325.         BOOL bDisConnected = ::GetMenuState(
  326.                                 hMenu,
  327.                                 IDM_SOUND_BALL_OFF,
  328.                                 MF_BYCOMMAND) & MF_CHECKED;
  329.         if (!bDisConnected)
  330.         {
  331.           hr = m_pGuiBall->DisconnectBallSink();
  332.           if (SUCCEEDED(hr))
  333.           {
  334.             ::CheckMenuItem(
  335.                 hMenu,
  336.                 IDM_SOUND_BALL_ON,
  337.                 MF_BYCOMMAND | MF_UNCHECKED);
  338.             ::CheckMenuItem(
  339.                 hMenu,
  340.                 IDM_SOUND_BALL_OFF,
  341.                 MF_BYCOMMAND | MF_CHECKED);
  342.           }
  343.         }
  344.       }
  345.       break;
  346.  
  347.     //----------------------------------------------------------------------
  348.     // Handle Help Menu Commands.
  349.     //----------------------------------------------------------------------
  350.     case IDM_HELP_CONTENTS:
  351.       // We have some stubbed support here for bringing up the online
  352.       //   Help for this application.
  353.       if (::FileExist(m_szHelpFile))
  354.         ::WinHelp(m_hWnd, m_szHelpFile, HELP_CONTEXT, IDH_CONTENTS);
  355.       else
  356.         m_pMsgBox->ErrorID(IDS_NOHELPFILE);
  357.       break;
  358.     case IDM_HELP_TUTORIAL:
  359.       // Call the APPUTIL utility function, ReadTutorial, to Browse the HTML
  360.       // tutorial narrative file associated with this tutorial code sample.
  361.       ReadTutorial(m_hInst, m_hWnd, TEXT(HTML_FILE_EXT));
  362.       break;
  363.     case IDM_HELP_TUTSERVER:
  364.       // Call the APPUTIL utility function, ReadTutorial, to Browse the HTML
  365.       // tutorial narrative file associated with the COM server.
  366.       ReadTutorial(m_hInst, m_hWnd, TEXT(SERVER_TUTFILE_STR));
  367.       break;
  368.     case IDM_HELP_READSOURCE:
  369.       // Call the APPUTIL utility function ReadSource to allow the
  370.       // user to open and read any of the source files of CONCLIEN.
  371.       ReadSource(m_hWnd, &m_ofnFile);
  372.       break;
  373.     case IDM_HELP_ABOUT:
  374.       {
  375.         CAboutBox dlgAboutBox;
  376.  
  377.         // Show the standard About Box dialog for this EXE by telling the
  378.         // dialog C++ object to show itself by invoking its ShowDialog
  379.         // method.  Pass it this EXE instance and the parent window handle.
  380.         // Use a dialog resource ID for the dialog template stored in
  381.         // this EXE module's resources.
  382.         dlgAboutBox.ShowDialog(
  383.           m_hInst,
  384.           MAKEINTRESOURCE(IDM_HELP_ABOUT),
  385.           m_hWnd);
  386.       }
  387.       break;
  388.  
  389.     default:
  390.       // Defer all messages NOT handled here to the Default Window Proc.
  391.       lResult = ::DefWindowProc(m_hWnd, WM_COMMAND, wParam, lParam);
  392.       break;
  393.   }
  394.  
  395.   return(lResult);
  396. }
  397.  
  398.  
  399. /*M+M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M+++M
  400.   Method:   CMainWindow::WindowProc
  401.  
  402.   Summary:  Main window procedure for this window object.  See CVirWindow
  403.             in the APPUTIL library (APPUTIL.CPP) for details on how this
  404.             method gets called by the global WindowProc.
  405.  
  406.   Args:     UINT uMsg,
  407.               Windows message that is "sent" to this window.
  408.             WPARAM wParam,
  409.               First message parameter (word sized).
  410.             LPARAM lParam)
  411.               Second message parameter (long sized).
  412.  
  413.   Modifies: ...
  414.  
  415.   Returns:  LRESULT
  416.               Standard Windows WindowProc return value.
  417. M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M-M*/
  418. LRESULT CMainWindow::WindowProc(
  419.           UINT uMsg,
  420.           WPARAM wParam,
  421.           LPARAM lParam)
  422. {
  423.   LRESULT lResult = FALSE;
  424.  
  425.   switch (uMsg)
  426.   {
  427.     case WM_CREATE:
  428.       break;
  429.  
  430.     case WM_MEASUREITEM:
  431.       // Get setup for painting text in this window.
  432.       {
  433.         LPMEASUREITEMSTRUCT lpmis = (LPMEASUREITEMSTRUCT) lParam;
  434.         lpmis->itemHeight = m_tm.tmHeight + m_tm.tmExternalLeading;
  435.         lpmis->itemWidth = m_wWidth;
  436.         lResult = TRUE;
  437.       }
  438.  
  439.     case WM_SIZE:
  440.       // Handle a resize of this window.
  441.       // Clear window and Restart the ball from upper left.
  442.       m_wWidth = LOWORD(lParam);
  443.       m_wHeight = HIWORD(lParam);
  444.       m_pGuiBall->Restart();
  445.       // Turn off sounds if app is minimized.
  446.       if (SIZE_MINIMIZED == wParam)
  447.         DoMenu(IDM_SOUND_BALL_OFF, 0);
  448.       break;
  449.  
  450.     case WM_TIMER:
  451.       // This is our timed attempt to continuously move & paint the ball.
  452.       // In this app PaintBall both moves and paints the ball.
  453.       m_pGuiBall->PaintBall();
  454.       break;
  455.  
  456.     case WM_COMMAND:
  457.       // Dispatch and handle any Menu command messages received.
  458.       lResult = DoMenu(wParam, lParam);
  459.       break;
  460.  
  461.     case WM_CHAR:
  462.       if (wParam == 0x1b)
  463.       {
  464.         // Exit this app if user hits ESC key.
  465.         PostMessage(m_hWnd,WM_CLOSE,0,0);
  466.         break;
  467.       }
  468.     case WM_LBUTTONUP:
  469.     case WM_PAINT:
  470.       // If something major happened or user clicks or hits key then
  471.       // repaint the whole window.
  472.       m_pGuiBall->PaintWin();
  473.       break;
  474.  
  475.     case WM_CLOSE:
  476.       // The user selected Close on the main window's System menu
  477.       // or Exit on the File menu.
  478.     case WM_QUIT:
  479.       // If the app is being quit then close any associated help windows.
  480.       // ::WinHelp(m_hWnd, m_szHelpFile, HELP_QUIT, 0);
  481.     default:
  482.       // Defer all messages NOT handled here to the Default Window Proc.
  483.       lResult = ::DefWindowProc(m_hWnd, uMsg, wParam, lParam);
  484.       break;
  485.   }
  486.  
  487.   return(lResult);
  488. }
  489.  
  490.  
  491. /*F+F++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  492.   Function: UnicodeOk
  493.  
  494.   Summary:  Checks if the platform will handle unicode versions of
  495.             Win32 string API calls.
  496.  
  497.   Args:     void
  498.  
  499.   Returns:  BOOL
  500.               TRUE if unicode support; FALSE if not.
  501. ------------------------------------------------------------------------F-F*/
  502. BOOL UnicodeOk(void)
  503. {
  504.   BOOL bOk = TRUE;
  505.   TCHAR szUserName[MAX_STRING_LENGTH];
  506.   DWORD dwSize = MAX_STRING_LENGTH;
  507.  
  508.   if (!GetUserName(szUserName, &dwSize))
  509.     bOk = ERROR_CALL_NOT_IMPLEMENTED == GetLastError() ? FALSE : TRUE;
  510.  
  511.   return bOk;
  512. }
  513.  
  514.  
  515. /*F+F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F
  516.   Function: InitApplication
  517.  
  518.   Summary:  Initializes the application and registers its main window
  519.             class. InitApplication is called only once (in WinMain).
  520.  
  521.   Args:     HINSTANCE hInstance)
  522.               Handle to the first instance of the application.
  523.  
  524.   Returns:  BOOL.
  525.               TRUE if success.
  526.               FALSE if fail.
  527. F---F---F---F---F---F---F---F---F---F---F---F---F---F---F---F---F---F---F-F*/
  528. BOOL InitApplication(
  529.        HINSTANCE hInstance)
  530. {
  531.   BOOL bOK;
  532.   // The window class for all instances of the main frame window.
  533.   WNDCLASSEX wcf;
  534.  
  535.   // Assign the appropriate values for this main frame window class.
  536.   wcf.cbSize        = sizeof(WNDCLASSEX);
  537.   wcf.style         = CS_HREDRAW | CS_VREDRAW; // Class style(s).
  538.   wcf.lpfnWndProc   = &WindowProc;             // Global Window Procedure for
  539.                                                // all windows of this class.
  540.   wcf.cbClsExtra    = 0;                       // No per-class extra data.
  541.   wcf.cbWndExtra    = 0;                       // No per-window extra data.
  542.   wcf.hInstance     = hInstance;               // Owner of this class.
  543.   wcf.hbrBackground = GetStockObject(WHITE_BRUSH);      // Default color.
  544.   wcf.lpszMenuName  = TEXT(MAIN_WINDOW_CLASS_MENU_STR); // Menu name from .RC.
  545.   wcf.lpszClassName = TEXT(MAIN_WINDOW_CLASS_NAME_STR); // Class name from .RC.
  546.   wcf.hCursor       = LoadCursor(NULL, IDC_ARROW);      // Cursor.
  547.   wcf.hIcon         = LoadIcon(                         // Icon name from .RC.
  548.                         hInstance,
  549.                         TEXT("AppIcon"));
  550.   wcf.hIconSm       = LoadImage(                        // Load small icon.
  551.                         hInstance,
  552.                         TEXT("AppIcon"),
  553.                         IMAGE_ICON,
  554.                         16, 16,
  555.                         0);
  556.  
  557.   // Register the window class and return FALSE if unsuccesful.
  558.   bOK = RegisterClassEx(&wcf);
  559.   if (!bOK)
  560.   {
  561.     // If RegisterClassEx() didn't work then try RegisterClass().
  562.     bOK = RegisterClass((LPWNDCLASS)&wcf.style);
  563.   }
  564.  
  565.   return (bOK);
  566. }
  567.  
  568.  
  569. /*F+F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F+++F
  570.   Function: WinMain
  571.  
  572.   Summary:  The Windows main entry point function for this application.
  573.             Initializes the application, the COM Libraries, and starts
  574.             the main application message loop.
  575.  
  576.   Args:     HINSTANCE hInstance,
  577.               Instance handle; a new one for each invocation of this app.
  578.             HINSTANCE hPrevInstance,
  579.               Instance handle of the previous instance. NULL in Win32.
  580.             LPSTR lpCmdLine,
  581.               Windows passes a pointer to the application's
  582.               invocation command line.
  583.             int nCmdShow)
  584.               Bits telling the show state of the application.
  585.  
  586.   Returns:  int
  587.               msg.wParam (upon exit of message loop).
  588.               FALSE if this instance couldn't initialize and run.
  589. F---F---F---F---F---F---F---F---F---F---F---F---F---F---F---F---F---F---F-F*/
  590. extern "C" int PASCAL WinMain(
  591.                         HINSTANCE hInstance,
  592.                         HINSTANCE hPrevInstance,
  593.                         LPSTR lpCmdLine,
  594.                         int nCmdShow)
  595. {
  596.   CMainWindow* pWin = NULL;
  597.   MSG msg;
  598.   HACCEL hAccel;
  599.   int iRun = FALSE;
  600.  
  601.   // If we were compiled for UNICODE and the platform seems OK with this
  602.   // then proceed.  Else we error and exit the app.
  603.   if (UnicodeOk())
  604.   {
  605.     // Call to initialize the COM Library.  Use the SUCCEEDED macro
  606.     // to detect success.  If fail then exit app with error message.
  607.     // Tell COM that this client process and all subordinate threads
  608.     // will live in a single-threaded apartment world.
  609.     if (SUCCEEDED(CoInitialize(NULL)))
  610.     {
  611.       // If we succeeded in initializing the COM Library we proceed to
  612.       // initialize the application.  If we can't init the application
  613.       // then we signal shut down with an error message exit.
  614.       iRun = InitApplication(hInstance);
  615.       if (iRun)
  616.       {
  617.         // Assume we'll set iRun to TRUE when initialization is done.
  618.         iRun = FALSE;
  619.         // We are still go for running so we try to create a nifty new
  620.         // CMainWindow object for this app instance.
  621.         pWin = new CMainWindow;
  622.         if (NULL != pWin)
  623.         {
  624.           // Now we initialize an instance of the new CMainWindow.
  625.           // This includes creating the main window.  Note: if
  626.           // InitInstance fails then it would have already deleted
  627.           // pWin so we wouldn't need to delete it here.
  628.           if (pWin->InitInstance(hInstance, nCmdShow))
  629.           {
  630.             // Load the keyboard accelerators from the resources.
  631.             hAccel = LoadAccelerators(hInstance, TEXT("AppAccel"));
  632.             if (NULL != hAccel)
  633.             {
  634.               // Signal App Initialization is successfully done.
  635.               iRun = TRUE;
  636.             }
  637.           }
  638.         }
  639.       }
  640.  
  641.       if (iRun)
  642.       {
  643.         // If we initialized the app instance properly then we are still
  644.         // go for running.  We then start up the main message pump for
  645.         // the application.
  646.         while (GetMessage(&msg, NULL, 0, 0))
  647.         {
  648.           if (!TranslateAccelerator(pWin->GetHwnd(), hAccel, &msg))
  649.           {
  650.             TranslateMessage(&msg);
  651.             DispatchMessage(&msg);
  652.           }
  653.         }
  654.  
  655.         // We also ask COM to unload any unused COM Servers, including our
  656.         // friend, CONSERVE.
  657.         CoFreeUnusedLibraries();
  658.  
  659.         // We'll pass to Windows the reason why we exited the message loop.
  660.         iRun = msg.wParam;
  661.       }
  662.       else
  663.       {
  664.         // We failed to initialize the application--issue an error
  665.         // messagebox.
  666.         TCHAR szMsg[MAX_STRING_LENGTH];
  667.  
  668.         // Load the error message string from the resources.
  669.         if (LoadString(
  670.               hInstance,
  671.               IDS_APPINITFAILED,
  672.               szMsg,
  673.               MAX_STRING_LENGTH))
  674.         {
  675.           // Put up error message box saying that application couldn't be
  676.           // initialized.  Parent window is desktop (ie, NULL).
  677.           MessageBox(
  678.             NULL,
  679.             szMsg,
  680.             TEXT(ERROR_TITLE_STR),
  681.             MB_OK | MB_ICONEXCLAMATION);
  682.         }
  683.         DELETE_POINTER(pWin);
  684.       }
  685.  
  686.       // We're exiting this app (either normally or by init failure) so
  687.       // shut down the COM Library.
  688.       CoUninitialize();
  689.     }
  690.     else
  691.     {
  692.       // We failed to Initialize the COM Library.
  693.       TCHAR szMsg[MAX_STRING_LENGTH];
  694.  
  695.       // Load the error message string from the resources.
  696.       if (LoadString(
  697.             hInstance,
  698.             IDS_COMINITFAILED,
  699.             szMsg,
  700.             MAX_STRING_LENGTH))
  701.       {
  702.         // Put up error message box saying that COM Library
  703.         // couldn't be initialized.  Parent window is desktop (ie, NULL).
  704.         // And exit the failed application.
  705.         MessageBox(
  706.           NULL,
  707.           szMsg,
  708.           TEXT(ERROR_TITLE_STR),
  709.           MB_OK | MB_ICONEXCLAMATION);
  710.       }
  711.     }
  712.   }
  713.   else
  714.   {
  715.     // If we were compiled for UNICODE but the platform has problems with
  716.     // this then indicate an error and exit the app immediately.
  717.     CHAR szMsg[MAX_STRING_LENGTH];
  718.  
  719.     if (LoadStringA(
  720.           hInstance,
  721.           IDS_NOUNICODE,
  722.           szMsg,
  723.           MAX_STRING_LENGTH))
  724.     {
  725.       MessageBoxA(
  726.         NULL,
  727.         szMsg,
  728.         ERROR_TITLE_STR,
  729.         MB_OK | MB_ICONEXCLAMATION);
  730.     }
  731.   }
  732.  
  733.   return iRun;
  734. }
  735.