# 再麻烦你们.

Posted by RPG之鬼 on March 14, 1998 at 01:48:51:

我又不知道这是甚么东西

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

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

Dim mLocalMemory As MEMORYSTATUS

Private Sub Timer1_Timer()
Call GlobalMemoryStatus(mLocalMemory)
label9.Caption = Format(mLocalMemory.dwLength, "#,##")
Label10.Caption = Format(mLocalMemory.dwMemoryLoad, "#,##")
Label11.Caption = Format(mLocalMemory.dwTotalPhys, "#,##")
Label12.Caption = Format(mLocalMemory.dwAvailPhys, "#,##")
Label13.Caption = Format(mLocalMemory.dwTotalPageFile, "#,##")
Label14.Caption = Format(mLocalMemory.dwAvailPageFile, "#,##")
Label15.Caption = Format(mLocalMemory.dwTotalVirtual, "#,##")
Label16.Caption = Format(mLocalMemory.dwAvailVirtual, "#,##")
End Sub

结果出了这些东西
mLocalMemory.dwLength ==> 32
mLocalMemory.dwMemoryLoad ==> 68
mLocalMemory.dwTotalPhys ==> 83,378,136
mLocalMemory.dwAvailPhys ==> 421,888
mLocalMemory.dwTotalPageFile ==> 821,985,280
mLocalMemory.dwAvailPageFile ==> 791,470,080
mLocalMemory.dwTotalVirtual ==> 2,143,289,344
mLocalMemory.dwAvailVirtual ==> 2,118,123,520

请问"mLocalMemory.dwLength"是否指32位元??
"mLocalMemory.dwMemoryLoad"是否指已用了 68% Memory??
"mLocalMemory.dwTotalPhys"是否指有83M Ram??(但我只是有80m Ram的)??

这五个不知是甚么??
mLocalMemory.dwAvailPhys
mLocalMemory.dwTotalPageFile
mLocalMemory.dwAvailPageFile
mLocalMemory.dwTotalVirtual
mLocalMemory.dwAvailVirtual

Follow Ups:

- Re: 再麻烦你们. 陈凯程 00:06:49 3/16/98 (0)