معرفة حجم الذاكرة المؤقتة Ram والمستخدم منها

[عنـ الشوق ـاد]

معرفة حجم الذاكرة المؤقتة Ram والمستخدم منها

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

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

لمعرفة سعة الرام


[QUOTELabel1.Caption = "You have " & TotalPhysicalMemory & " KB of RAM"][/QUOTE]


لمعرفة الذي ليس مستخدماً حالياً

Label2.Caption = "of which " & AvailablePhysicalMemory & " KB are not used"

[الـــدانـــة]

اللــــه يعطيــــك العافيـــة أخــــوي عنـــاد
جهـــــــود تشكــــــــر عليهــــــا
دمت ودام عطائـــــك