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

نكتب في الموديول

كود :
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
'This is the main function,
'which returns the correct
'values to the above TYPE
Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
وفي قسم التصاريح

كود :
Public TotalPhysicalMemory, AvailablePhysicalMemory, TotalPageFile, AvailablePageFile, TotalVirtualMemory, AvailableVirtualMemory As Long
ونكتب الدالة

كود :
Public Function GetMemoryStats()
Dim ms As Module1.MEMORYSTATUS
Module1.GlobalMemoryStatus ms
TotalPhysicalMemory = ms.dwTotalPhys \ 1024
AvailablePhysicalMemory = ms.dwAvailPhys \ 1024
TotalPageFile = ms.dwTotalPageFile \ 1024
AvailablePageFile = ms.dwAvailPageFile \ 1024
TotalVirtualMemory = ms.dwTotalVirtual \ 1024
AvailableVirtualMemory = ms.dwAvailVirtual \ 1024
End Function
وفي التايمر نكتب

كود :
GetMemoryStats
لمعرفة سعة الرام

كود :
Label1.Caption = "You have " & TotalPhysicalMemory & " KB of RAM"
لمعرفة الذي ليس مستخدماً حالياً

كود :
Label2.Caption = "of which " & AvailablePhysicalMemory & " KB are not used"
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! RaggiTech 0 648 17-10-12, 03:27 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping + mac address RaggiTech 0 928 17-10-12, 03:24 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping RaggiTech 0 563 17-10-12, 03:23 PM
آخر رد: RaggiTech
  معرفة المساحة الفارغة في القرص -- Api RaggiTech 0 428 17-10-12, 02:54 PM
آخر رد: RaggiTech
  قراءة بيانات من الذاكرة RaggiTech 0 337 17-10-12, 02:51 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 352 17-10-12, 02:24 PM
آخر رد: RaggiTech
  لمعرفة حجم الذاكرة الحية الخاصة بكل Slot RaggiTech 0 337 17-10-12, 02:22 PM
آخر رد: RaggiTech
  معرفة وعمل Format لرقم هاتف RaggiTech 0 400 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة وجود كرت صوت ملحق بالجهاز أم لا RaggiTech 0 354 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة مستوى الصوت المعرف في الويندوز وتغييره RaggiTech 0 269 17-10-12, 01:09 AM
آخر رد: RaggiTech

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


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