メモリー容量を取得する方法

◆概要

このページは、Visual Basic 6.0で、メモリー容量を取得する方法について記載しています。


APIのGlobalMemoryStatus関数を使うとメモリー容量を取得することができます。

◆Sample code

次の例は、空き物理メモリを取得しメッセージボックスに表示します。

標準モジュール

Option Explicit

Public Type MEMORYSTATUS

    dwLength As Long        'MEMORYSTATUSの大きさ
    dwMemoryLoad As Long    '使用中メモリの割合
    dwTotalPhys As Long     '全物理メモリ
    dwAvailPhys As Long     '空き物理メモリ
    dwTotalPageFile As Long 'ページング可能な最大ファイルサイズ
    dwAvailPageFile As Long '現在ページング可能なファイルサイズ
    dwTotalVirtual As Long  '最大仮想メモリ
    dwAvailVirtual As Long  '現在使用可能な仮想メモリ

End Type

Declare Sub GlobalMemoryStatus Lib "kernel32" ( _
    ByRef lpBuffer As MEMORYSTATUS)
　　

フォームモジュール

Private Sub Command1_Click()
    Dim MemoryInfo As MEMORYSTATUS
    Dim Free As Long

    GlobalMemoryStatus MemoryInfo
    
    '空き物理メモリを取得
    Free = MemoryInfo.dwAvailPhys
    MsgBox Free & "バイトのメモリが空いています。"

End Sub
　　
▼ページトップへ