Show Free Resources

Show Free Resources

It is sometimes useful to determine the amount of Windows resourcesavailable. You can show percentage of free resources in an about box, forexample, or to detect memory leaks in a program. The latter task requiresthat you continually update the free-resource display so that you can seewhen the amount of free resources changes. The percentage of free system resources is determined by using theWindows API function GetFreeSystemResources. The declarations for thisfunction are:

 Declare Function GetFreeSystemResources Lib "User" _ (ByValfuSysResource As Integer) As Integer Global Const GFSR_SYSTEMRESOURCES = &H0 Global Const GFSR_GDIRESOURCES = &H1 Global Const GFSR_USERRESOURCES = &H2

To continually update the display, place three labels on your form.Name the labels lblResources and set the indexes to 0, 1, and 2. Next,place a timer on your form called Timer1 and set the interval propertyto between 500 and 1500. Place this code in the timer event handler:

 Sub Timer1_Timer () Dim s As String s = CStr(GetFreeSystemResources_ (GFSR_SYSTEMRESOURCES)) lblResources(0) = "Free System _ Resources: " & s & "%" s = CStr(GetFreeSystemResources_ (GFSR_GDIRESOURCES)) lblResources(1) = "Free GDI _ Resources: " & s & "%" s = CStr(GetFreeSystemResources(GFSR_USERRESOURCES)) lblResources(2) = "Free User _ Resources: " & s & "%" End Sub
See also  Why ChatGPT Is So Important Today

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist