WIN API-VFP獲取系統內存信息

Declare GlobalMemoryStatus In kernel32 String @lpBuffer
lpBuffer=Replicate(Chr(0),250)
=GlobalMemoryStatus(@lpBuffer)
Clear
=_display("緩衝區長度(字節) ...........................:", 1)
=_display("目前內存管理系統的繁忙程序(1-100)%. ........:", 5)
=_display("物理內存的總數(字節) .......................:", 9)
=_display("目前物理內存的可用數(字節) .................:",13)
=_display("硬盤上頁面文件的總數(字節) .................:",17)
=_display("目前硬盤上頁面文件的可用數(字節) ...........:",21)
=_display("進程虛空間中用戶空間的總數(字節) ...........:",25)
=_display("目前本進程虛空間中用戶空間的可用數(字節) ...:",29)

Procedure _display(lcCaption,lnOffs)
    ?lcCaption+Transform(buf2dword(Substr(lpBuffer,lnOffs,4)),"999,999,999,999,999,999")
    Return
Endproc
 

Function buf2dword(lcBuffer)
    Return;
        Asc(Substr(lcBuffer,1,1))+;
        Asc(Substr(lcBuffer,2,1))*256+;
        Asc(Substr(lcBuffer,3,1))*65536+;
        Asc(Substr(lcBuffer,4,1))*16777216
Endfunc