メモリ情報の取得
マシンに搭載されている実メモリ、現在のメモリ使用量などを調べるAPIです。 GlobalMemoryStatus() API 以下にサンプルを紹介します。 このサンプルをフォームモジュールに貼り付けて実行して見てください。 *----*----*----*----*----*----*----*----*----*----*----*----*----* Option Explicit Private 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 Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) Private Sub Form_Click() Dim msg$, ms As MEMORYSTATUS ms.dwLength = LenB(ms) GlobalMemoryStatus ms msg = "" msg = msg & "総物理メモリ = " & Format$(ms.dwTotalPhys, "#,##0") & "Bytes(" & Format$(ms.dwTotalPhys / (1024& * 1024&), "0.000") & "MB)" & vbCr msg = msg & "空物理メモリ = " & Format$(ms.dwAvailPhys, "#,##0") & "Bytes" & vbCr msg = msg & "総ページングファイル = " & Format$(ms.dwTotalPageFile, "#,##0") & "Bytes" & vbCr msg = msg & "空ページングファイル = " & Format$(ms.dwAvailPageFile, "#,##0") & "Bytes" & vbCr msg = msg & "総仮想ユーザーメモリ = " & Format$(ms.dwTotalVirtual, "#,##0") & "Bytes" & vbCr msg = msg & "空仮想ユーザーメモリ = " & Format$(ms.dwAvailVirtual, "#,##0") & "Bytes" & vbCr msg = msg & "メモリ使用量 = " & ms.dwMemoryLoad & "%" & vbCr MsgBox msg End Sub |
動作確認
Windows98 Second Edition + Visual Basic 6このサンプルを使用しての感想や、質問は 掲示板や、 らくがき帳に書きとめて頂けるとうれしいです。