ابتدا دو text box بر روي فرم در ويژوال بيسيك بسازيد سپس در پنجره كد نويسي كد زير را وارد كنيد.
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()
Dim Info As MEMORYSTATUS
Info.dwLength = Len(MEMORYSTATUS)
GlobalMemoryStatus Info
Text1.Text = Info.dwTotalPhys & "== ALL RAM"
Text2.Text = Info.dwAvailPhys & "== Used RAM"
End Sub
برنامه كامل اين تابع api در ويژوال بيسيك براي دانلود قرار داده شده است.
دانلود
+ نوشته شده توسط عليرضا در دوشنبه شانزدهم مهر 1386 و ساعت
10:20 |