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

  • Bonita BPM 7 is here! And for you, an in-depth tour of its innovation. In this webinar, we'll guide you through the brand-new features of this release and demonstrate them live. You will: Discover how business application implementation and maintenance is now even easier, with decoupling of process logic, business data and user interface Learn how to create "living applications" for business processes which present business data in custom views We recommend that you watch the half-hour recording of our …

  • What does it take to win? According to Jack Welch, winning in business is great because when companies win, people thrive and grow. However, it goes without saying that you have to win the right way -- cleanly and by the rules. Even the most talented businessperson with the best intentions will get nowhere unless he or she knows how to win in today's complex business world. Read this book summary to learn not only the strategies of winning, but also the value that those strategies bring to your professional …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date