تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لمعرفة حالة الذاكرة الحالية ومقدار المستخدم منها
#1
كاتب الموضوع : AhmedEssawy

عودة أخرى مع API وتحديداً مع kernel32 ، نكتب في قسم التصريحات - كاتب الموضوع موضح في الكود - :


كود :
' Author: Chong Long Choo
' Email: [EMAIL="chonglongchoo@hotmail.com"]chonglongchoo@hotmail.com[/EMAIL]
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer _
As MemoryStatus)
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 MemPoint As MemoryStatus

الداول المستخدمة :

كود :
Public Property Get MemoryLoad() As Long
MemoryLoad = MemPoint.dwMemoryLoad
End Property
Public Property Get TotalPhysical() As Long
TotalPhysical = MemPoint.dwTotalPhys
End Property
Public Property Get AvailablePhysical() As Long
AvailablePhysical = MemPoint.dwAvailPhys
End Property
Public Property Get TotalPageFile() As Long
TotalPageFile = MemPoint.dwTotalPageFile
End Property
Public Property Get AvailablePageFile() As Long
AvailablePageFile = MemPoint.dwAvailPageFile
End Property
Public Property Get TotalVirtual() As Long
TotalVirtual = MemPoint.dwTotalVirtual
End Property
Public Property Get AvailableVirtual() As Long
AvailableVirtual = MemPoint.dwAvailVirtual
End Property
Private Sub Class_Initialize()
MemPoint.dwLength = LenB(MemPoint)
GlobalMemoryStatus MemPoint
End Sub
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم