home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
VMEM.ZIP
/
VMEM.C
< prev
next >
Wrap
C/C++ Source or Header
|
1993-03-01
|
14KB
|
450 lines
// VMEM.C - Copyright (c) 1992 M.B.Mallory
// Compiler: IBM C Set/2 1.0
// VMEM displays the amount of virtual memory available to the user
// in the smallest window possible... a title bar. VMEM can run along
// the edge of the screen (or under it's own icon) with no loss of
// screen real estate.
#define INCL_WIN
#define INCL_GPIPRIMITIVES
#define INCL_DOSMISC
#include <os2.h>
#include <string.h>
#include "vmem.h"
#define CMD (COMMANDMSG(&msg)->cmd)
// data structure and profile info to be written to OS2.INI
typedef struct
{
POINTL pt;
SHORT savescrpos;
SHORT format;
} INIINFO;
#define MEM_APP "VMEM"
#define MEM_KEY "OptionsData"
// define items to remove from the System menu
#define MIR_COUNT 5
#define MIR_DATA SC_RESTORE, SC_SIZE, SC_HIDE, SC_MINIMIZE, SC_MAXIMIZE
// define additions to the System menu
#define MI_COUNT 4
#define IDM_ABOUT 88
#define IDM_OPTIONS 89
#define MI_STR 0, 0, "~About VMEM", "VMEM ~Options"
#define MI_DATA MIT_END, MIS_SEPARATOR, 0, 0, 0, 0,\
MIT_END, MIS_SEPARATOR, 0, 0, 0, 0,\
MIT_END, MIS_TEXT, 0, IDM_ABOUT, 0, 0,\
MIT_END, MIS_TEXT, 0, IDM_OPTIONS, 0, 0
// initial title bar text
#define TITLEBAR_TEXT "Virtual Memory"
// no timers error message
#define TIMER_TITLE "Error initializing VMEM"
#define TIMER_TEXT "VMEM cannot be initialized because"\
" too many timers are already running."\
" Close some applications to free system resources."
// prototype for revectored (subclassed) system frame procedure
MRESULT (* EXPENTRY DefaultFrameProc) (HWND, ULONG, MPARAM, MPARAM);
// prototypes for new frame & dialog procedures
MRESULT EXPENTRY NewFrameProc (HWND, ULONG, MPARAM, MPARAM);
MRESULT EXPENTRY AboutProc (HWND, ULONG, MPARAM, MPARAM);
MRESULT EXPENTRY OptionsProc (HWND, ULONG, MPARAM, MPARAM);
MRESULT EXPENTRY HelpProc (HWND, ULONG, MPARAM, MPARAM);
// misc. prototypes
VOID ReviseSystemMenu (VOID);
VOID SetFramePosition (PRECTL);
LONG GetMemAvail (VOID);
BOOL GetIniInfo (VOID);
CHAR * _System ULongToString (LONG number, LONG width, LONG dec_places);
void _setuparg (void);
// globals
HWND hwndFrame, hwndTitleBar;
INIINFO ini;
BOOL bRestoreFlag = FALSE;
LONG lPrevMemAvail;
// declare dummy function to eliminate command line parsing
void _setuparg (void)
{}
int main (void)
{
HAB hab;
HMQ hmq;
QMSG qmsg;
RECTL rect;
FRAMECDATA framecdata = {
sizeof framecdata,
FCF_TITLEBAR | FCF_SYSMENU | FCF_TASKLIST | FCF_ICON | FCF_BORDER,
0,
VMEM_ICON };
hab = WinInitialize (0); // create anchor block
hmq = WinCreateMsgQueue (hab, 0); // create message queue
// initialize handle & create frame window
hwndFrame = WinCreateWindow (
HWND_DESKTOP, // window parent
WC_FRAME, // frame window class
TITLEBAR_TEXT, // window text
0, // frame creation style (invisible)
0,0, // x, y position
0,0, // width, height
0, // owner window
HWND_TOP, // top of z-order
ID_FRAME, // frame window ID
&framecdata, // control data
0); // presentation parameters
// initialize handle to title bar
hwndTitleBar = WinWindowFromID (hwndFrame, FID_TITLEBAR);
// hook the vector to this instance of the system frame procedure
DefaultFrameProc = WinSubclassWindow (hwndFrame, (PFNWP) NewFrameProc);
ReviseSystemMenu (); // delete disabled stuff & add new items
SetFramePosition (&rect); // initial window frame position
WinSetWindowPos (hwndFrame, HWND_TOP, rect.xLeft, rect.yBottom,
rect.xRight, rect.yTop + 1, SWP_SIZE | SWP_MOVE | SWP_SHOW);
if (WinStartTimer (hab, hwndFrame, ID_TIMER, 1000))
// enter message loop
{
while (WinGetMsg (hab, &qmsg, 0, 0, 0))
WinDispatchMsg (hab, &qmsg);
WinStopTimer (hab, hwndFrame, ID_TIMER);
}
else // display error message
WinMessageBox (HWND_DESKTOP, hwndFrame, TIMER_TEXT, TIMER_TITLE, 0,
MB_OK | MB_WARNING | MB_MOVEABLE );
// destroy window frame and exit
WinDestroyWindow (hwndFrame);
WinDestroyMsgQueue (hmq);
WinTerminate (hab);
return 0;
}
VOID ReviseSystemMenu (VOID)
{
HWND hwndSysMenu;
MENUITEM miSysMenu;
SHORT sSysMenu, i;
static PCHAR pItemIns[MI_COUNT] = { MI_STR };
static SHORT sItemDel[MIR_COUNT] = { MIR_DATA };
static MENUITEM mi[MI_COUNT] = { MI_DATA };
// get handle of the system menu
hwndSysMenu = WinWindowFromID (hwndFrame, FID_SYSMENU);
// get ID of the system menu bitmap
sSysMenu = SHORT1FROMMR (
WinSendMsg (hwndSysMenu, MM_ITEMIDFROMPOSITION, 0, 0));
// get handle of system submenu (in miSysMenu structure)
WinSendMsg (hwndSysMenu, MM_QUERYITEM,
MPFROM2SHORT (sSysMenu, FALSE), MPFROMP (&miSysMenu));
// remove disabled and unneeded menu items
for (i = 0; i < MIR_COUNT; i++)
WinSendMsg (miSysMenu.hwndSubMenu, MM_REMOVEITEM,
MPFROM2SHORT (sItemDel[i], FALSE), 0);
// insert new menu items
for (i = 0; i < MI_COUNT; i++)
WinSendMsg (miSysMenu.hwndSubMenu, MM_INSERTITEM,
MPFROMP (mi + i), MPFROMP (pItemIns[i]));
}
LONG GetMemAvail (VOID)
{
LONG X;
DosQuerySysInfo (19, 19, &X, sizeof X); // get available virtual memory
return X;
}
BOOL GetIniInfo (VOID) // get data from OS2.INI, if it exists
{
ULONG length = sizeof ini;
HINI hini = HINI_USERPROFILE;
BOOL rval;
rval = PrfQueryProfileData (hini, MEM_APP, MEM_KEY, &ini, &length);
if (!rval)
{
ini.savescrpos = TRUE; // set defaults
ini.format = ARB_DISPLAYMB;
}
return rval;
}
VOID SetFramePosition (PRECTL prect)
{
CHAR pPtr[30];
HPS hps ;
POINTL apt[TXTBOX_COUNT];
SHORT xMax, yMax;
// produce initial string
strcpy (pPtr, ULongToString (GetMemAvail () / ONE_KB, 0, 0));
strcat (pPtr, " K available ");
// get length of text string
hps = WinGetPS (hwndFrame);
GpiQueryTextBox (hps, strlen (pPtr), pPtr, TXTBOX_COUNT, apt);
WinReleasePS (hps);
// put text length + room for system menu into RECTL
prect->xLeft = prect->yBottom = prect->yTop = 0;
prect->xRight = (apt[2].x - apt[0].x) + (apt[0].y - apt[1].y);
// expand text string to frame coordinates
WinCalcFrameRect (hwndFrame, prect, FALSE);
// get current absolute screen size
xMax = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN);
yMax = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN);
if (GetIniInfo ())
{
// set window position to OS2.INI data
prect->xLeft = ini.pt.x;
prect->yBottom = ini.pt.y;
// logic to ensure window displays on current screen size
if ((prect->xLeft + prect->xRight / 2 - 3) > xMax)
prect->xLeft = xMax - prect->xRight / 2 + 3;
if (prect->xLeft + 3 < 0)
prect->xLeft = -3;
if ((prect->yBottom + prect->yTop - 3) > yMax)
prect->yBottom = yMax - prect->yTop + 3;
if (prect->yBottom + 3 < 0)
prect->yBottom = -3;
}
else
{
// set window position to center of screen (default)
prect->xLeft = (xMax - prect->xRight) / 2;
prect->yBottom = (yMax - prect->yTop) / 2;
}
// set INIINFO structure to current values
ini.pt.x = prect->xLeft;
ini.pt.y = prect->yBottom;
}
MRESULT EXPENTRY
NewFrameProc (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
CHAR pTempText[40];
HINI hini = HINI_USERPROFILE;
POINTL pt;
LONG lTemp, lMemAvail;
MRESULT rc;
switch (msg)
{
case WM_TIMER:
lMemAvail = GetMemAvail ();
if (lMemAvail != lPrevMemAvail)
{
if (lMemAvail > 0)
{
if (ini.format == ARB_DISPLAYMB)
{
lTemp = lMemAvail / TENTH_MB;
if (lMemAvail % TENTH_MB > TENTH_MB / 2)
lTemp++;
strcpy (pTempText, ULongToString (lTemp, 0, 1));
strcat (pTempText, " MB available");
}
else
{
lTemp = lMemAvail / ONE_KB;
strcpy (pTempText, ULongToString (lTemp, 0, 0));
strcat (pTempText, " K available");
}
}
else
strcpy (pTempText, "Memory Depleted.") ;
WinSetWindowText (hwndFrame, pTempText);
lPrevMemAvail = lMemAvail;
}
return 0 ;
case WM_PAINT:
case WM_ACTIVATE:
// set title bar hilite to always ON
rc = DefaultFrameProc (hwnd, msg, mp1, mp2);
WinSendMsg (hwndTitleBar, TBM_SETHILITE, (MPARAM) TRUE, 0);
return rc;
case WM_COMMAND:
switch (CMD)
{
case IDM_ABOUT: // open About dialog box
WinDlgBox (HWND_DESKTOP, hwnd,
(PFNWP) AboutProc, 0, IDD_ABOUT, 0);
return 0;
case IDM_OPTIONS: // open Options dialog box
WinDlgBox (HWND_DESKTOP, hwnd,
(PFNWP) OptionsProc, 0, IDD_OPTIONS, 0);
return 0;
}
break;
case WM_BUTTON2DBLCLK:
// activate options dialog box with double-click of mouse
// button 2 on the title bar
WinDlgBox (HWND_DESKTOP, hwnd,
(PFNWP) OptionsProc, 0, IDD_OPTIONS, 0);
return 0;
case WM_DESTROY:
if (bRestoreFlag)
// delete data from OS2.INI
PrfWriteProfileData (hini, MEM_APP, 0, 0, 0);
else
{
if (ini.savescrpos)
{
// get current screen position
pt.x = pt.y = 0;
WinMapWindowPoints (hwndFrame, HWND_DESKTOP, &pt, 1);
ini.pt.x = pt.x;
ini.pt.y = pt.y;
}
// write current settings to OS2.INI
PrfWriteProfileData (hini, MEM_APP, MEM_KEY,
&ini, (ULONG)sizeof ini);
}
}
return DefaultFrameProc (hwnd, msg, mp1, mp2);
}
MRESULT EXPENTRY
AboutProc (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
if (msg == WM_COMMAND)
if (CMD == DID_OK || CMD == DID_CANCEL)
{
WinDismissDlg (hwnd, TRUE);
return 0;
}
return WinDefDlgProc (hwnd, msg, mp1, mp2);
}
MRESULT EXPENTRY
HelpProc (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
if (msg == WM_COMMAND)
if (CMD == DID_OK || CMD == DID_CANCEL)
{
WinDismissDlg (hwnd, TRUE);
return 0;
}
return WinDefDlgProc (hwnd, msg, mp1, mp2);
}
MRESULT EXPENTRY
OptionsProc (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
SHORT sTemp;
if (msg == WM_CONTROL)
{
switch (SHORT1FROMMP (mp1)) // get settings as they are changed
{
case ACB_SAVESCRPOS:
if (!bRestoreFlag)
{
ini.savescrpos ^= TRUE; // toggle flag
WinSendDlgItemMsg (hwnd, ACB_SAVESCRPOS, BM_SETCHECK,
(MPARAM) ini.savescrpos, 0);
}
return 0;
case ACB_RESTORE:
bRestoreFlag ^= TRUE; // toggle flag
if (bRestoreFlag)
WinSendDlgItemMsg (hwnd, ACB_SAVESCRPOS, BM_SETCHECK,
(MPARAM) CB_3RDSTATE, 0);
else
WinSendDlgItemMsg (hwnd, ACB_SAVESCRPOS, BM_SETCHECK,
(MPARAM) ini.savescrpos, 0);
return 0;
case ARB_DISPLAYMB:
case ARB_DISPLAYKB:
ini.format = SHORT1FROMMP (mp1);
lPrevMemAvail = 0; // force data update
WinSendMsg (hwndFrame, WM_TIMER, 0, 0);
return 0;
}
}
if (msg == WM_COMMAND)
{
switch (CMD)
{
case DID_OK: // close dialog box
case DID_CANCEL:
WinDismissDlg (hwnd, TRUE);
return 0;
case DID_ABOUT:
WinDlgBox (HWND_DESKTOP, hwnd,
(PFNWP) AboutProc, 0, IDD_ABOUT, 0);
return 0;
case DID_HELP:
WinDlgBox (HWND_DESKTOP, hwnd,
(PFNWP) HelpProc, 0, IDD_HELP, 0);
return 0;
}
}
if (msg == WM_INITDLG)
{
sTemp = bRestoreFlag ? CB_3RDSTATE : ini.savescrpos;
// send current settings to Options dialog
WinCheckButton (hwnd, ini.format, BM_SETCHECK);
WinSendDlgItemMsg (hwnd, ACB_SAVESCRPOS, BM_SETCHECK,
MPFROM2SHORT (sTemp, 0), 0);
WinSendDlgItemMsg (hwnd, ACB_RESTORE, BM_SETCHECK,
(MPARAM) bRestoreFlag, 0);
return 0;
}
return WinDefDlgProc (hwnd, msg, mp1, mp2);
}