home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / MEMSZ210.ZIP / MEMSIZE.CC < prev    next >
C/C++ Source or Header  |  1993-07-28  |  111KB  |  3,281 lines
  1. /***************************************************************** MEMSIZE.CC
  2.  *                                        *
  3.  * System Resources Monitor                            *
  4.  *                                        *
  5.  * (C) Copyright 1991-1993 by Richard W. Papo.                    *
  6.  *                                        *
  7.  * This is 'FreeWare'.    As such, it may be copied and distributed        *
  8.  * freely.  If you want to use part of it in your own program, please        *
  9.  * give credit where credit is due.  If you want to change the            *
  10.  * program, please refer the change request to me or send me the        *
  11.  * modified source code.  I can be reached at CompuServe 72607,3111.        *
  12.  *                                        *
  13.  ****************************************************************************/
  14.  
  15. //
  16. // Things to do:
  17. //
  18. //   (1) Validate memory statistics against OS20MEMU.
  19. //
  20. //   (2) Provide an item to serve as a button to cause a secondary
  21. //     drive status window to be displayed.
  22. //
  23.  
  24. #define INCL_BASE
  25. #define INCL_PM
  26. #include <os2.h>
  27.  
  28. #include <stdio.h>
  29. #include <stdlib.h>
  30. #include <string.h>
  31.  
  32. #include "debug.h"
  33. #include "support.h"
  34.  
  35. #include "about.h"
  36. #include "config.h"
  37. #include "process.h"
  38. #include "profile.h"
  39. #include "restring.h"
  40.  
  41. #include "items.h"
  42.  
  43. #include "memsize.h"
  44.  
  45. #define STATIC static
  46.  
  47.  
  48. /****************************************************************************
  49.  *                                        *
  50.  *             Definitions & Declarations                *
  51.  *                                        *
  52.  ****************************************************************************/
  53.  
  54.   // Constants
  55.  
  56. #define PROGRAM_NAME       "MEMSIZE"
  57. #define CLASS_NAME        PROGRAM_NAME
  58.  
  59. #define WM_REFRESH        (WM_USER)
  60.  
  61. #define MAX_DRIVES      (26)
  62. #define DRIVE_ERROR      (0xFFFFFFFFL)
  63.  
  64. enum
  65. {
  66.   ITEM_CLOCK,
  67.   ITEM_ELAPSEDTIME,
  68.   ITEM_MEMORYFREE,
  69.   ITEM_SWAPFILESIZE,
  70.   ITEM_SWAPDISKFREE,
  71.   ITEM_SPOOLFILESIZE,
  72.   ITEM_CPULOAD,
  73.   ITEM_TASKCOUNT,
  74.   ITEM_BASE_COUNT
  75. } ;
  76.  
  77.  
  78.   // Data Types
  79.  
  80. typedef struct          // Parameters saved to system.
  81. {
  82.   // The Display Item List - - -
  83.   Item         *Items [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  84.   int          ItemCount ;
  85.  
  86.   // Data required for the display item objects to function.
  87.   ULONG       IdleCount ;
  88.   ULONG       MaxCount ;
  89.   BYTE          SwapPath [_MAX_PATH] ;
  90.   ULONG       MinFree ;
  91.   PBYTE       SpoolPath ;
  92.   COUNTRYINFO      CountryInfo ;
  93.   ResourceString *Day ;
  94.   ResourceString *Days ;
  95.   ResourceString *DriveError ;
  96.  
  97.   // Window size and location
  98.   SWP     Position ;
  99.   BOOL     fPosition ;
  100.  
  101.   // User Options
  102.   BOOL     HideControls ;
  103.   BOOL     fHideControls ;
  104.  
  105.   BOOL     Float ;
  106.   BOOL     fFloat ;
  107.  
  108.   USHORT TimerInterval ;
  109.   BOOL     fTimerInterval ;
  110.  
  111.   // Presentation Parameters
  112.   BYTE     FontNameSize [80] ;
  113.   BOOL     fFontNameSize ;
  114.  
  115.   COLOR  BackColor ;
  116.   BOOL     fBackColor ;
  117.  
  118.   COLOR  TextColor ;
  119.   BOOL     fTextColor ;
  120. }
  121. PROFILE, *PPROFILE ;
  122.  
  123. typedef struct        // Data structure for window.
  124. {
  125.   HAB         Anchor ;
  126.   HMODULE     Library ;
  127.   HINI           ProfileHandle ;
  128.  
  129.   ULONG      IdleCounter ;
  130.   TID         IdleLoopTID ;
  131.   TID         MonitorLoopTID ;
  132.  
  133.   PROFILE     Profile ;
  134.  
  135.   HWND           hwndTitleBar ;
  136.   HWND           hwndSysMenu ;
  137.   HWND         hwndMinMax ;
  138.  
  139.   ULONG      Drives ;
  140.  
  141.   long         Width ;
  142.   long         Height ;
  143.  
  144. }
  145. DATA, *PDATA ;
  146.  
  147. typedef struct
  148. {
  149.   HAB Anchor ;
  150.   HMODULE Library ;
  151.   HINI ProfileHandle ;
  152. }
  153. PARMS, *PPARMS ;
  154.  
  155. typedef struct
  156. {
  157.   volatile PULONG Counter ;
  158.   PUSHORT Interval ;
  159.   HWND Owner ;
  160. }
  161. MONITOR_PARMS, *PMONITOR_PARMS ;
  162.  
  163.  
  164.   // Function Prototypes
  165.  
  166. extern INT main ( INT argc, PCHAR argv[] ) ;
  167.  
  168. STATIC MRESULT EXPENTRY MessageProcessor
  169. (
  170.   HWND hwnd,
  171.   USHORT msg,
  172.   MPARAM mp1,
  173.   MPARAM mp2
  174. ) ;
  175.  
  176. STATIC METHODFUNCTION Create ;
  177. STATIC METHODFUNCTION Destroy ;
  178. STATIC METHODFUNCTION Size ;
  179. STATIC METHODFUNCTION SaveApplication ;
  180. STATIC METHODFUNCTION Paint ;
  181. STATIC METHODFUNCTION Command ;
  182. STATIC METHODFUNCTION ResetDefaults ;
  183. STATIC METHODFUNCTION HideControlsCmd ;
  184. STATIC METHODFUNCTION Configure ;
  185. STATIC METHODFUNCTION About ;
  186. STATIC METHODFUNCTION ButtonDown ;
  187. STATIC METHODFUNCTION ButtonDblClick ;
  188. STATIC METHODFUNCTION PresParamChanged ;
  189. STATIC METHODFUNCTION SysColorChange ;
  190. STATIC METHODFUNCTION QueryKeysHelp ;
  191. STATIC METHODFUNCTION HelpError ;
  192. STATIC METHODFUNCTION ExtHelpUndefined ;
  193. STATIC METHODFUNCTION HelpSubitemNotFound ;
  194. STATIC METHODFUNCTION Refresh ;
  195.  
  196. STATIC int GetProfile ( HAB Anchor, HMODULE Library, HINI ProfileHandle, PPROFILE Profile ) ;
  197. STATIC VOID PutProfile ( HINI ProfileHandle, PPROFILE Profile ) ;
  198.  
  199. STATIC PSZ ScanSystemConfig ( HAB Anchor, PSZ Keyword ) ;
  200.  
  201. STATIC void ResizeWindow ( HWND hwnd, PPROFILE Profile ) ;
  202.  
  203. STATIC void HideControls
  204. (
  205.   BOOL fHide,
  206.   HWND hwndFrame,
  207.   HWND hwndSysMenu,
  208.   HWND hwndTitleBar,
  209.   HWND hwndMinMax
  210. ) ;
  211.  
  212. STATIC void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All ) ;
  213.  
  214. STATIC VOID MonitorLoopThread ( PMONITOR_PARMS Parms ) ;
  215.  
  216. STATIC VOID UpdateDriveList
  217. (
  218.   HAB Anchor,
  219.   HMODULE Library,
  220.   HINI ProfileHandle,
  221.   PPROFILE Profile,
  222.   ULONG OldDrives,
  223.   ULONG NewDrives
  224. ) ;
  225.  
  226. STATIC BOOL CheckDrive ( USHORT Drive, PBYTE FileSystem ) ;
  227.  
  228. STATIC ULONG CalibrateLoadMeter ( VOID ) ;
  229.  
  230. STATIC VOID CounterThread ( PULONG Counter ) ;
  231.  
  232. STATIC HINI OpenProfile ( PSZ Name, HAB Anchor, HMODULE Library, HWND HelpInstance ) ;
  233.  
  234.  
  235. /****************************************************************************
  236.  *                                        *
  237.  *    Program Mainline                            *
  238.  *                                        *
  239.  ****************************************************************************/
  240.  
  241. extern INT main ( INT argc, PCHAR argv[] )
  242. {
  243.  /***************************************************************************
  244.   * Initialize the process.                            *
  245.   ***************************************************************************/
  246.  
  247.   Process Proc ;
  248.  
  249.  /***************************************************************************
  250.   * Now WIN and GPI calls will work.  Open the language DLL.            *
  251.   ***************************************************************************/
  252.  
  253.   HMODULE Library ;
  254.   if ( DosLoadModule ( NULL, 0, (PSZ)PROGRAM_NAME, &Library ) )
  255.   {
  256.     Debug ( HWND_DESKTOP, "ERROR: Unable to load " PROGRAM_NAME ".DLL." ) ;
  257.     DosExit ( EXIT_PROCESS, 1 ) ;
  258.   }
  259.  
  260.  /***************************************************************************
  261.   * Get the program title.                                        *
  262.   ***************************************************************************/
  263.  
  264.   ResourceString Title ( Library, IDS_TITLE ) ;
  265.  
  266.  /***************************************************************************
  267.   * Decipher command-line parameters.                        *
  268.   ***************************************************************************/
  269.  
  270.   BOOL Reset = FALSE ;
  271.  
  272.   ResourceString ResetCommand ( Library, IDS_PARMS_RESET ) ;
  273.  
  274.   while ( --argc )
  275.   {
  276.     argv ++ ;
  277.  
  278.     WinUpper ( Proc.QueryAnchor(), NULL, NULL, (PSZ)*argv ) ;
  279.  
  280.     if ( *argv[0] == '?' )
  281.     {
  282.       ResourceString Message ( Library, IDS_PARAMETERLIST ) ;
  283.  
  284.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  285.     Title.Ptr(), 0, MB_ENTER | MB_NOICON ) ;
  286.  
  287.       DosExit ( EXIT_PROCESS, 1 ) ;
  288.     }
  289.  
  290.     if ( !strcmp ( *argv, (PCHAR)ResetCommand.Ptr() ) )
  291.     {
  292.       Reset = TRUE ;
  293.       continue ;
  294.     }
  295.  
  296.     {
  297.       ResourceString Format ( Library, IDS_ERROR_INVALIDPARM ) ;
  298.  
  299.       BYTE Message [200] ;
  300.       sprintf ( (PCHAR)Message, (PCHAR)Format.Ptr(), *argv ) ;
  301.  
  302.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  303.     Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  304.  
  305.       DosExit ( EXIT_PROCESS, 1 ) ;
  306.     }
  307.   }
  308.  
  309.  /***************************************************************************
  310.   * Create the help instance.                            *
  311.   ***************************************************************************/
  312.  
  313.   HELPINIT HelpInit =
  314.   {
  315.     sizeof ( HELPINIT ),
  316.     0L,
  317.     NULL,
  318.     MAKEP ( 0xFFFF, ID_MAIN ),
  319.     0,
  320.     0,
  321.     0,
  322.     0,
  323.     NULL,
  324.     CMIC_HIDE_PANEL_ID,
  325.     (PSZ) ( PROGRAM_NAME ".HLP" )
  326.   } ;
  327.  
  328.   ResourceString HelpTitle ( Library, IDS_HELPTITLE ) ;
  329.  
  330.   HelpInit.pszHelpWindowTitle = HelpTitle.Ptr() ;
  331.  
  332.   HWND hwndHelp = WinCreateHelpInstance ( Proc.QueryAnchor(), &HelpInit ) ;
  333.  
  334.   if ( hwndHelp == NULL )
  335.   {
  336.     ResourceString Message ( Library, IDS_ERROR_WINCREATEHELPINSTANCE ) ;
  337.  
  338.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  339.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  340.   }
  341.  
  342.  /***************************************************************************
  343.   * Open/create the profile file.                                       *
  344.   ***************************************************************************/
  345.  
  346.   HINI ProfileHandle = OpenProfile ( PSZ(PROGRAM_NAME),
  347.     Proc.QueryAnchor(), Library, hwndHelp ) ;
  348.  
  349.   if ( ProfileHandle == NULL )
  350.   {
  351.     ResourceString Message ( Library, IDS_ERROR_PRFOPENPROFILE ) ;
  352.  
  353.     Log ( "%s\r\n", Message.Ptr() ) ;
  354.  
  355.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  356.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  357.  
  358.     DosFreeModule ( Library ) ;
  359.     DosExit ( EXIT_PROCESS, 1 ) ;
  360.   }
  361.  
  362.  /***************************************************************************
  363.   * If we're going to reset the program's profile, do it now.               *
  364.   ***************************************************************************/
  365.  
  366.   if ( Reset )
  367.   {
  368.     PrfWriteProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  369.   }
  370.  
  371.  /***************************************************************************
  372.   * Create the frame window.                            *
  373.   ***************************************************************************/
  374.  
  375.   #pragma pack(2)
  376.   struct
  377.   {
  378.     USHORT Filler ;
  379.     USHORT cb ;
  380.     ULONG  flCreateFlags ;
  381.     USHORT hmodResources ;
  382.     USHORT idResources ;
  383.   }
  384.   fcdata ;
  385.   #pragma pack()
  386.  
  387.   fcdata.cb = sizeof(fcdata) - sizeof(fcdata.Filler) ;
  388.   fcdata.flCreateFlags =
  389.     FCF_TITLEBAR | FCF_SYSMENU | FCF_BORDER |
  390.     FCF_ICON | FCF_MINBUTTON | FCF_NOBYTEALIGN | FCF_ACCELTABLE ;
  391.   fcdata.hmodResources = 0 ;
  392.   fcdata.idResources = ID_MAIN ;
  393.  
  394.   HWND hwndFrame = WinCreateWindow
  395.   (
  396.     HWND_DESKTOP,
  397.     WC_FRAME,
  398.     Title.Ptr(),
  399.     0,
  400.     0, 0, 0, 0,
  401.     HWND_DESKTOP,
  402.     HWND_TOP,
  403.     ID_MAIN,
  404.     &fcdata.cb,
  405.     NULL
  406.   ) ;
  407.  
  408.   if ( hwndFrame == NULL )
  409.   {
  410.     ResourceString Message ( Library, IDS_ERROR_WINCREATEFRAME ) ;
  411.  
  412.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  413.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  414.  
  415.     PrfCloseProfile ( ProfileHandle ) ;
  416.     DosFreeModule ( Library ) ;
  417.     DosExit ( EXIT_PROCESS, 1 ) ;
  418.   }
  419.  
  420.  /***************************************************************************
  421.   * Associate the help instance with the frame window.                *
  422.   ***************************************************************************/
  423.  
  424.   if ( hwndHelp )
  425.   {
  426.     WinAssociateHelpInstance ( hwndHelp, hwndFrame ) ;
  427.   }
  428.  
  429.  /***************************************************************************
  430.   * Register the window class.                            *
  431.   ***************************************************************************/
  432.  
  433.   if ( NOT WinRegisterClass ( Proc.QueryAnchor(), (PSZ)CLASS_NAME,
  434.     MessageProcessor, CS_MOVENOTIFY, sizeof(PVOID) ) )
  435.   {
  436.     ResourceString Format ( Library, IDS_ERROR_WINREGISTERCLASS ) ;
  437.  
  438.     BYTE Message [200] ;
  439.     sprintf ( PCHAR(Message), PCHAR(Format.Ptr()), CLASS_NAME ) ;
  440.  
  441.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  442.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  443.  
  444.     PrfCloseProfile ( ProfileHandle ) ;
  445.     DosFreeModule ( Library ) ;
  446.     DosExit ( EXIT_PROCESS, 1 ) ;
  447.   }
  448.  
  449.  /***************************************************************************
  450.   * Create client window.  If this fails, destroy frame and return.        *
  451.   ***************************************************************************/
  452.  
  453.   PARMS Parms ;
  454.   Parms.Anchor = Proc.QueryAnchor() ;
  455.   Parms.Library = Library ;
  456.   Parms.ProfileHandle = ProfileHandle ;
  457.  
  458.   HWND hwndClient = WinCreateWindow
  459.   (
  460.     hwndFrame,
  461.     (PSZ)CLASS_NAME,
  462.     (PSZ)"",
  463.     0,
  464.     0, 0, 0, 0,
  465.     hwndFrame,
  466.     HWND_BOTTOM,
  467.     FID_CLIENT,
  468.     &Parms,
  469.     NULL
  470.   ) ;
  471.  
  472.   if ( hwndClient == NULL )
  473.   {
  474.     ResourceString Message ( Library, IDS_ERROR_WINCREATEWINDOW ) ;
  475.  
  476.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  477.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  478.  
  479.     WinDestroyWindow ( hwndFrame ) ;
  480.     if ( hwndHelp )
  481.     {
  482.       WinDestroyHelpInstance ( hwndHelp ) ;
  483.     }
  484.     PrfCloseProfile ( ProfileHandle ) ;
  485.     DosFreeModule ( Library ) ;
  486.     DosExit ( EXIT_PROCESS, 1 ) ;
  487.   }
  488.  
  489.  /***************************************************************************
  490.   * Wait for and process messages to the window's queue.  Terminate         *
  491.   *   when the WM_QUIT message is received.                    *
  492.   ***************************************************************************/
  493.  
  494.   QMSG QueueMessage ;
  495.   while ( WinGetMsg ( Proc.QueryAnchor(), &QueueMessage, NULL, 0, 0 ) )
  496.   {
  497.     WinDispatchMsg ( Proc.QueryAnchor(), &QueueMessage ) ;
  498.   }
  499.  
  500.  /***************************************************************************
  501.   * Discard all that was requested of the system and terminate.         *
  502.   ***************************************************************************/
  503.  
  504.   WinDestroyWindow ( hwndFrame ) ;
  505.  
  506.   if ( hwndHelp )
  507.   {
  508.     WinDestroyHelpInstance ( hwndHelp ) ;
  509.   }
  510.  
  511.   PrfCloseProfile ( ProfileHandle ) ;
  512.  
  513.   DosFreeModule ( Library ) ;
  514.  
  515.   DosExit ( EXIT_PROCESS, 0 ) ;
  516. }
  517.  
  518. /****************************************************************************
  519.  *                                        *
  520.  *    Window Message Processor                        *
  521.  *                                        *
  522.  ****************************************************************************/
  523.  
  524. STATIC MRESULT EXPENTRY MessageProcessor
  525. (
  526.   HWND hwnd,
  527.   USHORT msg,
  528.   MPARAM mp1,
  529.   MPARAM mp2
  530. )
  531. {
  532.  /***************************************************************************
  533.   * Dispatch the message according to the method table and return the        *
  534.   *   result.  Any messages not defined above get handled by the system     *
  535.   *   default window processor.                         *
  536.   ***************************************************************************/
  537.  
  538.   static METHOD Methods [] =
  539.   {
  540.     { WM_CREATE,        Create            },
  541.     { WM_DESTROY,        Destroy         },
  542.     { WM_SIZE,            Size            },
  543.     { WM_MOVE,            Size            },
  544.     { WM_SAVEAPPLICATION,    SaveApplication     },
  545.     { WM_PAINT,         Paint            },
  546.     { WM_BUTTON1DOWN,        ButtonDown        },
  547.     { WM_BUTTON2DOWN,        ButtonDown        },
  548.     { WM_BUTTON1DBLCLK,     ButtonDblClick        },
  549.     { WM_BUTTON2DBLCLK,     ButtonDblClick        },
  550.     { WM_PRESPARAMCHANGED,    PresParamChanged    },
  551.     { WM_SYSCOLORCHANGE,    SysColorChange        },
  552.     { WM_COMMAND,        Command         },
  553.     { HM_QUERY_KEYS_HELP,    QueryKeysHelp        },
  554.     { HM_ERROR,         HelpError        },
  555.     { HM_EXT_HELP_UNDEFINED,    ExtHelpUndefined    },
  556.     { HM_HELPSUBITEM_NOT_FOUND, HelpSubitemNotFound },
  557.     { WM_REFRESH,        Refresh         }
  558.   } ;
  559.  
  560.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefWindowProc ) ) ;
  561. }
  562.  
  563. /****************************************************************************
  564.  *                                        *
  565.  *    Create the main window.                         *
  566.  *                                        *
  567.  ****************************************************************************/
  568.  
  569. STATIC MRESULT APIENTRY Create
  570. (
  571.   HWND hwnd,
  572.   USHORT msg,
  573.   MPARAM mp1,
  574.   MPARAM mp2
  575. )
  576. {
  577.  /***************************************************************************
  578.   * Allocate instance data.                            *
  579.   ***************************************************************************/
  580.  
  581.   PDATA Data = malloc ( sizeof(DATA) ) ;
  582.  
  583.   memset ( Data, 0, sizeof(DATA) ) ;
  584.  
  585.   WinSetWindowPtr ( hwnd, QWL_USER, Data ) ;
  586.  
  587.  /***************************************************************************
  588.   * Grab any parameters from the WM_CREATE message.                *
  589.   ***************************************************************************/
  590.  
  591.   PPARMS Parms = (PPARMS) PVOIDFROMMP ( mp1 ) ;
  592.  
  593.   Data->Anchor = Parms->Anchor ;
  594.   Data->Library = Parms->Library ;
  595.   Data->ProfileHandle = Parms->ProfileHandle ;
  596.  
  597.  /***************************************************************************
  598.   * Get the current drive mask.                         *
  599.   ***************************************************************************/
  600.  
  601.   ULONG Drive ;
  602.   DosQueryCurrentDisk ( &Drive, &Data->Drives ) ;
  603.  
  604.  /***************************************************************************
  605.   * Initialize the global resource strings.                    *
  606.   ***************************************************************************/
  607.  
  608.   Data->Profile.Day       = new ResourceString ( Data->Library, IDS_DAY ) ;
  609.   Data->Profile.Days       = new ResourceString ( Data->Library, IDS_DAYS ) ;
  610.   Data->Profile.DriveError = new ResourceString ( Data->Library, IDS_DRIVEERROR ) ;
  611.  
  612.  /***************************************************************************
  613.   * Get country information.                            *
  614.   ***************************************************************************/
  615.  
  616.   COUNTRYCODE CountryCode ;
  617.   ULONG Count ;
  618.   ULONG Status ;
  619.  
  620.   CountryCode.country = 0 ;
  621.   CountryCode.codepage = 0 ;
  622.  
  623.   Status = DosGetCtryInfo ( sizeof(Data->Profile.CountryInfo), &CountryCode,
  624.     &Data->Profile.CountryInfo, &Count ) ;
  625.   if ( Status )
  626.   {
  627.     BYTE Message [80] ;
  628.     WinLoadMessage ( Data->Anchor, Data->Library, IDS_ERROR_DOSGETCTRYINFO,
  629.       sizeof(Message), Message ) ;
  630.     Debug ( hwnd, (PCHAR)Message, Status ) ;
  631.     Data->Profile.CountryInfo.fsDateFmt = DATEFMT_MM_DD_YY ;
  632.     Data->Profile.CountryInfo.fsTimeFmt = 0 ;
  633.     Data->Profile.CountryInfo.szDateSeparator[0] = '/' ;
  634.     Data->Profile.CountryInfo.szDateSeparator[1] = 0 ;
  635.     Data->Profile.CountryInfo.szTimeSeparator[0] = ':' ;
  636.     Data->Profile.CountryInfo.szTimeSeparator[1] = 0 ;
  637.     Data->Profile.CountryInfo.szThousandsSeparator[0] = ',' ;
  638.     Data->Profile.CountryInfo.szThousandsSeparator[1] = 0 ;
  639.   }
  640.  
  641.  /***************************************************************************
  642.   * Get the SWAPPATH statement from CONFIG.SYS.                 *
  643.   ***************************************************************************/
  644.  
  645.   PSZ Swappath = ScanSystemConfig ( Data->Anchor, (PSZ)"SWAPPATH" ) ;
  646.  
  647.   if ( Swappath == NULL )
  648.   {
  649.     Swappath = (PSZ) "C:\\OS2\\SYSTEM 0" ;
  650.   }
  651.  
  652.   sscanf ( (PCHAR)Swappath, "%s %li",
  653.     Data->Profile.SwapPath, &Data->Profile.MinFree ) ;
  654.  
  655.  /***************************************************************************
  656.   * Find out where the spool work directory is.                 *
  657.   ***************************************************************************/
  658.  
  659.   Data->Profile.SpoolPath = NULL ;
  660.  
  661.   ULONG Size ;
  662.   if ( PrfQueryProfileSize ( HINI_PROFILE, (PSZ)"PM_SPOOLER", (PSZ)"DIR", &Size ) )
  663.   {
  664.     Data->Profile.SpoolPath = malloc ( (int)Size ) ;
  665.  
  666.     if ( Data->Profile.SpoolPath )
  667.     {
  668.       if ( PrfQueryProfileData ( HINI_PROFILE, (PSZ)"PM_SPOOLER", (PSZ)"DIR", Data->Profile.SpoolPath, &Size ) )
  669.       {
  670.     PBYTE p = (PBYTE) strchr ( (PCHAR)Data->Profile.SpoolPath, ';' ) ;
  671.     if ( p )
  672.     {
  673.       *p = 0 ;
  674.     }
  675.       }
  676.       else
  677.       {
  678.     free ( Data->Profile.SpoolPath ) ;
  679.     Data->Profile.SpoolPath = NULL ;
  680.       }
  681.     }
  682.   }
  683.  
  684.  /***************************************************************************
  685.   * Calibrate the old-style load meter, if the high resolution timer's      *
  686.   *   available.                                *
  687.   ***************************************************************************/
  688.  
  689.   Data->Profile.MaxCount = CalibrateLoadMeter ( ) ;
  690.   Data->Profile.MaxCount = (ULONG) max ( 1L, Data->Profile.MaxCount ) ;
  691.  
  692.  /***************************************************************************
  693.   * Get profile data. Try the OS2.INI first, then try for private INI.      *
  694.   *   If obtained from OS2.INI, erase it afterwards.                        *
  695.   ***************************************************************************/
  696.  
  697.   if ( GetProfile ( Data->Anchor, Data->Library, HINI_USERPROFILE, &Data->Profile ) )
  698.   {
  699.     GetProfile ( Data->Anchor, Data->Library, Data->ProfileHandle, &Data->Profile ) ;
  700.   }
  701.   else
  702.   {
  703.     PrfWriteProfileData ( HINI_USERPROFILE, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  704.   }
  705.  
  706.  /***************************************************************************
  707.   * Get the frame handle.                            *
  708.   ***************************************************************************/
  709.  
  710.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  711.  
  712.  /***************************************************************************
  713.   * Get the control window handles.                        *
  714.   ***************************************************************************/
  715.  
  716.   Data->hwndSysMenu  = WinWindowFromID ( hwndFrame, FID_SYSMENU  ) ;
  717.   Data->hwndTitleBar = WinWindowFromID ( hwndFrame, FID_TITLEBAR ) ;
  718.   Data->hwndMinMax   = WinWindowFromID ( hwndFrame, FID_MINMAX   ) ;
  719.  
  720.  /***************************************************************************
  721.   * Add basic extensions to the system menu.                    *
  722.   ***************************************************************************/
  723.  
  724.   static MENUITEM MenuSeparator =
  725.     { MIT_END, MIS_SEPARATOR, 0, 0, NULL, 0 } ;
  726.  
  727.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  728.  
  729.   static MENUITEM MenuItems [] =
  730.   {
  731.     { MIT_END, MIS_TEXT,      0, IDM_SAVE_APPLICATION, NULL, 0 },
  732.     { MIT_END, MIS_TEXT,      0, IDM_RESET_DEFAULTS,   NULL, 0 },
  733.     { MIT_END, MIS_TEXT,      0, IDM_HIDE_CONTROLS,    NULL, 0 },
  734.     { MIT_END, MIS_TEXT,      0, IDM_CONFIGURE,        NULL, 0 },
  735.   } ;
  736.  
  737.   for ( int i=0; i<sizeof(MenuItems)/sizeof(MenuItems[0]); i++ )
  738.   {
  739.     ResourceString MenuText ( Data->Library, i+IDS_SAVE_APPLICATION ) ;
  740.     AddSysMenuItem ( hwndFrame, MenuItems+i, MenuText.Ptr() ) ;
  741.   }
  742.  
  743.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  744.  
  745.  /***************************************************************************
  746.   * Add 'About' to the system menu.                        *
  747.   ***************************************************************************/
  748.  
  749.   static MENUITEM MenuAbout =
  750.     { MIT_END, MIS_TEXT, 0, IDM_ABOUT, NULL, 0 } ;
  751.  
  752.   ResourceString AboutText ( Data->Library, IDS_ABOUT ) ;
  753.  
  754.   AddSysMenuItem ( hwndFrame, &MenuAbout, AboutText.Ptr() ) ;
  755.  
  756.  /***************************************************************************
  757.   * Add 'Help' to the system menu.                        *
  758.   ***************************************************************************/
  759.  
  760.   static MENUITEM MenuHelp =
  761.     { MIT_END, MIS_HELP, 0, 0, NULL, 0 } ;
  762.  
  763.   ResourceString HelpText ( Data->Library, IDS_HELP ) ;
  764.  
  765.   AddSysMenuItem ( hwndFrame, &MenuHelp, HelpText.Ptr() ) ;
  766.  
  767.  /***************************************************************************
  768.   * Start the new load meter.                            *
  769.   ***************************************************************************/
  770.  
  771.   DosCreateThread ( &Data->IdleLoopTID, CounterThread, (ULONG)&Data->IdleCounter, 0, 4096 ) ;
  772.   DosSetPrty ( PRTYS_THREAD, PRTYC_IDLETIME, PRTYD_MINIMUM, Data->IdleLoopTID ) ;
  773.   DosSuspendThread ( Data->IdleLoopTID ) ;
  774.  
  775.   Data->Profile.IdleCount = 0 ;
  776.   Data->IdleCounter = 0 ;
  777.  
  778.   if ( Data->Profile.Items[ITEM_CPULOAD]->QueryFlag() )
  779.   {
  780.     DosResumeThread ( Data->IdleLoopTID ) ;
  781.   }
  782.  
  783.   PMONITOR_PARMS MonitorParms = PMONITOR_PARMS ( malloc ( sizeof(*MonitorParms) ) ) ;
  784.   MonitorParms->Counter = & Data->IdleCounter ;
  785.   MonitorParms->Interval = & Data->Profile.TimerInterval ;
  786.   MonitorParms->Owner = hwnd ;
  787.   DosCreateThread ( &Data->MonitorLoopTID, MonitorLoopThread, (ULONG)MonitorParms, 2, 8192 ) ;
  788.  
  789.  /***************************************************************************
  790.   * Add the program to the system task list.                    *
  791.   ***************************************************************************/
  792.  
  793.   ResourceString Title ( Data->Library, IDS_TITLE ) ;
  794.   Add2TaskList ( hwndFrame, Title.Ptr() ) ;
  795.  
  796.  /***************************************************************************
  797.   * Position & size the window.  For some reason, we must move and size     *
  798.   *   the window to the saved position before applying the resizing        *
  799.   *   function as fine-tuning.    Maybe the positioning request fails if        *
  800.   *   the window has no size?                            *
  801.   ***************************************************************************/
  802.  
  803.   WinSetWindowPos ( hwndFrame, HWND_BOTTOM,
  804.     Data->Profile.Position.x, Data->Profile.Position.y,
  805.     Data->Profile.Position.cx, Data->Profile.Position.cy,
  806.     SWP_SIZE | SWP_MOVE | SWP_ZORDER |
  807.     ( Data->Profile.Position.fl & SWP_MINIMIZE ) |
  808.     ( Data->Profile.Position.fl & SWP_RESTORE ) ) ;
  809.  
  810.   ResizeWindow ( hwnd, &Data->Profile ) ;
  811.  
  812.  /***************************************************************************
  813.   * Hide the controls if so configured.                     *
  814.   ***************************************************************************/
  815.  
  816.   if ( Data->Profile.HideControls
  817.     AND NOT ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  818.   {
  819.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  820.  
  821.     HideControls
  822.     (
  823.       TRUE,
  824.       hwndFrame,
  825.       Data->hwndSysMenu,
  826.       Data->hwndTitleBar,
  827.       Data->hwndMinMax
  828.     ) ;
  829.   }
  830.  
  831.  /***************************************************************************
  832.   * Get the saved presentation parameters and reinstate them.            *
  833.   ***************************************************************************/
  834.  
  835.   if ( Data->Profile.fFontNameSize )
  836.   {
  837.     WinSetPresParam ( hwnd, PP_FONTNAMESIZE,
  838.       strlen((PCHAR)Data->Profile.FontNameSize)+1, Data->Profile.FontNameSize ) ;
  839.   }
  840.  
  841.   if ( Data->Profile.fBackColor )
  842.   {
  843.     WinSetPresParam ( hwnd, PP_BACKGROUNDCOLOR,
  844.       sizeof(Data->Profile.BackColor), &Data->Profile.BackColor ) ;
  845.   }
  846.  
  847.   if ( Data->Profile.fTextColor )
  848.   {
  849.     WinSetPresParam ( hwnd, PP_FOREGROUNDCOLOR,
  850.       sizeof(Data->Profile.TextColor), &Data->Profile.TextColor ) ;
  851.   }
  852.  
  853.  /***************************************************************************
  854.   * Determine our font size.                            *
  855.   ***************************************************************************/
  856.  
  857.   HPS hPS = WinGetPS ( hwnd ) ;
  858.   RECTL Rectangle ;
  859.   WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  860.   WinDrawText ( hPS, 1, (PSZ)" ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  861.   Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  862.   Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  863.   WinReleasePS ( hPS ) ;
  864.  
  865.  /***************************************************************************
  866.   * Now that the window's in order, make it visible.                        *
  867.   ***************************************************************************/
  868.  
  869.   WinShowWindow ( hwndFrame, TRUE ) ;
  870.  
  871.  /***************************************************************************
  872.   * Success?  Return no error.                            *
  873.   ***************************************************************************/
  874.  
  875.   return ( 0 ) ;
  876. }
  877.  
  878. /****************************************************************************
  879.  *                                        *
  880.  *    Destroy main window.                            *
  881.  *                                        *
  882.  ****************************************************************************/
  883.  
  884. STATIC MRESULT APIENTRY Destroy
  885. (
  886.   HWND hwnd,
  887.   USHORT msg,
  888.   MPARAM mp1,
  889.   MPARAM mp2
  890. )
  891. {
  892.  /***************************************************************************
  893.   * Find the instance data.                            *
  894.   ***************************************************************************/
  895.  
  896.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  897.  
  898.  /***************************************************************************
  899.   * Release the instance memory.                        *
  900.   ***************************************************************************/
  901.  
  902.   free ( Data ) ;
  903.  
  904.  /***************************************************************************
  905.   * We're done.                                                             *
  906.   ***************************************************************************/
  907.  
  908.   return ( MRFROMSHORT ( 0 ) ) ;
  909. }
  910.  
  911. /****************************************************************************
  912.  *                                        *
  913.  *    Process window resize message.                        *
  914.  *                                        *
  915.  ****************************************************************************/
  916.  
  917. STATIC MRESULT APIENTRY Size
  918. (
  919.   HWND hwnd,
  920.   USHORT msg,
  921.   MPARAM mp1,
  922.   MPARAM mp2
  923. )
  924. {
  925.  /***************************************************************************
  926.   * Find the instance data.                            *
  927.   ***************************************************************************/
  928.  
  929.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  930.  
  931.  /***************************************************************************
  932.   * Find out the window's new position and size.                            *
  933.   ***************************************************************************/
  934.  
  935.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  936.  
  937.   SWP Position ;
  938.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  939.  
  940.   if ( NOT ( Position.fl & SWP_MINIMIZE )
  941.     AND NOT ( Position.fl & SWP_MAXIMIZE ) )
  942.   {
  943.     Data->Profile.Position.x = Position.x ;
  944.     Data->Profile.Position.y = Position.y ;
  945.  
  946.     Data->Profile.Position.cx = Position.cx ;
  947.     Data->Profile.Position.cy = Position.cy ;
  948.   }
  949.  
  950.  /***************************************************************************
  951.   * If hiding the controls . . .                        *
  952.   ***************************************************************************/
  953.  
  954.   if ( Data->Profile.HideControls )
  955.   {
  956.  
  957.    /*************************************************************************
  958.     * If changing to or from minimized state . . .                *
  959.     *************************************************************************/
  960.  
  961.     if ( ( Position.fl & SWP_MINIMIZE ) != ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  962.     {
  963.  
  964.      /***********************************************************************
  965.       * Hide the controls if no longer minimized.                *
  966.       ***********************************************************************/
  967.  
  968.       HideControls
  969.       (
  970.     NOT ( Position.fl & SWP_MINIMIZE ),
  971.     hwndFrame,
  972.     Data->hwndSysMenu,
  973.     Data->hwndTitleBar,
  974.     Data->hwndMinMax
  975.       ) ;
  976.     }
  977.   }
  978.  
  979.   Data->Profile.Position.fl = Position.fl ;
  980.  
  981.  /***************************************************************************
  982.   * We're done.                                                             *
  983.   ***************************************************************************/
  984.  
  985.   return ( 0 ) ;
  986. }
  987.  
  988. /****************************************************************************
  989.  *                                        *
  990.  *    Process SAVE APPLICATION message.                    *
  991.  *                                        *
  992.  ****************************************************************************/
  993.  
  994. STATIC MRESULT APIENTRY SaveApplication
  995. (
  996.   HWND hwnd,
  997.   USHORT msg,
  998.   MPARAM mp1,
  999.   MPARAM mp2
  1000. )
  1001. {
  1002.  /***************************************************************************
  1003.   * Find the instance data.                            *
  1004.   ***************************************************************************/
  1005.  
  1006.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1007.  
  1008.  /***************************************************************************
  1009.   * Call function to put all profile data out to the system.            *
  1010.   ***************************************************************************/
  1011.  
  1012.   PutProfile ( Data->ProfileHandle, &Data->Profile ) ;
  1013.  
  1014.  /***************************************************************************
  1015.   * We're done.  Let the system complete default processing.                *
  1016.   ***************************************************************************/
  1017.  
  1018.   return ( WinDefWindowProc ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ) ;
  1019. }
  1020.  
  1021. /****************************************************************************
  1022.  *                                        *
  1023.  *    Repaint entire window.                            *
  1024.  *                                        *
  1025.  ****************************************************************************/
  1026.  
  1027. STATIC MRESULT APIENTRY Paint
  1028. (
  1029.   HWND hwnd,
  1030.   USHORT msg,
  1031.   MPARAM mp1,
  1032.   MPARAM mp2
  1033. )
  1034. {
  1035.  /***************************************************************************
  1036.   * Find the instance data.                            *
  1037.   ***************************************************************************/
  1038.  
  1039.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1040.  
  1041.  /***************************************************************************
  1042.   * Get presentation space and make it use RGB colors.                *
  1043.   ***************************************************************************/
  1044.  
  1045.   HPS hPS = WinBeginPaint ( hwnd, NULL, NULL ) ;
  1046.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  1047.  
  1048.  /***************************************************************************
  1049.   * Clear the window.                                *
  1050.   ***************************************************************************/
  1051.  
  1052.   RECTL Rectangle ;
  1053.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  1054.  
  1055.   GpiMove ( hPS, (PPOINTL) &Rectangle.xLeft ) ;
  1056.   GpiSetColor ( hPS, Data->Profile.BackColor ) ;
  1057.   GpiBox ( hPS, DRO_FILL, (PPOINTL) &Rectangle.xRight, 0L, 0L ) ;
  1058.  
  1059.  /***************************************************************************
  1060.   * Release presentation space.                         *
  1061.   ***************************************************************************/
  1062.  
  1063.   WinEndPaint ( hPS ) ;
  1064.  
  1065.  /***************************************************************************
  1066.   * Update the window and return.                        *
  1067.   ***************************************************************************/
  1068.  
  1069.   UpdateWindow ( hwnd, Data, TRUE ) ;
  1070.  
  1071.   return ( 0 ) ;
  1072. }
  1073.  
  1074. /****************************************************************************
  1075.  *                                        *
  1076.  *    Process commands received by Main Window                *
  1077.  *                                        *
  1078.  ****************************************************************************/
  1079.  
  1080. STATIC MRESULT APIENTRY Command
  1081. (
  1082.   HWND hwnd,
  1083.   USHORT msg,
  1084.   MPARAM mp1,
  1085.   MPARAM mp2
  1086. )
  1087. {
  1088.  /***************************************************************************
  1089.   * Dispatch all other commands through the method table.            *
  1090.   ***************************************************************************/
  1091.  
  1092.   static METHOD Methods [] =
  1093.   {
  1094.     { IDM_SAVE_APPLICATION, SaveApplication },
  1095.     { IDM_RESET_DEFAULTS,   ResetDefaults   },
  1096.     { IDM_HIDE_CONTROLS,    HideControlsCmd },
  1097.     { IDM_CONFIGURE,        Configure        },
  1098.     { IDM_EXIT,         Exit        },
  1099.     { IDM_ABOUT,        About        },
  1100.   } ;
  1101.  
  1102.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), NULL ) ) ;
  1103. }
  1104.  
  1105. /****************************************************************************
  1106.  *                                        *
  1107.  *    Process Reset Defaults menu command.                    *
  1108.  *                                        *
  1109.  ****************************************************************************/
  1110.  
  1111. STATIC MRESULT APIENTRY ResetDefaults
  1112. ( 
  1113.   HWND hwnd, 
  1114.   USHORT msg, 
  1115.   MPARAM mp1, 
  1116.   MPARAM mp2
  1117. )
  1118. {
  1119.  /***************************************************************************
  1120.   * Find the instance data.                            *
  1121.   ***************************************************************************/
  1122.  
  1123.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1124.  
  1125.  /***************************************************************************
  1126.   * Reset all profile data for this program.                    *
  1127.   ***************************************************************************/
  1128.  
  1129.   PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  1130.  
  1131.  /***************************************************************************
  1132.   * Reset the program's presentation parameters.                            *
  1133.   ***************************************************************************/
  1134.  
  1135.   WinRemovePresParam ( hwnd, PP_FONTNAMESIZE ) ;
  1136.   WinRemovePresParam ( hwnd, PP_FOREGROUNDCOLOR ) ;
  1137.   WinRemovePresParam ( hwnd, PP_BACKGROUNDCOLOR ) ;
  1138.  
  1139.  /***************************************************************************
  1140.   * Done.                                    *
  1141.   ***************************************************************************/
  1142.  
  1143.   return ( MRFROMSHORT ( 0 ) ) ;
  1144. }
  1145.  
  1146. /****************************************************************************
  1147.  *                                        *
  1148.  *    Process Hide Controls menu command.                    *
  1149.  *                                        *
  1150.  ****************************************************************************/
  1151.  
  1152. STATIC MRESULT APIENTRY HideControlsCmd
  1153. ( 
  1154.   HWND hwnd, 
  1155.   USHORT msg, 
  1156.   MPARAM mp1, 
  1157.   MPARAM mp2
  1158. )
  1159. {
  1160.  /***************************************************************************
  1161.   * Find the instance data.                            *
  1162.   ***************************************************************************/
  1163.  
  1164.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1165.  
  1166.  /***************************************************************************
  1167.   * Toggle the Hide Controls setting.                        *
  1168.   ***************************************************************************/
  1169.  
  1170.   Data->Profile.HideControls = Data->Profile.HideControls ? FALSE : TRUE ;
  1171.   Data->Profile.fHideControls = TRUE ;
  1172.  
  1173.  /***************************************************************************
  1174.   * Get the frame handle.                                *
  1175.   ***************************************************************************/
  1176.  
  1177.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1178.  
  1179.  /***************************************************************************
  1180.   * If controls aren't hidden yet, update the menu check-mark.              *
  1181.   ***************************************************************************/
  1182.  
  1183.   if ( Data->Profile.HideControls )
  1184.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1185.  
  1186.  /***************************************************************************
  1187.   * If not minimized right now, hide or reveal the controls.            *
  1188.   ***************************************************************************/
  1189.  
  1190.   if ( NOT ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  1191.   {
  1192.     HideControls
  1193.     (
  1194.       Data->Profile.HideControls,
  1195.       hwndFrame,
  1196.       Data->hwndSysMenu,
  1197.       Data->hwndTitleBar,
  1198.       Data->hwndMinMax
  1199.     ) ;
  1200.   }
  1201.  
  1202.  /***************************************************************************
  1203.   * If controls are no longer hidden, update the menu check-mark.        *
  1204.   ***************************************************************************/
  1205.  
  1206.   if ( NOT Data->Profile.HideControls )
  1207.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1208.  
  1209.  /***************************************************************************
  1210.   * Done.                                    *
  1211.   ***************************************************************************/
  1212.  
  1213.   return ( MRFROMSHORT ( 0 ) ) ;
  1214. }
  1215.  
  1216. /****************************************************************************
  1217.  *                                        *
  1218.  *    Process Configure command.                        *
  1219.  *                                        *
  1220.  ****************************************************************************/
  1221.  
  1222. STATIC MRESULT APIENTRY Configure
  1223. ( 
  1224.   HWND hwnd, 
  1225.   USHORT msg, 
  1226.   MPARAM mp1, 
  1227.   MPARAM mp2
  1228. )
  1229. {
  1230.  /***************************************************************************
  1231.   * Find the instance data.                            *
  1232.   ***************************************************************************/
  1233.  
  1234.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1235.  
  1236.  /***************************************************************************
  1237.   * Invoke the Configure dialog.  If cancelled, just return.            *
  1238.   ***************************************************************************/
  1239.  
  1240.   CONFIG_PARMS Parms ;
  1241.   Parms.id          = IDD_CONFIGURE ;
  1242.   Parms.hwndHelp      = WinQueryHelpInstance ( hwnd ) ;
  1243.   Parms.HideControls  = Data->Profile.HideControls ;
  1244.   Parms.Float          = Data->Profile.Float ;
  1245.   Parms.TimerInterval = Data->Profile.TimerInterval ;
  1246.  
  1247.   Parms.ItemCount     = Data->Profile.ItemCount ;
  1248.  
  1249.   PSZ  ItemNames [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  1250.   BOOL ItemFlags [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  1251.   for ( int i=0; i<Data->Profile.ItemCount; i++ )
  1252.   {
  1253.     ItemNames[i] = Data->Profile.Items[i]->QueryOption () ;
  1254.     ItemFlags[i] = Data->Profile.Items[i]->QueryFlag () ;
  1255.   }
  1256.   Parms.ItemNames = ItemNames ;
  1257.   Parms.ItemFlags = ItemFlags ;
  1258.  
  1259.   if ( WinDlgBox ( HWND_DESKTOP, hwnd, ConfigureProcessor,
  1260.     Data->Library, IDD_CONFIGURE, &Parms ) == FALSE )
  1261.   {
  1262.     return ( MRFROMSHORT ( 0 ) ) ;
  1263.   }
  1264.  
  1265.  /***************************************************************************
  1266.   * Save the new timer interval.                        *
  1267.   ***************************************************************************/
  1268.  
  1269.   Data->Profile.fTimerInterval = TRUE ;
  1270.   Data->Profile.TimerInterval = Parms.TimerInterval ;
  1271.  
  1272.  /***************************************************************************
  1273.   * Save the float-to-top flag.                         *
  1274.   ***************************************************************************/
  1275.  
  1276.   Data->Profile.fFloat = TRUE ;
  1277.   Data->Profile.Float = Parms.Float ;
  1278.  
  1279.  /***************************************************************************
  1280.   * Save the hide controls flag, and adjust the window if it changed.        *
  1281.   ***************************************************************************/
  1282.  
  1283.   Data->Profile.fHideControls = TRUE ;
  1284.   if ( Data->Profile.HideControls != Parms.HideControls )
  1285.   {
  1286.     HWND FrameWindow = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1287.     Data->Profile.HideControls = Parms.HideControls ;
  1288.     if ( Data->Profile.HideControls )
  1289.       CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1290.     if ( NOT ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  1291.     {
  1292.       HideControls
  1293.       (
  1294.     Data->Profile.HideControls,
  1295.     FrameWindow,
  1296.     Data->hwndSysMenu,
  1297.     Data->hwndTitleBar,
  1298.     Data->hwndMinMax
  1299.       ) ;
  1300.     }
  1301.     if ( NOT Data->Profile.HideControls )
  1302.       CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1303.   }
  1304.  
  1305.  /***************************************************************************
  1306.   * Determine if the display item list has changed.  If not, return.        *
  1307.   ***************************************************************************/
  1308.  
  1309.   BOOL ItemsChanged = FALSE ;
  1310.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  1311.   {
  1312.     if ( ItemFlags[i] != Data->Profile.Items[i]->QueryFlag() )
  1313.     {
  1314.       ItemsChanged = TRUE ;
  1315.       break ;
  1316.     }
  1317.   }
  1318.  
  1319.   if ( NOT ItemsChanged )
  1320.   {
  1321.     return ( MRFROMSHORT ( 0 ) ) ;
  1322.   }
  1323.  
  1324.  /***************************************************************************
  1325.   * If CPU load monitoring has changed, start/stop the monitoring thread.   *
  1326.   ***************************************************************************/
  1327.  
  1328.   if ( ItemFlags[ITEM_CPULOAD] != Data->Profile.Items[ITEM_CPULOAD]->QueryFlag() )
  1329.   {
  1330.     if ( ItemFlags[ITEM_CPULOAD] )
  1331.       DosResumeThread ( Data->IdleLoopTID ) ;
  1332.     else
  1333.       DosSuspendThread ( Data->IdleLoopTID ) ;
  1334.   }
  1335.  
  1336.  /***************************************************************************
  1337.   * Save the new item flags.                            *
  1338.   ***************************************************************************/
  1339.  
  1340.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  1341.   {
  1342.     if ( ItemFlags[i] )
  1343.       Data->Profile.Items[i]->SetFlag ( ) ;
  1344.     else
  1345.       Data->Profile.Items[i]->ResetFlag ( ) ;
  1346.   }
  1347.  
  1348.  /***************************************************************************
  1349.   * Resize the display window.                            *
  1350.   ***************************************************************************/
  1351.  
  1352.   ResizeWindow ( hwnd, &Data->Profile ) ;
  1353.  
  1354.  /***************************************************************************
  1355.   * Done.                                    *
  1356.   ***************************************************************************/
  1357.  
  1358.   return ( MRFROMSHORT ( 0 ) ) ;
  1359. }
  1360.  
  1361. /****************************************************************************
  1362.  *                                        *
  1363.  *    Process About menu command.                        *
  1364.  *                                        *
  1365.  ****************************************************************************/
  1366.  
  1367. STATIC MRESULT APIENTRY About
  1368. ( 
  1369.   HWND hwnd, 
  1370.   USHORT msg, 
  1371.   MPARAM mp1, 
  1372.   MPARAM mp2
  1373. )
  1374. {
  1375.  /***************************************************************************
  1376.   * Find the instance data.                            *
  1377.   ***************************************************************************/
  1378.  
  1379.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1380.  
  1381.  /***************************************************************************
  1382.   * Invoke the About dialog.                            *
  1383.   ***************************************************************************/
  1384.  
  1385.   ABOUT_PARMS Parms ;
  1386.   Parms.id = IDD_ABOUT ;
  1387.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1388.  
  1389.   WinDlgBox ( HWND_DESKTOP, hwnd, AboutProcessor,
  1390.     Data->Library, IDD_ABOUT, &Parms ) ;
  1391.  
  1392.  /***************************************************************************
  1393.   * Done.                                    *
  1394.   ***************************************************************************/
  1395.  
  1396.   return ( MRFROMSHORT ( 0 ) ) ;
  1397. }
  1398.  
  1399. /****************************************************************************
  1400.  *                                        *
  1401.  *    Process Mouse Button being pressed.                    *
  1402.  *                                        *
  1403.  ****************************************************************************/
  1404.  
  1405. STATIC MRESULT APIENTRY ButtonDown
  1406. (
  1407.   HWND hwnd,
  1408.   USHORT msg,
  1409.   MPARAM mp1,
  1410.   MPARAM mp2
  1411. )
  1412. {
  1413.  /***************************************************************************
  1414.   * Find the instance data.                            *
  1415.   ***************************************************************************/
  1416.  
  1417.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1418.  
  1419.  /***************************************************************************
  1420.   * Determine the new window position.                        *
  1421.   ***************************************************************************/
  1422.  
  1423.   TRACKINFO TrackInfo ;
  1424.   memset ( &TrackInfo, 0, sizeof(TrackInfo) ) ;
  1425.  
  1426.   TrackInfo.cxBorder = 1 ;
  1427.   TrackInfo.cyBorder = 1 ;
  1428.   TrackInfo.cxGrid = 1 ;
  1429.   TrackInfo.cyGrid = 1 ;
  1430.   TrackInfo.cxKeyboard = 8 ;
  1431.   TrackInfo.cyKeyboard = 8 ;
  1432.  
  1433.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1434.  
  1435.   SWP Position ;
  1436.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1437.   TrackInfo.rclTrack.xLeft   = Position.x ;
  1438.   TrackInfo.rclTrack.xRight  = Position.x + Position.cx ;
  1439.   TrackInfo.rclTrack.yBottom = Position.y ;
  1440.   TrackInfo.rclTrack.yTop    = Position.y + Position.cy ;
  1441.  
  1442.   WinQueryWindowPos ( HWND_DESKTOP, &Position ) ;
  1443.   TrackInfo.rclBoundary.xLeft   = Position.x ;
  1444.   TrackInfo.rclBoundary.xRight  = Position.x + Position.cx ;
  1445.   TrackInfo.rclBoundary.yBottom = Position.y ;
  1446.   TrackInfo.rclBoundary.yTop    = Position.y + Position.cy ;
  1447.  
  1448.   TrackInfo.ptlMinTrackSize.x = 0 ;
  1449.   TrackInfo.ptlMinTrackSize.y = 0 ;
  1450.   TrackInfo.ptlMaxTrackSize.x = Position.cx ;
  1451.   TrackInfo.ptlMaxTrackSize.y = Position.cy ;
  1452.  
  1453.   TrackInfo.fs = TF_MOVE | TF_STANDARD | TF_ALLINBOUNDARY ;
  1454.  
  1455.   if ( WinTrackRect ( HWND_DESKTOP, NULL, &TrackInfo ) )
  1456.   {
  1457.     WinSetWindowPos ( hwndFrame, NULL,
  1458.       (SHORT) TrackInfo.rclTrack.xLeft,
  1459.       (SHORT) TrackInfo.rclTrack.yBottom,
  1460.       0, 0, SWP_MOVE ) ;
  1461.   }
  1462.  
  1463.  /***************************************************************************
  1464.   * Return through the default processor, letting window activation        *
  1465.   *   and other system functions occur.                     *
  1466.   ***************************************************************************/
  1467.  
  1468.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1469. }
  1470.  
  1471. /****************************************************************************
  1472.  *                                        *
  1473.  *    Process Mouse Button having been double-clicked.            *
  1474.  *                                        *
  1475.  ****************************************************************************/
  1476.  
  1477. STATIC MRESULT APIENTRY ButtonDblClick
  1478. (
  1479.   HWND hwnd,
  1480.   USHORT msg,
  1481.   MPARAM mp1,
  1482.   MPARAM mp2
  1483. )
  1484. {
  1485.  /***************************************************************************
  1486.   * Send message to self to stop hiding the controls.                *
  1487.   ***************************************************************************/
  1488.  
  1489.   WinPostMsg ( hwnd, WM_COMMAND,
  1490.     MPFROM2SHORT ( IDM_HIDE_CONTROLS, 0 ),
  1491.     MPFROM2SHORT ( CMDSRC_OTHER, TRUE ) ) ;
  1492.  
  1493.  /***************************************************************************
  1494.   * Return through the default processor, letting window activation        *
  1495.   *   and other system functions occur.                     *
  1496.   ***************************************************************************/
  1497.  
  1498.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1499. }
  1500.  
  1501. /****************************************************************************
  1502.  *                                        *
  1503.  *    Process Presentation Parameter Changed notification.            *
  1504.  *                                        *
  1505.  ****************************************************************************/
  1506.  
  1507. STATIC MRESULT APIENTRY PresParamChanged
  1508. (
  1509.   HWND hwnd,
  1510.   USHORT msg,
  1511.   MPARAM mp1,
  1512.   MPARAM mp2
  1513. )
  1514. {
  1515.  /***************************************************************************
  1516.   * Find the instance data.                            *
  1517.   ***************************************************************************/
  1518.  
  1519.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1520.  
  1521.  /***************************************************************************
  1522.   * Get the presentation parameter that changed.                *
  1523.   ***************************************************************************/
  1524.  
  1525.   switch ( LONGFROMMP(mp1) )
  1526.   {
  1527.  
  1528.    /*************************************************************************
  1529.     * If font, note the fact that we now have a font to be saved as        *
  1530.     *    part of the configuration.  Get the font metrics and resize        *
  1531.     *    the window appropriately.                        *
  1532.     *************************************************************************/
  1533.  
  1534.     case PP_FONTNAMESIZE:
  1535.     {
  1536.       ULONG ppid ;
  1537.       if ( WinQueryPresParam ( hwnd, PP_FONTNAMESIZE, 0, &ppid,
  1538.     sizeof(Data->Profile.FontNameSize), &Data->Profile.FontNameSize,
  1539.     0 ) )
  1540.       {
  1541.     Data->Profile.fFontNameSize = TRUE ;
  1542.       }
  1543.       else
  1544.       {
  1545.     strcpy ( (PCHAR)Data->Profile.FontNameSize, "" ) ;
  1546.     Data->Profile.fFontNameSize = FALSE ;
  1547.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", NULL, 0 ) ;
  1548.       }
  1549.  
  1550.       HPS hPS = WinGetPS ( hwnd ) ;
  1551.       RECTL Rectangle ;
  1552.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  1553.       WinDrawText ( hPS, 1, (PSZ)" ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  1554.       Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  1555.       Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  1556.       WinReleasePS ( hPS ) ;
  1557.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1558.       break ;
  1559.     }
  1560.  
  1561.    /*************************************************************************
  1562.     * If background color, note the fact and repaint the window.        *
  1563.     *************************************************************************/
  1564.  
  1565.     case PP_BACKGROUNDCOLOR:
  1566.     {
  1567.       ULONG ppid ;
  1568.       if ( WinQueryPresParam ( hwnd, PP_BACKGROUNDCOLOR, 0, &ppid,
  1569.     sizeof(Data->Profile.BackColor), &Data->Profile.BackColor, 0 ) )
  1570.       {
  1571.     Data->Profile.fBackColor = TRUE ;
  1572.       }
  1573.       else
  1574.       {
  1575.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1576.     Data->Profile.fBackColor = FALSE ;
  1577.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", NULL, 0 ) ;
  1578.       }
  1579.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1580.       break ;
  1581.     }
  1582.  
  1583.    /*************************************************************************
  1584.     * If foreground color, note the fact and repaint the window.        *
  1585.     *************************************************************************/
  1586.  
  1587.     case PP_FOREGROUNDCOLOR:
  1588.     {
  1589.       ULONG ppid ;
  1590.       if ( WinQueryPresParam ( hwnd, PP_FOREGROUNDCOLOR, 0, &ppid,
  1591.     sizeof(Data->Profile.TextColor), &Data->Profile.TextColor, 0 ) )
  1592.       {
  1593.     Data->Profile.fTextColor = TRUE ;
  1594.       }
  1595.       else
  1596.       {
  1597.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1598.     Data->Profile.fTextColor = FALSE ;
  1599.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", NULL, 0 ) ;
  1600.       }
  1601.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1602.       break ;
  1603.     }
  1604.   }
  1605.  
  1606.  /***************************************************************************
  1607.   * Return through the default processor, letting window activation        *
  1608.   *   and other system functions occur.                     *
  1609.   ***************************************************************************/
  1610.  
  1611.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1612. }
  1613.  
  1614. /****************************************************************************
  1615.  *                                        *
  1616.  *    Process System Color Change notification.                *
  1617.  *                                        *
  1618.  ****************************************************************************/
  1619.  
  1620. STATIC MRESULT APIENTRY SysColorChange
  1621. (
  1622.   HWND hwnd,
  1623.   USHORT msg,
  1624.   MPARAM mp1,
  1625.   MPARAM mp2
  1626. )
  1627. {
  1628.  /***************************************************************************
  1629.   * Find the instance data.                            *
  1630.   ***************************************************************************/
  1631.  
  1632.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1633.  
  1634.  /***************************************************************************
  1635.   * If we aren't using custom colors, then query for the new defaults.      *
  1636.   ***************************************************************************/
  1637.  
  1638.   if ( NOT Data->Profile.fBackColor )
  1639.   {
  1640.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1641.   }
  1642.  
  1643.   if ( NOT Data->Profile.fTextColor )
  1644.   {
  1645.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1646.   }
  1647.  
  1648.  /***************************************************************************
  1649.   * Return value must be NULL, according to the documentation.            *
  1650.   ***************************************************************************/
  1651.  
  1652.   return ( MRFROMP ( NULL ) ) ;
  1653. }
  1654.  
  1655. /****************************************************************************
  1656.  *                                        *
  1657.  *    Process Query for Keys Help resource id.                *
  1658.  *                                        *
  1659.  ****************************************************************************/
  1660.  
  1661. STATIC MRESULT APIENTRY QueryKeysHelp
  1662. (
  1663.   HWND hwnd,
  1664.   USHORT msg,
  1665.   MPARAM mp1,
  1666.   MPARAM mp2
  1667. )
  1668. {
  1669.  /***************************************************************************
  1670.   * Simply return the ID of the Keys Help panel.                *
  1671.   ***************************************************************************/
  1672.  
  1673.   return ( (MRESULT) IDM_KEYS_HELP ) ;
  1674. }
  1675.  
  1676. /****************************************************************************
  1677.  *                                        *
  1678.  *    Process Help Manager Error                        *
  1679.  *                                        *
  1680.  ****************************************************************************/
  1681.  
  1682. STATIC MRESULT APIENTRY HelpError
  1683. ( 
  1684.   HWND hwnd, 
  1685.   USHORT msg, 
  1686.   MPARAM mp1, 
  1687.   MPARAM mp2
  1688. )
  1689. {
  1690.  /***************************************************************************
  1691.   * Local Declarations                                *
  1692.   ***************************************************************************/
  1693.  
  1694.   static struct
  1695.   {
  1696.     ULONG Error ;
  1697.     USHORT StringId ;
  1698.   }
  1699.   HelpErrors [] =
  1700.   {
  1701.     { HMERR_NO_FRAME_WND_IN_CHAIN,     IDS_HMERR_NO_FRAME_WND_IN_CHAIN },
  1702.     { HMERR_INVALID_ASSOC_APP_WND,     IDS_HMERR_INVALID_ASSOC_APP_WND },
  1703.     { HMERR_INVALID_ASSOC_HELP_INST,   IDS_HMERR_INVALID_ASSOC_HELP_IN },
  1704.     { HMERR_INVALID_DESTROY_HELP_INST, IDS_HMERR_INVALID_DESTROY_HELP_ },
  1705.     { HMERR_NO_HELP_INST_IN_CHAIN,     IDS_HMERR_NO_HELP_INST_IN_CHAIN },
  1706.     { HMERR_INVALID_HELP_INSTANCE_HDL, IDS_HMERR_INVALID_HELP_INSTANCE },
  1707.     { HMERR_INVALID_QUERY_APP_WND,     IDS_HMERR_INVALID_QUERY_APP_WND },
  1708.     { HMERR_HELP_INST_CALLED_INVALID,  IDS_HMERR_HELP_INST_CALLED_INVA },
  1709.     { HMERR_HELPTABLE_UNDEFINE,        IDS_HMERR_HELPTABLE_UNDEFINE    },
  1710.     { HMERR_HELP_INSTANCE_UNDEFINE,    IDS_HMERR_HELP_INSTANCE_UNDEFIN },
  1711.     { HMERR_HELPITEM_NOT_FOUND,        IDS_HMERR_HELPITEM_NOT_FOUND    },
  1712.     { HMERR_INVALID_HELPSUBITEM_SIZE,  IDS_HMERR_INVALID_HELPSUBITEM_S },
  1713.     { HMERR_HELPSUBITEM_NOT_FOUND,     IDS_HMERR_HELPSUBITEM_NOT_FOUND },
  1714.     { HMERR_INDEX_NOT_FOUND,           IDS_HMERR_INDEX_NOT_FOUND       },
  1715.     { HMERR_CONTENT_NOT_FOUND,           IDS_HMERR_CONTENT_NOT_FOUND     },
  1716.     { HMERR_OPEN_LIB_FILE,           IDS_HMERR_OPEN_LIB_FILE           },
  1717.     { HMERR_READ_LIB_FILE,           IDS_HMERR_READ_LIB_FILE           },
  1718.     { HMERR_CLOSE_LIB_FILE,           IDS_HMERR_CLOSE_LIB_FILE        },
  1719.     { HMERR_INVALID_LIB_FILE,           IDS_HMERR_INVALID_LIB_FILE      },
  1720.     { HMERR_NO_MEMORY,               IDS_HMERR_NO_MEMORY           },
  1721.     { HMERR_ALLOCATE_SEGMENT,           IDS_HMERR_ALLOCATE_SEGMENT      },
  1722.     { HMERR_FREE_MEMORY,           IDS_HMERR_FREE_MEMORY           },
  1723.     { HMERR_PANEL_NOT_FOUND,           IDS_HMERR_PANEL_NOT_FOUND       },
  1724.     { HMERR_DATABASE_NOT_OPEN,           IDS_HMERR_DATABASE_NOT_OPEN     },
  1725.     { 0,                   IDS_HMERR_UNKNOWN           }
  1726.   } ;
  1727.  
  1728.   ULONG ErrorCode = (ULONG) LONGFROMMP ( mp1 ) ;
  1729.  
  1730.  /***************************************************************************
  1731.   * Find the instance data.                            *
  1732.   ***************************************************************************/
  1733.  
  1734.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1735.  
  1736.  /***************************************************************************
  1737.   * Find the error code in the message table.                    *
  1738.   ***************************************************************************/
  1739.  
  1740.   int Index = 0 ;
  1741.   while ( HelpErrors[Index].Error
  1742.     AND ( HelpErrors[Index].Error != ErrorCode ) )
  1743.   {
  1744.     Index ++ ;
  1745.   }
  1746.  
  1747.  /***************************************************************************
  1748.   * Get the message texts.                            *
  1749.   ***************************************************************************/
  1750.  
  1751.   ResourceString Title ( Data->Library, IDS_HMERR ) ;
  1752.  
  1753.   ResourceString Message ( Data->Library, HelpErrors[Index].StringId ) ;
  1754.  
  1755.  /***************************************************************************
  1756.   * Display the error message.                            *
  1757.   ***************************************************************************/
  1758.  
  1759.   WinMessageBox
  1760.   (
  1761.     HWND_DESKTOP,
  1762.     hwnd,
  1763.     Message.Ptr(),
  1764.     Title.Ptr(),
  1765.     0,
  1766.     MB_OK | MB_WARNING
  1767.   ) ;
  1768.  
  1769.  /***************************************************************************
  1770.   * Return zero, indicating that the message was processed.            *
  1771.   ***************************************************************************/
  1772.  
  1773.   return ( MRFROMSHORT ( 0 ) ) ;
  1774. }
  1775.  
  1776. /****************************************************************************
  1777.  *                                        *
  1778.  *    Process "Extended Help Undefined" notification                *
  1779.  *                                        *
  1780.  ****************************************************************************/
  1781.  
  1782. STATIC MRESULT APIENTRY ExtHelpUndefined
  1783. ( 
  1784.   HWND hwnd, 
  1785.   USHORT msg, 
  1786.   MPARAM mp1, 
  1787.   MPARAM mp2
  1788. )
  1789. {
  1790.  /***************************************************************************
  1791.   * Find the instance data.                            *
  1792.   ***************************************************************************/
  1793.  
  1794.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1795.  
  1796.  /***************************************************************************
  1797.   * Get the message texts.                            *
  1798.   ***************************************************************************/
  1799.  
  1800.   ResourceString Title ( Data->Library, IDS_HMERR ) ;
  1801.  
  1802.   ResourceString Message ( Data->Library, IDS_HMERR_EXTHELPUNDEFINED ) ;
  1803.  
  1804.  /***************************************************************************
  1805.   * Display the error message.                            *
  1806.   ***************************************************************************/
  1807.  
  1808.   WinMessageBox
  1809.   (
  1810.     HWND_DESKTOP,
  1811.     hwnd,
  1812.     Message.Ptr(),
  1813.     Title.Ptr(),
  1814.     0,
  1815.     MB_OK | MB_WARNING
  1816.   ) ;
  1817.  
  1818.  /***************************************************************************
  1819.   * Return zero, indicating that the message was processed.            *
  1820.   ***************************************************************************/
  1821.  
  1822.   return ( MRFROMSHORT ( 0 ) ) ;
  1823. }
  1824.  
  1825. /****************************************************************************
  1826.  *                                        *
  1827.  *    Process "Help Subitem Not Found" notification                *
  1828.  *                                        *
  1829.  ****************************************************************************/
  1830.  
  1831. STATIC MRESULT APIENTRY HelpSubitemNotFound
  1832. ( 
  1833.   HWND hwnd, 
  1834.   USHORT msg, 
  1835.   MPARAM mp1, 
  1836.   MPARAM mp2
  1837. )
  1838. {
  1839.  /***************************************************************************
  1840.   * Find the instance data.                            *
  1841.   ***************************************************************************/
  1842.  
  1843.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1844.  
  1845.  /***************************************************************************
  1846.   * Get the title text.                             *
  1847.   ***************************************************************************/
  1848.  
  1849.   ResourceString Title ( Data->Library, IDS_HMERR ) ;
  1850.  
  1851.  /***************************************************************************
  1852.   * Format the error message.                            *
  1853.   ***************************************************************************/
  1854.  
  1855.   USHORT Topic = (USHORT) SHORT1FROMMP ( mp2 ) ;
  1856.   USHORT Subtopic = (USHORT) SHORT2FROMMP ( mp2 ) ;
  1857.  
  1858.   ResourceString Frame     ( Data->Library, IDS_HELPMODE_FRAME ) ;
  1859.   ResourceString Menu     ( Data->Library, IDS_HELPMODE_MENU ) ;
  1860.   ResourceString Window  ( Data->Library, IDS_HELPMODE_WINDOW ) ;
  1861.   ResourceString Unknown ( Data->Library, IDS_HELPMODE_UNKNOWN ) ;
  1862.  
  1863.   PBYTE Mode ;
  1864.   switch ( SHORT1FROMMP ( mp1 ) )
  1865.   {
  1866.     case HLPM_FRAME:
  1867.       Mode = Frame.Ptr() ;
  1868.       break ;
  1869.  
  1870.     case HLPM_MENU:
  1871.       Mode = Menu.Ptr() ;
  1872.       break ;
  1873.  
  1874.     case HLPM_WINDOW:
  1875.       Mode = Window.Ptr() ;
  1876.       break ;
  1877.  
  1878.     default:
  1879.       Mode = Unknown.Ptr() ;
  1880.   }
  1881.  
  1882.   ResourceString Format ( Data->Library, IDS_HELPSUBITEMNOTFOUND ) ;
  1883.  
  1884.   BYTE Message [200] ;
  1885.   sprintf ( (PCHAR)Message, PCHAR(Format.Ptr()), Mode, Topic, Subtopic ) ;
  1886.  
  1887.  /***************************************************************************
  1888.   * Display the error message.                            *
  1889.   ***************************************************************************/
  1890.  
  1891.   WinMessageBox
  1892.   (
  1893.     HWND_DESKTOP,
  1894.     hwnd,
  1895.     Message,
  1896.     Title.Ptr(),
  1897.     0,
  1898.     MB_OK | MB_WARNING
  1899.   ) ;
  1900.  
  1901.  /***************************************************************************
  1902.   * Return zero, indicating that the message was processed.            *
  1903.   ***************************************************************************/
  1904.  
  1905.   return ( MRFROMSHORT ( 0 ) ) ;
  1906. }
  1907.  
  1908. /****************************************************************************
  1909.  *                                        *
  1910.  *    Process Refresh message.                        *
  1911.  *                                        *
  1912.  ****************************************************************************/
  1913.  
  1914. STATIC MRESULT APIENTRY Refresh
  1915. ( 
  1916.   HWND hwnd, 
  1917.   USHORT msg, 
  1918.   MPARAM mp1, 
  1919.   MPARAM mp2
  1920. )
  1921. {
  1922.  /***************************************************************************
  1923.   * Find the instance data.                            *
  1924.   ***************************************************************************/
  1925.  
  1926.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1927.  
  1928.  /***************************************************************************
  1929.   * If we're supposed to float the window, do so here.                      *
  1930.   ***************************************************************************/
  1931.  
  1932.   if ( Data->Profile.Float )
  1933.     WinSetWindowPos ( WinQueryWindow(hwnd,QW_PARENT), HWND_TOP, 0, 0, 0, 0, SWP_ZORDER ) ;
  1934.  
  1935.  /***************************************************************************
  1936.   * Save the idle counter.                            *
  1937.   ***************************************************************************/
  1938.  
  1939.   Data->Profile.IdleCount = LONGFROMMP ( mp1 ) ;
  1940.  
  1941.  /***************************************************************************
  1942.   * Determine if drive mask has changed.                    *
  1943.   ***************************************************************************/
  1944.  
  1945.   ULONG Drive ;
  1946.   ULONG Drives ;
  1947.   DosQueryCurrentDisk ( &Drive, &Drives ) ;
  1948.  
  1949.   if ( Drives != Data->Drives )
  1950.   {
  1951.    /*************************************************************************
  1952.     * It has.  First save the display options.                    *
  1953.     *************************************************************************/
  1954.  
  1955.     SaveApplication ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ;
  1956.  
  1957.    /*************************************************************************
  1958.     * Next, update the drive item list.                     *
  1959.     *************************************************************************/
  1960.  
  1961.     UpdateDriveList ( Data->Anchor, Data->Library, Data->ProfileHandle, 
  1962.       &Data->Profile, Data->Drives, Drives ) ;
  1963.  
  1964.    /*************************************************************************
  1965.     * If the controls are hidden, hide the whole window and reveal the        *
  1966.     *    controls.  Otherwise the menu wouldn't get updated correctly.       *
  1967.     *************************************************************************/
  1968.  
  1969.     if ( Data->Profile.HideControls )
  1970.     {
  1971.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT), FALSE ) ;
  1972.       HideControls
  1973.       (
  1974.     FALSE,
  1975.     WinQueryWindow ( hwnd, QW_PARENT ),
  1976.     Data->hwndSysMenu,
  1977.     Data->hwndTitleBar,
  1978.     Data->hwndMinMax
  1979.       ) ;
  1980.     }
  1981.  
  1982.    /*************************************************************************
  1983.     * If the controls were supposed to be hidden, hide them once more and   *
  1984.     *    show the window to the world again.                    *
  1985.     *************************************************************************/
  1986.  
  1987.     if ( Data->Profile.HideControls )
  1988.     {
  1989.       HideControls
  1990.       (
  1991.     TRUE,
  1992.     WinQueryWindow ( hwnd, QW_PARENT ),
  1993.     Data->hwndSysMenu,
  1994.     Data->hwndTitleBar,
  1995.     Data->hwndMinMax
  1996.       ) ;
  1997.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT), TRUE ) ;
  1998.     }
  1999.  
  2000.    /*************************************************************************
  2001.     * Save the updated drive mask.                        *
  2002.     *************************************************************************/
  2003.  
  2004.     Data->Drives = Drives ;
  2005.  
  2006.    /*************************************************************************
  2007.     * Resize the window to accommodate the new option list.            *
  2008.     *************************************************************************/
  2009.  
  2010.     ResizeWindow ( hwnd, &Data->Profile ) ;
  2011.   }
  2012.  
  2013.  /***************************************************************************
  2014.   * Update the statistics.                            *
  2015.   ***************************************************************************/
  2016.  
  2017.   UpdateWindow ( hwnd, Data, FALSE ) ;
  2018.  
  2019.  /***************************************************************************
  2020.   * Return zero, indicating that the message was processed.            *
  2021.   ***************************************************************************/
  2022.  
  2023.   return ( MRFROMSHORT ( 0 ) ) ;
  2024. }
  2025.  
  2026.  
  2027. /****************************************************************************
  2028.  *                                        *
  2029.  *                 Get Profile Data                    *
  2030.  *                                        *
  2031.  ****************************************************************************/
  2032.  
  2033. STATIC int GetProfile ( HAB Anchor, HMODULE Library, HINI ProfileHandle, PPROFILE Profile )
  2034. {
  2035.  /***************************************************************************
  2036.   * Get the window's current size and position.                             *
  2037.   ***************************************************************************/
  2038.  
  2039.   #pragma pack(2)
  2040.   typedef struct {
  2041.     USHORT Filler ;
  2042.     USHORT fs ;
  2043.     USHORT cy, cx, y, x ;
  2044.     HWND hwndInsertBehind ;
  2045.     HWND hwnd ;
  2046.   } OLDSWP ;
  2047.   #pragma pack()
  2048.  
  2049.   ULONG Size ;
  2050.   memset ( &Profile->Position, 0, sizeof(Profile->Position) ) ;
  2051.   Profile->fPosition = FALSE ;
  2052.   if ( PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &Size ) )
  2053.   {
  2054.     if ( Size == sizeof(OLDSWP)-sizeof(USHORT) )
  2055.     {
  2056.       OLDSWP OldPosition ;
  2057.       if ( PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &OldPosition.fs, &Size ) )
  2058.       {
  2059.         Profile->Position.fl = OldPosition.fs ;
  2060.         Profile->Position.cy = OldPosition.cy ;
  2061.         Profile->Position.cx = OldPosition.cx ;
  2062.         Profile->Position.y = OldPosition.y ;
  2063.         Profile->Position.x = OldPosition.x ;
  2064.         Profile->Position.hwndInsertBehind = OldPosition.hwndInsertBehind ;
  2065.         Profile->Position.hwnd = OldPosition.hwnd ;
  2066.         Profile->fPosition = TRUE ;
  2067.       }
  2068.     }
  2069.     else if ( Size == sizeof(Profile->Position) )
  2070.     {
  2071.       if ( PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &Profile->Position, &Size ) )
  2072.       {
  2073.         Profile->fPosition = TRUE ;
  2074.       }
  2075.     }
  2076.   }
  2077.  
  2078.   if ( NOT Profile->fPosition )
  2079.   {
  2080.     if ( ProfileHandle == HINI_USERPROFILE )
  2081.     {
  2082.       return ( 1 ) ;
  2083.     }
  2084.   }
  2085.  
  2086.  /***************************************************************************
  2087.   * Get the program options.                            *
  2088.   ***************************************************************************/
  2089.  
  2090.   Profile->HideControls = FALSE ;
  2091.   Profile->fHideControls = FALSE ;
  2092.   if 
  2093.   ( 
  2094.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"HideControls", &Size )
  2095.     AND
  2096.     ( ( Size == sizeof(Profile->HideControls) ) OR ( Size == sizeof(short) ) )
  2097.     AND
  2098.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"HideControls", &Profile->HideControls, &Size )
  2099.   )
  2100.   {
  2101.     Profile->fHideControls = TRUE ;
  2102.   }
  2103.  
  2104.   Profile->Float = FALSE ;
  2105.   Profile->fFloat = FALSE ;
  2106.   if 
  2107.   ( 
  2108.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Float", &Size )
  2109.     AND
  2110.     ( ( Size == sizeof(Profile->Float) ) OR ( Size == sizeof(short) ) )
  2111.     AND
  2112.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Float", &Profile->Float, &Size )
  2113.   )
  2114.   {
  2115.     Profile->fFloat = TRUE ;
  2116.   }
  2117.  
  2118.   Profile->TimerInterval = 1000 ;
  2119.   Profile->fTimerInterval = FALSE ;
  2120.   if 
  2121.   ( 
  2122.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"TimerInterval", &Size )
  2123.     AND
  2124.     ( ( Size == sizeof(Profile->TimerInterval) ) OR ( Size == sizeof(short) ) )
  2125.     AND
  2126.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"TimerInterval", &Profile->TimerInterval, &Size ) 
  2127.   )
  2128.   {
  2129.     Profile->fTimerInterval = TRUE ;
  2130.   }
  2131.  
  2132.  /***************************************************************************
  2133.   * Get the presentation parameters.                        *
  2134.   ***************************************************************************/
  2135.  
  2136.   strcpy ( (PCHAR)Profile->FontNameSize, "" ) ;
  2137.   Profile->fFontNameSize = FALSE ;
  2138.   if
  2139.   (
  2140.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", &Size )
  2141.     AND
  2142.     ( Size == sizeof(Profile->FontNameSize) )
  2143.     AND
  2144.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", &Profile->FontNameSize, &Size )
  2145.   )
  2146.   {
  2147.     Profile->fFontNameSize = TRUE ;
  2148.   }
  2149.  
  2150.   Profile->BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  2151.   Profile->fBackColor = FALSE ;
  2152.   if
  2153.   (
  2154.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", &Size )
  2155.     AND
  2156.     ( Size == sizeof(Profile->BackColor) )
  2157.     AND
  2158.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", &Profile->BackColor, &Size )
  2159.   )
  2160.   {
  2161.     Profile->fBackColor = TRUE ;
  2162.   }
  2163.  
  2164.   Profile->TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  2165.   Profile->fTextColor = FALSE ;
  2166.   if
  2167.   (
  2168.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", &Size )
  2169.     AND
  2170.     ( Size == sizeof(Profile->TextColor) )
  2171.     AND
  2172.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", &Profile->TextColor, &Size )
  2173.   )
  2174.   {
  2175.     Profile->fTextColor = TRUE ;
  2176.   }
  2177.  
  2178.  /***************************************************************************
  2179.   * Build the fixed portion of the item list.                    *
  2180.   ***************************************************************************/
  2181.  
  2182.   ResourceString ClockLabel ( Library, IDS_SHOW_CLOCK_LABEL ) ;
  2183.   ResourceString ClockOption ( Library, IDS_SHOW_CLOCK_OPTION ) ;
  2184.   Profile->Items[ITEM_CLOCK] = new Clock ( ITEM_CLOCK,
  2185.     PSZ("ShowClock"), ClockLabel.Ptr(), ClockOption.Ptr(),
  2186.     Profile->CountryInfo ) ;
  2187.  
  2188.   ResourceString ElapsedLabel ( Library, IDS_SHOW_ELAPSED_LABEL ) ;
  2189.   ResourceString ElapsedOption ( Library, IDS_SHOW_ELAPSED_OPTION ) ;
  2190.   Profile->Items[ITEM_ELAPSEDTIME] = new ElapsedTime ( ITEM_ELAPSEDTIME,
  2191.     PSZ("ShowElapsed"), ElapsedLabel.Ptr(), ElapsedOption.Ptr(),
  2192.     Profile->CountryInfo,
  2193.     Profile->Day,
  2194.     Profile->Days ) ;
  2195.  
  2196.   ResourceString SwapSizeLabel ( Library, IDS_SHOW_SWAPSIZE_LABEL ) ;
  2197.   ResourceString SwapSizeOption ( Library, IDS_SHOW_SWAPSIZE_OPTION ) ;
  2198.   Profile->Items[ITEM_SWAPFILESIZE] = new SwapSize ( ITEM_SWAPFILESIZE,
  2199.     PSZ("ShowSwapsize"), SwapSizeLabel.Ptr(), SwapSizeOption.Ptr(),
  2200.     Profile->CountryInfo,
  2201.     Profile->SwapPath ) ;
  2202.  
  2203.   ResourceString SwapFreeLabel ( Library, IDS_SHOW_SWAPFREE_LABEL ) ;
  2204.   ResourceString SwapFreeOption ( Library, IDS_SHOW_SWAPFREE_OPTION ) ;
  2205.   Profile->Items[ITEM_SWAPDISKFREE] = new SwapFree ( ITEM_SWAPDISKFREE,
  2206.     PSZ("ShowSwapfree"), SwapFreeLabel.Ptr(), SwapFreeOption.Ptr(),
  2207.     Profile->CountryInfo,
  2208.     Profile->SwapPath,
  2209.     Profile->MinFree ) ;
  2210.  
  2211.   ResourceString MemoryLabel ( Library, IDS_SHOW_MEMORY_LABEL ) ;
  2212.   ResourceString MemoryOption ( Library, IDS_SHOW_MEMORY_OPTION ) ;
  2213.   Profile->Items[ITEM_MEMORYFREE] = new MemoryFree ( ITEM_MEMORYFREE,
  2214.     PSZ("ShowMemory"), MemoryLabel.Ptr(), MemoryOption.Ptr(),
  2215.     Profile->CountryInfo,
  2216.     (SwapFree*)Profile->Items[ITEM_SWAPDISKFREE] ) ;
  2217.  
  2218.   ResourceString SpoolSizeLabel ( Library, IDS_SHOW_SPOOLSIZE_LABEL ) ;
  2219.   ResourceString SpoolSizeOption ( Library, IDS_SHOW_SPOOLSIZE_OPTION ) ;
  2220.   Profile->Items[ITEM_SPOOLFILESIZE] = new SpoolSize ( ITEM_SPOOLFILESIZE,
  2221.     PSZ("ShowSpoolSize"), SpoolSizeLabel.Ptr(), SpoolSizeOption.Ptr(),
  2222.     Profile->CountryInfo,
  2223.     Profile->SpoolPath ) ;
  2224.  
  2225.   ResourceString CpuLoadLabel ( Library, IDS_SHOW_CPULOAD_LABEL ) ;
  2226.   ResourceString CpuLoadOption ( Library, IDS_SHOW_CPULOAD_OPTION ) ;
  2227.   Profile->Items[ITEM_CPULOAD] = new CpuLoad ( ITEM_CPULOAD,
  2228.     PSZ("ShowCpuLoad"), CpuLoadLabel.Ptr(), CpuLoadOption.Ptr(),
  2229.     Profile->MaxCount,
  2230.     &Profile->IdleCount ) ;
  2231.  
  2232.   ResourceString TaskCountLabel ( Library, IDS_SHOW_TASKCOUNT_LABEL ) ;
  2233.   ResourceString TaskCountOption ( Library, IDS_SHOW_TASKCOUNT_OPTION ) ;
  2234.   Profile->Items[ITEM_TASKCOUNT] = new TaskCount ( ITEM_TASKCOUNT,
  2235.     PSZ("ShowTaskCount"), TaskCountLabel.Ptr(), TaskCountOption.Ptr(),
  2236.     Anchor ) ;
  2237.  
  2238.   for ( int i=0; i<ITEM_BASE_COUNT; i++ )
  2239.   {
  2240.     BOOL Flag = TRUE ;
  2241.     if 
  2242.     ( 
  2243.       PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, Profile->Items[i]->QueryName(), &Size )
  2244.       AND
  2245.       ( ( Size == sizeof(Flag) ) OR ( Size == sizeof(short) ) )
  2246.       AND 
  2247.       PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, Profile->Items[i]->QueryName(), &Flag, &Size )
  2248.     )
  2249.     {
  2250.       ;
  2251.     }
  2252.  
  2253.     if ( Flag )
  2254.       Profile->Items[i]->SetFlag() ;
  2255.     else
  2256.       Profile->Items[i]->ResetFlag() ;
  2257.   }
  2258.  
  2259.  /***************************************************************************
  2260.   * Add items for each drive on the system.                    *
  2261.   ***************************************************************************/
  2262.  
  2263.   ULONG Drive, Drives ;
  2264.   DosQueryCurrentDisk ( &Drive, &Drives ) ;
  2265.   UpdateDriveList ( Anchor, Library, ProfileHandle, Profile, 0, Drives ) ;
  2266.  
  2267.   return ( 0 ) ;
  2268. }
  2269.  
  2270. /****************************************************************************
  2271.  *                                        *
  2272.  *                 Put Profile Data                    *
  2273.  *                                        *
  2274.  ****************************************************************************/
  2275.  
  2276. STATIC void PutProfile ( HINI ProfileHandle, PPROFILE Profile )
  2277. {
  2278.  /***************************************************************************
  2279.   * Save the window's current size and position.                            *
  2280.   ***************************************************************************/
  2281.  
  2282.   PrfWriteProfileData
  2283.   (
  2284.     ProfileHandle,
  2285.     (PSZ)PROGRAM_NAME,
  2286.     (PSZ)"Position",
  2287.     &Profile->Position,
  2288.     sizeof(Profile->Position)
  2289.   ) ;
  2290.  
  2291.  /***************************************************************************
  2292.   * Save the program options.                            *
  2293.   ***************************************************************************/
  2294.  
  2295.   if ( Profile->fHideControls )
  2296.   {
  2297.     PrfWriteProfileData
  2298.     (
  2299.       ProfileHandle,
  2300.       (PSZ)PROGRAM_NAME,
  2301.       (PSZ)"HideControls",
  2302.       &Profile->HideControls,
  2303.       sizeof(Profile->HideControls)
  2304.     ) ;
  2305.   }
  2306.  
  2307.   if ( Profile->fFloat )
  2308.   {
  2309.     PrfWriteProfileData
  2310.     (
  2311.       ProfileHandle,
  2312.       (PSZ)PROGRAM_NAME,
  2313.       (PSZ)"Float",
  2314.       &Profile->Float,
  2315.       sizeof(Profile->Float)
  2316.     ) ;
  2317.   }
  2318.  
  2319.   if ( Profile->fTimerInterval )
  2320.   {
  2321.     PrfWriteProfileData
  2322.     (
  2323.       ProfileHandle,
  2324.       (PSZ)PROGRAM_NAME,
  2325.       (PSZ)"TimerInterval",
  2326.       &Profile->TimerInterval,
  2327.       sizeof(Profile->TimerInterval)
  2328.     ) ;
  2329.   }
  2330.  
  2331.  /***************************************************************************
  2332.   * Save the item options.                            *
  2333.   ***************************************************************************/
  2334.  
  2335.   for ( int i=0; i<Profile->ItemCount; i++ )
  2336.   {
  2337.     Item *pItem = Profile->Items [i] ;
  2338.     BOOL Flag = pItem->QueryFlag() ;
  2339.  
  2340.     PrfWriteProfileData
  2341.     (
  2342.       ProfileHandle,
  2343.       PSZ(PROGRAM_NAME),
  2344.       pItem->QueryName(),
  2345.       &Flag,
  2346.       sizeof(Flag)
  2347.     ) ;
  2348.   }
  2349.  
  2350.  /***************************************************************************
  2351.   * Save the presentation parameters.                        *
  2352.   ***************************************************************************/
  2353.  
  2354.   if ( Profile->fFontNameSize )
  2355.   {
  2356.     PrfWriteProfileData
  2357.     (
  2358.       ProfileHandle,
  2359.       (PSZ)PROGRAM_NAME,
  2360.       (PSZ)"FontNameSize",
  2361.       Profile->FontNameSize,
  2362.       sizeof(Profile->FontNameSize)
  2363.     ) ;
  2364.   }
  2365.  
  2366.   if ( Profile->fBackColor )
  2367.   {
  2368.     PrfWriteProfileData
  2369.     (
  2370.       ProfileHandle,
  2371.       (PSZ)PROGRAM_NAME,
  2372.       (PSZ)"BackgroundColor",
  2373.       &Profile->BackColor,
  2374.       sizeof(Profile->BackColor)
  2375.     ) ;
  2376.   }
  2377.  
  2378.   if ( Profile->fTextColor )
  2379.   {
  2380.     PrfWriteProfileData
  2381.     (
  2382.       ProfileHandle,
  2383.       (PSZ)PROGRAM_NAME,
  2384.       (PSZ)"ForegroundColor",
  2385.       &Profile->TextColor,
  2386.       sizeof(Profile->TextColor)
  2387.     ) ;
  2388.   }
  2389. }
  2390.  
  2391. /****************************************************************************
  2392.  *                                        *
  2393.  *    Scan CONFIG.SYS for a keyword.    Return the value.            *
  2394.  *                                        *
  2395.  ****************************************************************************/
  2396.  
  2397. STATIC PSZ ScanSystemConfig ( HAB Anchor, PSZ Keyword )
  2398. {
  2399.  /***************************************************************************
  2400.   * Get the boot drive number from the global information segment.        *
  2401.   ***************************************************************************/
  2402.  
  2403.   ULONG BootDrive ;
  2404.   DosQuerySysInfo ( QSV_BOOT_DRIVE, QSV_BOOT_DRIVE, &BootDrive, sizeof(BootDrive) ) ;
  2405.  
  2406.  /***************************************************************************
  2407.   * Convert the keyword to upper case.                                      *
  2408.   ***************************************************************************/
  2409.  
  2410.   WinUpper ( Anchor, NULL, NULL, Keyword ) ;
  2411.  
  2412.  /***************************************************************************
  2413.   * Build the CONFIG.SYS path.                            *
  2414.   ***************************************************************************/
  2415.  
  2416.   char Path [_MAX_PATH] ;
  2417.   Path[0] = (char) ( BootDrive + 'A' - 1 ) ;
  2418.   Path[1] = 0 ;
  2419.   strcat ( Path, ":\\CONFIG.SYS" ) ;
  2420.  
  2421.  /***************************************************************************
  2422.   * Open CONFIG.SYS for reading.                        *
  2423.   ***************************************************************************/
  2424.  
  2425.   FILE *File = fopen ( Path, "rt" ) ;
  2426.   if ( NOT File )
  2427.   {
  2428.     return ( NULL ) ;
  2429.   }
  2430.  
  2431.  /***************************************************************************
  2432.   * While there're more lines in CONFIG.SYS, read a line and check it.      *
  2433.   ***************************************************************************/
  2434.  
  2435.   static char Buffer [500] ;
  2436.   while ( fgets ( Buffer, sizeof(Buffer), File ) )
  2437.   {
  2438.  
  2439.    /*************************************************************************
  2440.     * Clean any trailing newline character from the input string.        *
  2441.     *************************************************************************/
  2442.  
  2443.     if ( Buffer[strlen(Buffer)-1] == '\n' )
  2444.     {
  2445.       Buffer[strlen(Buffer)-1] = 0 ;
  2446.     }
  2447.  
  2448.    /*************************************************************************
  2449.     * If keyword starts the line, we've found the line we want.  Close      *
  2450.     *    the file and return a pointer to the parameter text.            *
  2451.     *************************************************************************/
  2452.  
  2453.     WinUpper ( Anchor, NULL, NULL, (PSZ)Buffer ) ;
  2454.  
  2455.     if ( NOT strncmp ( Buffer, (PCHAR)Keyword, strlen((PCHAR)Keyword) )
  2456.       AND ( Buffer[strlen((PCHAR)Keyword)] == '=' ) )
  2457.     {
  2458.       fclose ( File ) ;
  2459.       return ( (PSZ) ( Buffer + strlen((PCHAR)Keyword) + 1 ) ) ;
  2460.     }
  2461.   }
  2462.  
  2463.  /***************************************************************************
  2464.   * Close the file.  We haven't found the line we wanted.                   *
  2465.   ***************************************************************************/
  2466.  
  2467.   fclose ( File ) ;
  2468.  
  2469.   return ( NULL ) ;
  2470. }
  2471.  
  2472. /****************************************************************************
  2473.  *                                        *
  2474.  *             Resize Client Window                    *
  2475.  *                                        *
  2476.  ****************************************************************************/
  2477.  
  2478. STATIC void ResizeWindow ( HWND hwnd, PPROFILE Profile )
  2479. {
  2480.  /***************************************************************************
  2481.   * If the window is visible and minimized, restore it invisibly.        *
  2482.   ***************************************************************************/
  2483.  
  2484.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  2485.  
  2486.   SHORT fHadToHide = FALSE ;
  2487.   SHORT fHadToRestore = FALSE ;
  2488.   if ( Profile->Position.fl & SWP_MINIMIZE )
  2489.   {
  2490.     if ( WinIsWindowVisible ( hwndFrame ) )
  2491.     {
  2492.       WinShowWindow ( hwndFrame, FALSE ) ;
  2493.       fHadToHide = TRUE ;
  2494.     }
  2495.     WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE ) ;
  2496.     fHadToRestore = TRUE ;
  2497.   }
  2498.  
  2499.  /***************************************************************************
  2500.   * Determine how many items are to be displayed.                *
  2501.   ***************************************************************************/
  2502.  
  2503.   HPS hPS = WinGetPS ( hwnd ) ;
  2504.  
  2505.   int Count = 0 ;
  2506.   LONG Widest = 0 ;
  2507.   LONG Height = 0 ;
  2508.  
  2509.   for ( int i=0; i<Profile->ItemCount; i++ )
  2510.   {
  2511.     Item *pItem = Profile->Items [i] ;
  2512.  
  2513.     if ( pItem->QueryFlag() )
  2514.     {
  2515.       Count ++ ;
  2516.  
  2517.       BYTE Text [100] ;
  2518.       sprintf ( (PCHAR)Text, "%s 1,234,567K", pItem->QueryLabel() ) ;
  2519.  
  2520.       RECTL Rectangle ;
  2521.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  2522.  
  2523.       WinDrawText ( hPS, strlen((PCHAR)Text), Text,
  2524.     &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  2525.  
  2526.       Widest = max ( Widest, (Rectangle.xRight-Rectangle.xLeft+1) ) ;
  2527.  
  2528.       Height += Rectangle.yTop - Rectangle.yBottom ;
  2529.     }
  2530.   }
  2531.  
  2532.   WinReleasePS ( hPS ) ;
  2533.  
  2534.  /***************************************************************************
  2535.   * Get the window's current size & position.                               *
  2536.   ***************************************************************************/
  2537.  
  2538.   RECTL Rectangle ;
  2539.   WinQueryWindowRect ( hwndFrame, &Rectangle ) ;
  2540.  
  2541.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2542.  
  2543.  /***************************************************************************
  2544.   * Adjust the window's width & height.                                     *
  2545.   ***************************************************************************/
  2546.  
  2547.   Rectangle.xRight  = Rectangle.xLeft + Widest ;
  2548.  
  2549.   Rectangle.yTop    = Rectangle.yBottom + Height ;
  2550.  
  2551.  /***************************************************************************
  2552.   * Compute new frame size and apply it.                    *
  2553.   ***************************************************************************/
  2554.  
  2555.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2556.  
  2557.   WinSetWindowPos ( hwndFrame, NULL, 0, 0,
  2558.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2559.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2560.     SWP_SIZE ) ;
  2561.  
  2562.  /***************************************************************************
  2563.   * Return the window to its original state.                    *
  2564.   ***************************************************************************/
  2565.  
  2566.   if ( fHadToRestore )
  2567.   {
  2568.     WinSetWindowPos ( hwndFrame, NULL,
  2569.       Profile->Position.x, Profile->Position.y,
  2570.       Profile->Position.cx, Profile->Position.cy,
  2571.       SWP_MOVE | SWP_SIZE | SWP_MINIMIZE ) ;
  2572.   }
  2573.  
  2574.   if ( fHadToHide )
  2575.   {
  2576.     WinShowWindow ( hwndFrame, TRUE ) ;
  2577.   }
  2578.  
  2579.  /***************************************************************************
  2580.   * Invalidate the window so that it gets repainted.                *
  2581.   ***************************************************************************/
  2582.  
  2583.   WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  2584. }
  2585.  
  2586. /****************************************************************************
  2587.  *                                        *
  2588.  *            Hide Window Controls                    *
  2589.  *                                        *
  2590.  ****************************************************************************/
  2591.  
  2592. STATIC void HideControls
  2593. (
  2594.   BOOL fHide,
  2595.   HWND hwndFrame,
  2596.   HWND hwndSysMenu,
  2597.   HWND hwndTitleBar,
  2598.   HWND hwndMinMax
  2599. )
  2600. {
  2601.  /***************************************************************************
  2602.   * Get original window position and state.                    *
  2603.   ***************************************************************************/
  2604.  
  2605.   SWP OldPosition ;
  2606.   WinQueryWindowPos ( hwndFrame, &OldPosition ) ;
  2607.  
  2608.   BOOL WasVisible = WinIsWindowVisible ( hwndFrame ) ;
  2609.  
  2610.  /***************************************************************************
  2611.   * Restore and hide the window.                        *
  2612.   ***************************************************************************/
  2613.  
  2614.   WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE | SWP_HIDE ) ;
  2615.  
  2616.  /***************************************************************************
  2617.   * Determine client window and location.                    *
  2618.   ***************************************************************************/
  2619.  
  2620.   SWP Position ;
  2621.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  2622.  
  2623.   RECTL Rectangle ;
  2624.   Rectangle.xLeft   = Position.x ;
  2625.   Rectangle.xRight  = Position.x + Position.cx ;
  2626.   Rectangle.yBottom = Position.y ;
  2627.   Rectangle.yTop    = Position.y + Position.cy ;
  2628.  
  2629.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2630.  
  2631.  /***************************************************************************
  2632.   * Hide or reveal the controls windows by changing their parentage.        *
  2633.   ***************************************************************************/
  2634.  
  2635.   if ( fHide )
  2636.   {
  2637.     WinSetParent ( hwndSysMenu,  HWND_OBJECT, FALSE ) ;
  2638.     WinSetParent ( hwndTitleBar, HWND_OBJECT, FALSE ) ;
  2639.     WinSetParent ( hwndMinMax,     HWND_OBJECT, FALSE ) ;
  2640.   }
  2641.   else
  2642.   {
  2643.     WinSetParent ( hwndSysMenu,  hwndFrame, TRUE ) ;
  2644.     WinSetParent ( hwndTitleBar, hwndFrame, TRUE ) ;
  2645.     WinSetParent ( hwndMinMax,     hwndFrame, TRUE ) ;
  2646.   }
  2647.  
  2648.  /***************************************************************************
  2649.   * Tell the frame that things have changed.  Let it update the window.     *
  2650.   ***************************************************************************/
  2651.  
  2652.   WinSendMsg ( hwndFrame, WM_UPDATEFRAME,
  2653.     MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  2654.  
  2655.  /***************************************************************************
  2656.   * Reposition the frame around the client window, which is left be.        *
  2657.   ***************************************************************************/
  2658.  
  2659.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2660.  
  2661.   WinSetWindowPos ( hwndFrame, NULL,
  2662.     (SHORT) Rectangle.xLeft,  (SHORT) Rectangle.yBottom,
  2663.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2664.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2665.     SWP_SIZE | SWP_MOVE ) ;
  2666.  
  2667.  /***************************************************************************
  2668.   * If window was maximized, put it back that way.                *
  2669.   ***************************************************************************/
  2670.  
  2671.   if ( OldPosition.fl & SWP_MAXIMIZE )
  2672.   {
  2673.     WinSetWindowPos ( hwndFrame, NULL,
  2674.       (SHORT) Rectangle.xLeft,    (SHORT) Rectangle.yBottom,
  2675.       (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2676.       (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2677.       SWP_SIZE | SWP_MOVE |
  2678.       ( OldPosition.fl & SWP_MAXIMIZE ) ) ;
  2679.   }
  2680.  
  2681.  /***************************************************************************
  2682.   * If the window was visible in the first place, show it.            *
  2683.   ***************************************************************************/
  2684.  
  2685.   if ( WasVisible )
  2686.   {
  2687.     WinShowWindow ( hwndFrame, TRUE ) ;
  2688.   }
  2689. }
  2690.  
  2691. /****************************************************************************
  2692.  *                                        *
  2693.  *    Update Window                                *
  2694.  *                                        *
  2695.  ****************************************************************************/
  2696.  
  2697. STATIC void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All )
  2698. {
  2699.  /***************************************************************************
  2700.   * Determine how many items are to be displayed.                *
  2701.   ***************************************************************************/
  2702.  
  2703.   int Count = 0 ;
  2704.   for ( int i=0; i<Data->Profile.ItemCount; i++ )
  2705.   {
  2706.     if ( Data->Profile.Items[i]->QueryFlag() )
  2707.     {
  2708.       Count ++ ;
  2709.     }
  2710.   }
  2711.  
  2712.  /***************************************************************************
  2713.   * Get presentation space and make it use RGB colors.                *
  2714.   ***************************************************************************/
  2715.  
  2716.   HPS hPS = WinGetPS ( hwnd ) ;
  2717.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  2718.  
  2719.  /***************************************************************************
  2720.   * Get the window's size and determine the initial position.               *
  2721.   ***************************************************************************/
  2722.  
  2723.   RECTL Rectangle ;
  2724.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2725.  
  2726.   Rectangle.xLeft += Data->Width / 2 ;
  2727.   Rectangle.xRight -= Data->Width / 2 ;
  2728.  
  2729.   Rectangle.yBottom = Data->Height * ( Count - 1 ) ;
  2730.   Rectangle.yTop = Rectangle.yBottom + Data->Height ;
  2731.  
  2732.  /***************************************************************************
  2733.   * Review all items.  Display those changed, or all.                *
  2734.   ***************************************************************************/
  2735.  
  2736.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2737.   {
  2738.     ULONG NewValue ;
  2739.  
  2740.     Item *pItem = Data->Profile.Items [i] ;
  2741.  
  2742.     if ( pItem->QueryFlag() )
  2743.     {
  2744.       pItem->Repaint ( hPS, Rectangle,
  2745.     Data->Profile.TextColor, Data->Profile.BackColor, All ) ;
  2746.  
  2747.       Rectangle.yBottom -= Data->Height ;
  2748.       Rectangle.yTop    -= Data->Height ;
  2749.     }
  2750.   }
  2751.  
  2752.  /***************************************************************************
  2753.   * Release the presentation space and return.                    *
  2754.   ***************************************************************************/
  2755.  
  2756.   WinReleasePS ( hPS ) ;
  2757. }
  2758.  
  2759.  
  2760. /****************************************************************************
  2761.  *                                        *
  2762.  *    Monitor Loop Thread                            *
  2763.  *                                        *
  2764.  ****************************************************************************/
  2765.  
  2766. STATIC VOID MonitorLoopThread ( PMONITOR_PARMS Parms )
  2767. {
  2768.  /***************************************************************************
  2769.   * Set this thread's priority as high as it can go.                        *
  2770.   ***************************************************************************/
  2771.  
  2772.   DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  2773.  
  2774.  /***************************************************************************
  2775.   * Start up the high resolution timer, if it is available.            *
  2776.   ***************************************************************************/
  2777.  
  2778.   BOOL HiResTimer = OpenTimer ( ) ;
  2779.  
  2780.  /***************************************************************************
  2781.   * Loop forever . . .                                *
  2782.   ***************************************************************************/
  2783.  
  2784.   while ( 1 )
  2785.   {
  2786.  
  2787.    /*************************************************************************
  2788.     * Reset the last time and count seen.                    *
  2789.     *************************************************************************/
  2790.  
  2791.     ULONG LastMilliseconds ;
  2792.     TIMESTAMP Time [2] ;
  2793.  
  2794.     if ( HiResTimer )
  2795.       GetTime ( &Time[0] ) ;
  2796.     else
  2797.       DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &LastMilliseconds, sizeof(LastMilliseconds) ) ;
  2798.  
  2799.     ULONG LastCounter = *Parms->Counter ;
  2800.  
  2801.    /*************************************************************************
  2802.     * Sleep for a bit.                                *
  2803.     *************************************************************************/
  2804.  
  2805.     DosSleep ( *Parms->Interval ) ;
  2806.  
  2807.    /*************************************************************************
  2808.     * Find out how much time and counts went by.                *
  2809.     *************************************************************************/
  2810.  
  2811.     ULONG CurrentCounter = *Parms->Counter ;
  2812.  
  2813.     ULONG DeltaMilliseconds ;
  2814.  
  2815.     if ( HiResTimer )
  2816.     {
  2817.       GetTime ( &Time[1] ) ;
  2818.  
  2819.       ULONG Nanoseconds ;
  2820.       DeltaMilliseconds = ElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  2821.  
  2822.       if ( Nanoseconds >= 500000L )
  2823.     DeltaMilliseconds ++ ;
  2824.     }
  2825.     else
  2826.     {
  2827.       ULONG Milliseconds ;
  2828.       DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &Milliseconds, sizeof(Milliseconds) ) ;
  2829.       DeltaMilliseconds = Milliseconds - LastMilliseconds ;
  2830.     }
  2831.  
  2832.    /*************************************************************************
  2833.     * Find out how much idle time was counted.    Adjust it to persecond.     *
  2834.     *************************************************************************/
  2835.  
  2836.     ULONG Counter = (ULONG) ( ( (double)(CurrentCounter-LastCounter) * 1000L ) / (double)DeltaMilliseconds ) ;
  2837.  
  2838.    /*************************************************************************
  2839.     * Tell the owner window to refresh its statistics.                *
  2840.     *************************************************************************/
  2841.  
  2842.     WinPostMsg ( Parms->Owner, WM_REFRESH, MPFROMLONG(Counter), 0L ) ;
  2843.   }
  2844. }
  2845.  
  2846. /****************************************************************************
  2847.  *                                        *
  2848.  *    Update the Item List to reflect changes in the available drives.    *
  2849.  *                                        *
  2850.  ****************************************************************************/
  2851.  
  2852. STATIC VOID UpdateDriveList
  2853. (
  2854.   HAB Anchor,
  2855.   HMODULE Library,
  2856.   HINI ProfileHandle,
  2857.   PPROFILE Profile,
  2858.   ULONG OldDrives,
  2859.   ULONG NewDrives
  2860. )
  2861. {
  2862.  /***************************************************************************
  2863.   * Get format strings.                             *
  2864.   ***************************************************************************/
  2865.  
  2866.   ResourceString LabelFormat ( Library, IDS_SHOW_DRIVE_FREE_LABEL ) ;
  2867.   ResourceString OptionFormat ( Library, IDS_SHOW_DRIVE_FREE_OPTION ) ;
  2868.  
  2869.  /***************************************************************************
  2870.   * Save the old item list for comparison.                    *
  2871.   ***************************************************************************/
  2872.  
  2873.   Item *OldItems [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  2874.  
  2875.   memset ( OldItems, 0, sizeof(OldItems) ) ;
  2876.  
  2877.   USHORT OldCount = 0 ;
  2878.   if ( OldDrives )
  2879.   {
  2880.     OldCount = Profile->ItemCount ;
  2881.     memcpy ( OldItems, Profile->Items, sizeof(OldItems) ) ;
  2882.   }
  2883.  
  2884.  /***************************************************************************
  2885.   * Add items for each drive on the system.                    *
  2886.   ***************************************************************************/
  2887.  
  2888.   USHORT Count = ITEM_BASE_COUNT ;
  2889.   USHORT OldIndex = ITEM_BASE_COUNT ;
  2890.  
  2891.   NewDrives >>= 2 ;
  2892.   OldDrives >>= 2 ;
  2893.  
  2894.   for ( int Drive=3; Drive<=MAX_DRIVES; Drive++ )
  2895.   {
  2896.     while ( ( OldIndex < OldCount )
  2897.       AND ( (SHORT)OldItems[OldIndex]->QueryId() < ITEM_BASE_COUNT + Drive ) )
  2898.     {
  2899.       OldIndex ++ ;
  2900.     }
  2901.  
  2902.     if ( NewDrives & 1 )
  2903.     {
  2904.       if ( OldDrives & 1 )
  2905.       {
  2906.     if ( ( OldIndex < OldCount )
  2907.       AND ( (SHORT)OldItems[OldIndex]->QueryId() == ITEM_BASE_COUNT + Drive ) )
  2908.     {
  2909.       Profile->Items[Count++] = OldItems[OldIndex++] ;
  2910.     }
  2911.       }
  2912.       else
  2913.       {
  2914.         BYTE FileSystem [80] ;
  2915.     if ( CheckDrive ( Drive, FileSystem ) )
  2916.     {
  2917.       BYTE Name [80] ;
  2918.       sprintf ( PCHAR(Name),   "ShowDrive%c:", Drive+'A'-1 ) ;
  2919.  
  2920.       BYTE Label [80] ;
  2921.       sprintf ( PCHAR(Label),  (PCHAR)LabelFormat.Ptr(),  Drive+'A'-1, FileSystem ) ;
  2922.  
  2923.       BYTE Option [80] ;
  2924.       sprintf ( PCHAR(Option), (PCHAR)OptionFormat.Ptr(), Drive+'A'-1 ) ;
  2925.  
  2926.       Profile->Items[Count++] = new DriveFree ( ITEM_BASE_COUNT+Drive,
  2927.         Name, Label, Option, Profile->CountryInfo,
  2928.         Drive, Profile->DriveError ) ;
  2929.     }
  2930.       }
  2931.     }
  2932.     else
  2933.     {
  2934.       if ( OldDrives & 1 )
  2935.       {
  2936.     delete OldItems[OldIndex++] ;
  2937.       }
  2938.       else
  2939.       {
  2940.     // Do nothing.
  2941.       }
  2942.     }
  2943.  
  2944.     NewDrives >>= 1 ;
  2945.     OldDrives >>= 1 ;
  2946.   }
  2947.  
  2948.  /***************************************************************************
  2949.   * Save the new item count.                            *
  2950.   ***************************************************************************/
  2951.  
  2952.   Profile->ItemCount = Count ;
  2953.  
  2954.  /***************************************************************************
  2955.   * Fetch the display flags for the drives.                    *
  2956.   ***************************************************************************/
  2957.  
  2958.   for ( int i=ITEM_BASE_COUNT; i<Profile->ItemCount; i++ )
  2959.   {
  2960.     BOOL Flag = TRUE ;
  2961.     Item *pItem = Profile->Items [i] ;
  2962.     ULONG Size ;
  2963.  
  2964.     if
  2965.     (
  2966.       PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, pItem->QueryName(), &Size )
  2967.       AND
  2968.       ( ( Size == sizeof(Flag) ) OR ( Size == sizeof(short) ) )
  2969.       AND
  2970.       PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, pItem->QueryName(), &Flag, &Size )
  2971.     )
  2972.     {
  2973.       ;
  2974.     }
  2975.  
  2976.     if ( Flag )
  2977.       pItem->SetFlag () ;
  2978.     else
  2979.       pItem->ResetFlag () ;
  2980.   }
  2981. }
  2982.  
  2983. /****************************************************************************
  2984.  *                                        *
  2985.  *    Check to see if drive should be added to display list.            *
  2986.  *                                        *
  2987.  ****************************************************************************/
  2988.  
  2989. STATIC BOOL CheckDrive ( USHORT Drive, PBYTE FileSystem )
  2990. {
  2991.  /***************************************************************************
  2992.   * First, check to see if drive is local or remote.  Remote drives are     *
  2993.   *   always monitored.                             *
  2994.   ***************************************************************************/
  2995.  
  2996.   BYTE Path [3] ;
  2997.   Path[0] = (BYTE) ( Drive + 'A' - 1 ) ;
  2998.   Path[1] = ':' ;
  2999.   Path[2] = 0 ;
  3000.  
  3001.   DosError ( FERR_DISABLEHARDERR ) ;
  3002.  
  3003.   BYTE Buffer [1024] ;
  3004.   ULONG Size = sizeof(Buffer) ;
  3005.   ULONG Status = DosQueryFSAttach ( Path, 0, FSAIL_QUERYNAME, (PFSQBUFFER2)Buffer, &Size ) ;
  3006.   DosError ( FERR_ENABLEHARDERR ) ;
  3007.  
  3008.   if ( Status )
  3009.   {
  3010.     Log ( "ERROR: Unable to query drive %s for file system.  Status %04X.\r\n",
  3011.       Path, Status ) ;
  3012.     return ( FALSE ) ;
  3013.   }
  3014.  
  3015.   USHORT cbName = ((PFSQBUFFER2)Buffer)->cbName ;
  3016.   strcpy ( (PCHAR)FileSystem, (PCHAR)((PFSQBUFFER2)(Buffer+cbName))->szFSDName ) ;
  3017.  
  3018.   if ( ((PFSQBUFFER2)Buffer)->iType == FSAT_REMOTEDRV )
  3019.   {
  3020.     return ( TRUE ) ;
  3021.   }
  3022.  
  3023.  /***************************************************************************
  3024.   * Attempt to open the local drive as an entire device.  If unable to do   *
  3025.   *   so, we cannot monitor this drive.                     *
  3026.   ***************************************************************************/
  3027.  
  3028.   ULONG Action ;
  3029.   HFILE Handle ;
  3030.   Status = DosOpen ( Path, &Handle, &Action, 0, 0, FILE_OPEN,
  3031.     OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE |
  3032.     OPEN_FLAGS_DASD | OPEN_FLAGS_FAIL_ON_ERROR, 0 ) ;
  3033.  
  3034.   if ( Status )
  3035.   {
  3036.     Log ( "ERROR: Unable to open local drive %s.  Status %04X.\r\n",
  3037.       Path, Status ) ;
  3038.     return ( FALSE ) ;
  3039.   }
  3040.  
  3041.  /***************************************************************************
  3042.   * Check to see if the drive has removable media.  We cannot monitor such. *
  3043.   ***************************************************************************/
  3044.  
  3045.   BOOL Addit = FALSE ;
  3046.   BYTE Command = 0 ;
  3047.   BYTE NonRemovable ;
  3048.  
  3049.   ULONG LengthIn = sizeof(Command) ;
  3050.   ULONG LengthOut = sizeof(NonRemovable);
  3051.  
  3052.   if 
  3053.   ( 
  3054.     NOT DosDevIOCtl 
  3055.     ( 
  3056.       Handle, 8, 0x20, 
  3057.       &Command, sizeof(Command), &LengthIn,
  3058.       &NonRemovable, sizeof(NonRemovable), &LengthOut 
  3059.     ) 
  3060.   )
  3061.   {
  3062.     Addit = NonRemovable ;
  3063.   }
  3064.  
  3065.  /***************************************************************************
  3066.   * Close the drive.                                *
  3067.   ***************************************************************************/
  3068.  
  3069.   DosClose ( Handle ) ;
  3070.  
  3071.  /***************************************************************************
  3072.   * Return the final verdict.                            *
  3073.   ***************************************************************************/
  3074.  
  3075.   return ( Addit ) ;
  3076. }
  3077.  
  3078. /****************************************************************************
  3079.  *                                        *
  3080.  *             Calibrate the Load Meter                *
  3081.  *                                        *
  3082.  ****************************************************************************/
  3083.  
  3084. STATIC ULONG CalibrateLoadMeter ( void )
  3085. {
  3086.  /***************************************************************************
  3087.   * Set result to zero as a default.                        *
  3088.   ***************************************************************************/
  3089.  
  3090.   double AdjustedMaxLoad = 0.0 ;
  3091.  
  3092.  /***************************************************************************
  3093.   * If HRTIMER.SYS has been installed . . .                    *
  3094.   ***************************************************************************/
  3095.  
  3096.   if ( OpenTimer ( ) )
  3097.   {
  3098.    /*************************************************************************
  3099.     * Increase this thread's priority to the maximum.                       *
  3100.     *************************************************************************/
  3101.  
  3102.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  3103.  
  3104.    /*************************************************************************
  3105.     * Create the calibration thread and set its priority next highest.        *
  3106.     *************************************************************************/
  3107.  
  3108.     TID tidCalibrate ;
  3109.     ULONG MaxLoad ;
  3110.     DosCreateThread ( &tidCalibrate, CounterThread, (ULONG)&MaxLoad, 0, 4096 ) ;
  3111.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM-1, tidCalibrate ) ;
  3112.     DosSuspendThread ( tidCalibrate ) ;
  3113.  
  3114.    /*************************************************************************
  3115.     * Reset the calibration count, get the time, and let the counter go.    *
  3116.     *************************************************************************/
  3117.  
  3118.     MaxLoad = 0 ;
  3119.     TIMESTAMP Time[2] ;
  3120.     GetTime ( &Time[0] ) ;
  3121.     DosResumeThread ( tidCalibrate ) ;
  3122.  
  3123.    /*************************************************************************
  3124.     * Sleep for one second.                            *
  3125.     *************************************************************************/
  3126.  
  3127.     DosSleep ( 1000 ) ;
  3128.  
  3129.    /*************************************************************************
  3130.     * Suspend the calibration counter and get the time.             *
  3131.     *************************************************************************/
  3132.  
  3133.     DosSuspendThread ( tidCalibrate ) ;
  3134.     GetTime ( &Time[1] ) ;
  3135.  
  3136.    /*************************************************************************
  3137.     * Return priorities to normal.                        *
  3138.     *************************************************************************/
  3139.  
  3140.     DosSetPrty ( PRTYS_THREAD, PRTYC_REGULAR, 0, 0 ) ;
  3141.  
  3142.    /*************************************************************************
  3143.     * Get the elapsed time and adjust the calibration count.            *
  3144.     *************************************************************************/
  3145.  
  3146.     ULONG Milliseconds ;
  3147.     ULONG Nanoseconds ;
  3148.     Milliseconds = ElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  3149.  
  3150.     AdjustedMaxLoad = (double)MaxLoad * 1.0E9 ;
  3151.     AdjustedMaxLoad /= (double)Milliseconds*1.0E6L + (double)Nanoseconds ;
  3152.  
  3153.    /*************************************************************************
  3154.     * Close down the connection to HRTIMER.SYS.                 *
  3155.     *************************************************************************/
  3156.  
  3157.     CloseTimer ( ) ;
  3158.   }
  3159.  
  3160.  /***************************************************************************
  3161.   * Return the adjusted calibration count.  If HRTIMER was not there, it    *
  3162.   *   will be zero.                                *
  3163.   ***************************************************************************/
  3164.  
  3165.   return ( (ULONG)AdjustedMaxLoad ) ;
  3166. }
  3167.  
  3168. /****************************************************************************
  3169.  *                                        *
  3170.  *              General Purpose Counter Thread                *
  3171.  *                                        *
  3172.  ****************************************************************************/
  3173.  
  3174. STATIC VOID CounterThread ( PULONG Counter )
  3175. {
  3176.   while ( 1 )
  3177.   {
  3178.     (*Counter) ++ ;
  3179.   }
  3180. }
  3181.  
  3182. /****************************************************************************
  3183.  *                                        *
  3184.  *    Open the Profile                            *
  3185.  *                                        *
  3186.  ****************************************************************************/
  3187.  
  3188. STATIC HINI OpenProfile ( PSZ Name, HAB Anchor, HMODULE Library, HWND HelpInstance )
  3189. {
  3190.  /***************************************************************************
  3191.   * Query the system INI for the profile file's path.                       *
  3192.   ***************************************************************************/
  3193.  
  3194.   PSZ ProfilePath = NULL ;
  3195.   ULONG Size ;
  3196.  
  3197.   if ( PrfQueryProfileSize ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"), &Size ) )
  3198.   {
  3199.     // The info exists.  Fetch it.
  3200.     ProfilePath = PSZ ( AllocateMemory ( Size ) ) ;
  3201.     PrfQueryProfileData ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"),
  3202.       ProfilePath, &Size ) ;
  3203.  
  3204.     // Build the profile file name.
  3205.     BYTE FullPath [_MAX_PATH] ;
  3206.     strcpy ( PCHAR(FullPath), PCHAR(ProfilePath) ) ;
  3207.     strcat ( PCHAR(FullPath), "\\" ) ;
  3208.     strcat ( PCHAR(FullPath), PCHAR(Name) ) ;
  3209.     strcat ( PCHAR(FullPath), ".INI" ) ;
  3210.  
  3211.     // Clean the name up and expand it to a full path.
  3212.     BYTE Path [256] ;
  3213.     DosQueryPathInfo ( FullPath, FIL_QUERYFULLNAME, Path, sizeof(Path) ) ;
  3214.  
  3215.     // Does the file exist?  If not, discard the name.
  3216.     FILESTATUS3 Status ;
  3217.     if ( DosQueryPathInfo ( Path, FIL_STANDARD, &Status, sizeof(Status) ) )
  3218.     {
  3219.       FreeMemory ( ProfilePath ) ;
  3220.       ProfilePath = NULL ;
  3221.     }
  3222.   }
  3223.  
  3224.  /***************************************************************************
  3225.   * If the profile file couldn't be found, ask the user for a path.         *
  3226.   ***************************************************************************/
  3227.  
  3228.   if ( ProfilePath == NULL )
  3229.   {
  3230.     // Set the default path.
  3231.     BYTE Path [256] ;
  3232.     DosQueryPathInfo ( PSZ("."), FIL_QUERYFULLNAME, Path, sizeof(Path) ) ;
  3233.  
  3234.     // Call up the entry dialog.
  3235.     PROFILE_PARMS Parms ;
  3236.     Parms.id = IDD_PROFILE_PATH ;
  3237.     Parms.hwndHelp = HelpInstance ;
  3238.     Parms.Path = Path ;
  3239.     Parms.PathSize = sizeof(Path) ;
  3240.     if ( WinDlgBox ( HWND_DESKTOP, HWND_DESKTOP, ProfileProcessor,
  3241.       Library, IDD_PROFILE_PATH, &Parms ) )
  3242.     {
  3243.       // If OK, save the approved path in the system profile.
  3244.       ProfilePath = PSZ ( AllocateMemory ( strlen(PCHAR(Path)) + 1 ) ) ;
  3245.       strcpy ( PCHAR(ProfilePath), PCHAR(Path) ) ;
  3246.  
  3247.       PrfWriteProfileData ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"),
  3248.     ProfilePath, strlen(PCHAR(ProfilePath))+1 ) ;
  3249.     }
  3250.     else
  3251.     {
  3252.       // If not, return an error.
  3253.       return ( NULL ) ;
  3254.     }
  3255.   }
  3256.  
  3257.  /***************************************************************************
  3258.   * Build the full profile file name.                        *
  3259.   ***************************************************************************/
  3260.  
  3261.   BYTE ProfileName [_MAX_PATH] ;
  3262.   strcpy ( PCHAR(ProfileName), PCHAR(ProfilePath) ) ;
  3263.   strcat ( PCHAR(ProfileName), "\\" PROGRAM_NAME ".INI" ) ;
  3264.  
  3265.  /***************************************************************************
  3266.   * Release the memory previously allocated to store the path.            *
  3267.   ***************************************************************************/
  3268.  
  3269.   if ( ProfilePath )
  3270.   {
  3271.     FreeMemory ( ProfilePath ) ;
  3272.   }
  3273.  
  3274.  /***************************************************************************
  3275.   * Open/Create the profile file and return the resultant handle.        *
  3276.   ***************************************************************************/
  3277.  
  3278.   return ( PrfOpenProfile ( Anchor, ProfileName ) ) ;
  3279. }
  3280. 
  3281.