70.メモリに関する情報を取得する

< 使用用途 >
メモリに関する情報を取得する

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


 < 説明 >
API関数のGlobalMemoryStatus を使用します
GlobalMemoryStatus =>メモリに関する情報を取得する
  <引数>
     lpBuffer:MEMORYSTATUS構造体
  @戻り値@
     なし
*使用中のメモリはあまり正確ではない


< SAMPLE >

'標準モジュール
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





API 技術関連のページへ戻る

ホーム PV ランキング