سلام
می خوام با استفاده از vb یا هر زبان دیگه ای ظرفیت حافظه رم رو نشون بدم .(مثلا نشون بده که رم سیستم من 1 گیگ هست یا 2 و یا ........)
اگه کسی از دوستان میتونه لطفا کمک کنه.
Printable View
سلام
می خوام با استفاده از vb یا هر زبان دیگه ای ظرفیت حافظه رم رو نشون بدم .(مثلا نشون بده که رم سیستم من 1 گیگ هست یا 2 و یا ........)
اگه کسی از دوستان میتونه لطفا کمک کنه.
سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***************
**************************کد:Private Type LARGE_INTEGER
LowPart As Long
HighPart As Long
End Type
Private Type MEMORYSTATUSEX
dwLength As Long
dwMemoryLoad As Long
ullTotalPhys As LARGE_INTEGER
ullAvailPhys As LARGE_INTEGER
ullTotalPageFile As LARGE_INTEGER
ullAvailPageFile As LARGE_INTEGER
ullTotalVirtual As LARGE_INTEGER
ullAvailVirtual As LARGE_INTEGER
ullAvailExtendedVirtual As LARGE_INTEGER
End Type
Private Declare Function GlobalMemoryStatusEx Lib "kernel32.dll" (ByRef lpBuffer As MEMORYSTATUSEX) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
Dim MemStat As MEMORYSTATUSEX
Dim TotalPhys As Currency
'initialize structure
MemStat.dwLength = Len(MemStat)
'retireve memory information
GlobalMemoryStatusEx MemStat
'convert large integer to currency
TotalPhys = LargeIntToCurrency(MemStat.ullTotalPhys)
'show result
MsgBox "Current memory load: " + CStr(MemStat.dwMemoryLoad) + vbCrLf + _
"Total RAM: " + CStr(Int(TotalPhys / 1024 ^ 2)) + " Mb.", vbInformation
End Sub
Private Function LargeIntToCurrency(liInput As LARGE_INTEGER) As Currency
'copy 8 bytes from the large integer to an empty currency
CopyMemory LargeIntToCurrency, liInput, LenB(liInput)
'adjust it
LargeIntToCurrency = LargeIntToCurrency * 10000
End Function
********************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
نقل قول:
مرسی ازکمکتون