Getting free resource under Windows 95

If I could have a penny for all the times this question has been posted in discussion board .. well, finally .. looking at Corel Draw 7 script samples (!) I could figure out how to get the free system resource under Windows 95.
And here is the code for you; take care of this - it works ONLY under Windows 95 (not NT) and you must (I think) have the resource meter installed, since we are using its function, not system ones.
In other words, this way will fail if you don't have the "RSRC32.dll" installed.

#include "stdio.h"
#include "windows.h"

#define GFSR_SYSTEMRESOURCES	0
#define GFSR_GDIRESOURCES		1
#define GFSR_USERRESOURCES		2

typedef LONG (CALLBACK* GETRES)(int);

void main()
{
	HINSTANCE hInst = LoadLibrary("RSRC32.dll");
	if (hInst != NULL)
	{
		GETRES pGetRes = (GETRES) GetProcAddress(hInst, "_MyGetFreeSystemResources32@4");//); 

		if (pGetRes)
		{
			long lSysRes = (*pGetRes)(GFSR_SYSTEMRESOURCES);
			long lGdiRes = (*pGetRes)(GFSR_GDIRESOURCES);
			long lUsrRes = (*pGetRes)(GFSR_USERRESOURCES);
			printf("System resource: %d\n", lSysRes);
			printf("GDI resource: %d\n", lGdiRes);
			printf("User resource: %d\n", lUsrRes);
			return;
		}
		printf("Error getting pointer to _MyGetFreeSystemResources32()\n");
		return;
	}
	printf("Error loading rsrc32.dll. You must run this under Win95 only and with the resource meter installed.\n\n");
}

Last updated: 26 June 1998



Comments

  • DLL

    Posted by Legacy on 09/07/2002 12:00am

    Originally posted by: Dima

    How can I get that file, rsrc32.dll or unmodified state(source code)?
    May you send to me by my email address.
    Thank.

    Reply
  • rsrc32.dll

    Posted by Legacy on 10/30/2001 12:00am

    Originally posted by: Hung

    How can I get that file, rsrc32.dll?
    May you send to me by my email address.
    Thank.

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Live Event Date: December 11, 2014 @ 1:00 p.m. ET / 10:00 a.m. PT Market pressures to move more quickly and develop innovative applications are forcing organizations to rethink how they develop and release applications. The combination of public clouds and physical back-end infrastructures are a means to get applications out faster. However, these hybrid solutions complicate DevOps adoption, with application delivery pipelines that span across complex hybrid cloud and non-cloud environments. Check out this …

  • Hundreds of millions of users have adopted public cloud storage solutions to satisfy their Private Online File Sharing and Collaboration (OFS) needs. With new headlines on cloud privacy issues appearing almost daily, the need to explore private alternatives has never been stronger. Join ESG Senior Analyst Terri McClure and Connected Data in this on-demand webinar to take a look at the business drivers behind OFS adoption, how organizations can benefit from on-premise deployments, and emerging private OFS …

Most Popular Programming Stories

More for Developers

RSS Feeds