//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// 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
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFNDEF GET_GlobalMemoryStatus
Type MEMORYSTATUS
    Field MEMORYSTATUS.dwLength         As Dword // sizeof(MEMORYSTATUS)
    Field MEMORYSTATUS.dwMemoryLoad     As Dword // percent of memory in use
    Field MEMORYSTATUS.dwTotalPhys      As Dword // bytes of physical memory
    Field MEMORYSTATUS.dwAvailPhys      As Dword // free physical memory bytes
    Field MEMORYSTATUS.dwTotalPageFile  As Dword // bytes of paging file
    Field MEMORYSTATUS.dwAvailPageFile  As Dword // free bytes of paging file
    Field MEMORYSTATUS.dwTotalVirtual   As Dword // user bytes of address space
    Field MEMORYSTATUS.dwAvailVirtual   As Dword // free user bytes
End_Type // MEMORYSTATUS

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