查看: 34  |  回复: 0
  VB6 利用API得到空闲物理和虚拟内存数
楼主
发表于 2024年10月22日 20:36

新建From1(窗体),新建Command1(按钮CommandButton),代码:

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 Command1_Click()
    Dim xmem As MEMORYSTATUS
    Dim amem, pmem, avirt, tvirt As Long
    GlobalMemoryStatus xmem
    amem = xmem.dwAvailPhys
    pmem = xmem.dwTotalPhys
    avirt = xmem.dwAvailVirtual
    tvirt = xmem.dwTotalVirtual
    Debug.Print "Total Physical Memory is " & Format(pmem / 1024, "###,###,###") & " KB"
    Debug.Print "Available Physical Memory is " & Format(amem / 1024, "###,###,###") & " KB"
    Debug.Print "Total Virtual Memory is " & Format(tvirt / 1024, "###,###,###") & " KB"
    Debug.Print "Available Virtual Memory is " & Format(avirt / 1024, "###,###,###") & " KB"
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com