PDA

View Full Version : check resources


Otto Slembeck
May 13th 04, 04:23 PM
I use the following code in a dB2K program to check if the computer has
sufficient resources to open an external wordprocessor:

#define GFSR_SYSTEMRESOURCES 0
#define GFSR_GDIResOURCES 1
#define GFSR_USERRESOURCES 2
static SystemRes=0, UserRes=0, GDIRes=0
if type('GetFreeSystemResources') # 'FP'
extern cint GetFreeSystemResources(cint) rsrc32.dll from
'_MyGetFreeSystemResources32@4'
endif
mSystemRes = GetFreeSystemResources( GFSR_SYSTEMRESOURCES )
mGDIRes = GetFreeSystemResources( GFSR_GDIResOURCES )
mUserRes = GetFreeSystemResources( GFSR_USERRESOURCES )

This works fine when running under Windows ME. Windows 98 does not have the
file 'rsrc32.dll'.
Is there an equivalent file or a different code that works under ALL Windows
operating systems?


TIA
Otto