تقييم الموضوع :
  • 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قراءة بيانات من الذاكرة RaggiTech 0 426 17-10-12, 02:51 PM
آخر رد: RaggiTech
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 446 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لمعرفة حجم الذاكرة الحية الخاصة بكل Slot RaggiTech 0 438 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة ان كانت السنة كبيسة أم لا RaggiTech 0 417 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الوقت المستغرق منذ بدأ تشغيل الآلة RaggiTech 0 495 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الخطوط المدعومة RaggiTech 0 421 17-10-12, 02:21 PM
آخر رد: RaggiTech
  معرفة حجم الذاكرة المؤقتة Ram والمستخدم منها RaggiTech 0 468 17-10-12, 01:06 AM
آخر رد: RaggiTech
  لمعرفة نوع المعالج المثبت في جهازك RaggiTech 0 400 17-10-12, 01:02 AM
آخر رد: RaggiTech
  لمعرفة نسبة استخدام البروسيسور في الجهاز RaggiTech 0 495 17-10-12, 01:02 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 425 17-10-12, 01:01 AM
آخر رد: RaggiTech

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


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