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