سلام دوستان , از اینکه اینقدر دیر وبلاگ رو Update کردم معذرت
:: این بر نامه با استفاده از API مقدار حافظه فیزیکی و مجازی و ... را برایتان نمایش می ده . این برنامه خیلی ساده است و توضیحی هم ندارم که براش بدم چون اگه یه نگاه به سورسش بندازید می فهمید که چیز خاصی نداره .
Private Type Memory
Length As Long
MemoryLoad As Long
TotalPhysMemory As Long
AvailablePhysMemory As Long
TotalPageFile As Long
AvailPageFile As Long
TotalVirtualMemory As Long
AvailableVirtualMemory As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (M As Memory)
Private Sub Timer1_Timer()
Dim M As Memory
GlobalMemoryStatus M
'*************************************************
LblAvlMem.Caption = Format(CDbl(M.AvailablePhysMemory / 1048576), "#.## MB")
LblTotalPhMem.Caption = Format(CDbl(M.TotalPhysMemory / 1048576), "#.## MB")
LblUsedMemory.Caption = Format(CDbl((M.TotalPhysMemory - M.AvailablePhysMemory) / 1048576), "#.## MB")
LblPercentPhMem.Caption = Format(CDbl((M.AvailablePhysMemory / M.TotalPhysMemory)), "##.#%")
'*************************************************
LblVirtualMem.Caption = Format(CDbl(M.AvailableVirtualMemory / 1048576), "#.## MB")
LblTotalVirtualMem.Caption = Format(CDbl(M.TotalVirtualMemory / 1048576), "#.## MB")
LblUsedVirtualMem.Caption = Format(CDbl((M.TotalVirtualMemory - M.AvailableVirtualMemory) / 1048576), "#.## MB")
LblPercentVirtualMem.Caption = Format(CDbl((M.AvailableVirtualMemory / M.TotalVirtualMemory)), "##.#%")
'*************************************************
End Sub
برای دانلود برنامه اینجا کلیک کنید







این برنامه چگونگی برنامه نویسی برای رجیستری ویندوز را نشان را می دهد , شما با یک نگاه به سورس این برنامه متوجه می شوید که چگونه عمل می کند . در ضمن علت اینکه من دیگه مثل گذشته توضیحی برای سورس برنامه نمی دهم این است که اصلاً وقت نمی شه , اگه باز هم احساس می کنید که در فهم سورس این برنامه مشکلی دارید برام ایمیل بزنید تا در اولین موقعیت برایتان توضیح دهم .

Download
Screenshot













