７０．メモリに関する情報を取得する

＜　使用用途　＞
メモリに関する情報を取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
　＝＞　ダウンロード　・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のGlobalMemoryStatus を使用します
GlobalMemoryStatus　＝＞メモリに関する情報を取得する
　　＜引数＞
　　　　　lpBuffer：MEMORYSTATUS構造体
　　＠戻り値＠
　　　　　なし
＊使用中のメモリはあまり正確ではない

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Type MEMORYSTATUS
　dwLength As Long
　dwMemoryLoad As Long
　dwTotalPhys As Long
　dwAvailPhys As Long
　dwTotalPageFile As Long
　dwAvailPageFile As Long
　dwTotalVirtual As Long
　dwAvailVirtual As Long
End Type

Public Declare Sub GlobalMemoryStatus Lib "KERNEL32" (lpBuffer As MEMORYSTATUS)

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　Dim nMemory As MEMORYSTATUS

　Call GlobalMemoryStatus(nMemory)

　With List1
　　.AddItem "使用中のメモリ " & vbTab & Format(nMemory.dwMemoryLoad, "#,###") & "%"
　　.AddItem "物理メモリ　　 " & vbTab & Format(nMemory.dwTotalPhys, "#,###") & "バイト"
　　.AddItem "使用可能メモリ " & vbTab & Format(nMemory.dwAvailPhys, "#,###") & "バイト"
　　.AddItem "仮想メモリ " & vbTab & Format(nMemory.dwTotalVirtual, "#,###")
　　.AddItem "未使用仮想メモリ " & vbTab & Format(nMemory.dwAvailVirtual, "#,###")
　End With

End Sub