Evt sevgili Okurlarym...
Bilgi Payla?tykça ço?alyr.
?imdi sizlere "Apilerle bellek durumunu ö?renme" yöntemini Gösterece?im...
Apileri kullnarak kullanylan bellek, bo? bellek kysaca ram hakkynda bilgi edinmemizi sa?layan bir program... Yapalym...
Formumuza bir tane Timer1 ekleyin program hazyr...
Kodlary veriyorum
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 Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Sub Form_load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Cls
Dim m As MEMORYSTATUS
GlobalMemoryStatus m
Print "Bellek Kullanimi %:", m.dwMemoryLoad
Print "Toplam RAM:", , m.dwTotalPhys / 1024 / 1024 & " MB"
Print "Bos RAM:", , m.dwAvailPhys / 1024 / 1024 & "MB"
End Sub
BU KADAR...
KOLAY GELSYN...
TE?EKKÜRLERY EKSYK ETMEYELYM...
Yeni Ba?layanlar Yçin; Yapyly?yny Merak Eden Olursa yardymcy olurum... |
