メモリ情報を取得

---------------------------------------------------------------------------------------------

#N88BASIC

'------------------

' メモリ情報を取得

'------------------

Dim MemStatus As MEMORYSTATUS

Dim rate_Physical As Long, rate_Virtual As Long

MemStatus.dwLength=Len(MemStatus)

GlobalMemoryStatus(MemStatus)

'物理メモリに関する情報を表示する

rate_Physical=MemStatus.dwMemoryLoad

Print "物理メモリー"

Print "使用率："+Str$(rate_Physical)+"%"

Print "合　計："+Str$(Int(MemStatus.dwTotalPhys/1024))+"KB"

Print "使用中："+Str$(Int((MemStatus.dwTotalPhys-MemStatus.dwAvailPhys)/1024))+"KB"

'仮想メモリに関する情報を表示する

rate_Virtual= _

Int(CDbl(MemStatus.dwTotalPageFile-MemStatus.dwAvailPageFile)/CDbl(MemStatus.dwTotalPageFile)*100)



Print

Print "仮想メモリー"

Print "使用率："+Str$(rate_Virtual)+"%"

Print "合　計："+Str$(Int(MemStatus.dwTotalPageFile/1024))+"KB"

Print "使用中："+Str$(Int((MemStatus.dwTotalPageFile-MemStatus.dwAvailPageFile)/1024))+"KB"

---------------------------------------------------------------------------------------------