*!* typedef struct _PERFORMANCE_INFORMATION {
*!* DWORD cb; 0:4
*!* SIZE_T CommitTotal; 4:4
*!* SIZE_T CommitLimit; 8:4
*!* SIZE_T CommitPeak; 12:4
*!* SIZE_T PhysicalTotal; 16:4
*!* SIZE_T PhysicalAvailable; 20:4
*!* SIZE_T SystemCache; 24:4
*!* SIZE_T KernelTotal; 28:4
*!* SIZE_T KernelPaged; 32:4
*!* SIZE_T KernelNonpaged; 36:4
*!* SIZE_T PageSize; 40:4
*!* DWORD HandleCount; 44:4
*!* DWORD ProcessCount; 48:4
*!* DWORD ThreadCount; 52:4
*!* } PERFORMANCE_INFORMATION,
*!* *PPERFORMANCE_INFORMATION;
#DEFINE PERFORMANCE_INFORMATION_SIZE 56
DECLARE INTEGER GetPerformanceInfo in psapi;
STRING @pPerfInfo, INTEGER cb
LOCAL cBuffer, nPageSize
cBuffer = PADR(CHR(PERFORMANCE_INFORMATION_SIZE),;
PERFORMANCE_INFORMATION_SIZE, CHR(0))
= GetPerformanceInfo(@cBuffer,;
PERFORMANCE_INFORMATION_SIZE)
nPageSize = buf2dword(SUBSTR(cBuffer, 41, 4))
? "Physical Total (Bytes):",;
TRANSFORM(buf2dword(SUBSTR(cBuffer, 17, 4)) *;
nPageSize, "999,999,999,999")
? "Physical Available (Bytes):",;
TRANSFORM(buf2dword(SUBSTR(cBuffer, 21, 4)) *;
nPageSize, "999,999,999,999")
? "Handle Count:",;
buf2dword(SUBSTR(cBuffer, 45, 4))
? "Process Count:",;
buf2dword(SUBSTR(cBuffer, 49, 4))
? "Thread Count:",;
buf2dword(SUBSTR(cBuffer, 53, 4))
FUNCTION buf2dword(cBuffer)
RETURN Asc(SUBSTR(cBuffer, 1,1)) + ;
BitLShift(Asc(SUBSTR(cBuffer, 2,1)), 8) +;
BitLShift(Asc(SUBSTR(cBuffer, 3,1)), 16) +;
BitLShift(Asc(SUBSTR(cBuffer, 4,1)), 24)
|
