//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GlobalMemoryStatus.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GlobalMemoryStatus. When used
//      the program needs to create a variable to hold the structure
//      information and pass this variable to the function call.
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, May, 26th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Type RdsMEMORYSTATUS
    Field RdsMEMORYSTATUS.dwLength         As DWord // sizeof(MEMORYSTATUS)
    Field RdsMEMORYSTATUS.dwMemoryLoad     As DWord // percent of memory in use
    Field RdsMEMORYSTATUS.dwTotalPhys      As DWord // bytes of physical memory
    Field RdsMEMORYSTATUS.dwAvailPhys      As DWord // free physical memory bytes
    Field RdsMEMORYSTATUS.dwTotalPageFile  As DWord // bytes of paging file
    Field RdsMEMORYSTATUS.dwAvailPageFile  As DWord // free bytes of paging file
    Field RdsMEMORYSTATUS.dwTotalVirtual   As DWord // user bytes of address space
    Field RdsMEMORYSTATUS.dwAvailVirtual   As DWord // free user bytes
End_Type // RdsMEMORYSTATUS

External_Function WinAPI_GlobalMemoryStatus "GlobalMemoryStatus" Kernel32.Dll Pointer lpsMemoryStatus Returns Integer